LiveComboBox with image

[albertovesx]

Hi to all.

 

I modified the LiveComboBox demo to display an image beside the text. When an item is selected, I remove the HTML marks to only display the text. but it does it with a blink that I dont like at all. Is there a better approach to do this?

 

procedure TMainForm.UniComboBox1RemoteQuery(const QueryString: string;
  Result: TStrings);
var
  I: Integer;
begin
  if Trim(QueryString)='' then Exit;

  ClientDataSet1.Filter:='country LIKE ''%'+QueryString+'%''';

  ClientDataSet1.First;
  while not ClientDataSet1.Eof do
  begin
    Result.Add(
      '<div><img src="img/accept.png" align="left"/>'
      +ClientDataSet1.FieldByName('country').AsString
      +'</div>'
    );
    ClientDataSet1.Next;
  end;
end;

procedure TMainForm.UniComboBox1Select(Sender: TObject);
begin
  UniComboBox1.Text := StringReplace(
                         UniComboBox1.Text,
                         '<div><img src="img/accept.png" align="left"/>',
                         '', []
                         );
    UniComboBox1.Text := StringReplace(
                         UniComboBox1.Text,
                         '</div>',
                         '', []
                         );
end;