procedure TForm1.FormCreate(Sender: TObject);
var
  si: TSearchListItem;
begin
  // initialize the search edit
  AdvSearchEditEditLink1.Columns.Add;
  AdvSearchEditEditLink1.CategoryButton.Visible := false;
  AdvSearchEditEditLink1.SearchButton.Visible := false;

 // tag holds the unique value
  si := AdvSearchEditEditLink1.Items.Add;
  si.Captions[0] := 'BMW';
  si.Tag := 1;

  si := AdvSearchEditEditLink1.Items.Add;
  si.Captions[0] := 'Mercedes';
  si.Tag := 2;

  si := AdvSearchEditEditLink1.Items.Add;
  si.Captions[0] := 'Audi';
  si.Tag := 3;
end;

// use the OnGetEditorType event to specify the TAdvSearchEditEditLink as inplace editor:

procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol,
  ARow: Integer; var AEditor: TEditorType);
begin
  AEditor := edCustom;
  AdvStringGrid1.EditLink := AdvSearchEditEditLink1;
end;


// retrieve the unique ID of the selected item in the OnCellValidate event:
procedure TForm1.AdvStringGrid1CellValidate(Sender: TObject; ACol,
  ARow: Integer; var Value: string; var Valid: Boolean);
var
  index,t: integer;
begin
  index := (AdvSearchEditEditLink1.GetEditControl as TAdvSearchEdit).SearchList.ItemIndex;
  t := (AdvSearchEditEditLink1.GetEditControl as TAdvSearchEdit).Items[index].Tag;

  // the t variable holds the unique ID of the selected item via the TAdvSearchEdit
end;

procedure TForm1.FormCreate(Sender: TObject); begin
  adoquery1.SQL.Text := 'SELECT * FROM CARS';
  adoquery1.Active := true;
  dbadvgrid1.FilterEdit.Enabled := true; end; end;

procedure TForm1.DBAdvGrid1FilterEditDone(Sender: TObject; ACol: Integer;
  Condition: string; FilterType: TFilterType); begin
  //event is triggered when built-in filtering is not used and from here custom dataset filtering can be done
  if ACol = BrandColumn then
    adoquery1.SQL.Text := 'SELECT * FROM CARS WHERE BRAND LIKE '''+
Condition+'''';
  if ACol = TypeColumn then
    adoquery1.SQL.Text := 'SELECT * FROM CARS WHERE TYPE LIKE '''+
Condition+'''';
  adoquery1.Active := true;
end;

procedure TForm1.DBAdvGrid1FilterEditUpdate(Sender: TObject; ACol: Integer;
  Condition: string; FilterType: TFilterType); begin
  //just set the flag that built-in filtering will not be used
  DBAdvGrid1.DoAutoEditFilter := false;
end;

  WebGMaps1.Markers[id].Title:='String 1\nString 2';

procedure TForm4.FormCreate(Sender: TObject);
var
  it: TAdvSmoothListBoxItem;

begin
  AdvSmoothListBox1.Items.BeginUpdate;

  AdvSmoothListBox1.Header.Fill.Color := RGB(176,188,205);
  AdvSmoothListBox1.Header.Fill.ColorTo := RGB(109,132,162);
  AdvSmoothListBox1.Header.Fill.BorderColor := RGB(45,54,66);
  AdvSmoothListBox1.Fill.Color := RGB(219,226,237);
  AdvSmoothListBox1.Fill.BorderColor := RGB(45,54,66);

  AdvSmoothListBox1.Header.Caption := 'Conversion with Matt';
  AdvSmoothListBox1.Header.Font.Color := clWhite;
  AdvSmoothListBox1.Header.Font.Style := [fsBold];
  AdvSmoothListBox1.Header.Font.Size := 14;
  AdvSmoothListBox1.ItemAppearance.FillAlterNate.Color := RGB(146,216,65);
  AdvSmoothListBox1.ItemAppearance.FillAlterNate.GradientType := gtsolid;
  AdvSmoothListBox1.ItemAppearance.FillAlterNate.ColorMirror := clNone;
  AdvSmoothListBox1.ItemAppearance.FillAlterNate.BorderColor := RGB(146,216,65);

  AdvSmoothListBox1.ItemAppearance.Fill.Color := RGB(211,211,211);
  AdvSmoothListBox1.ItemAppearance.Fill.GradientType := gtsolid;
  AdvSmoothListBox1.ItemAppearance.Fill.ColorMirror := clNone;
  AdvSmoothListBox1.ItemAppearance.Fill.BorderColor := RGB(211,211,211);

  AdvSmoothListBox1.Layout := lblBubble;
  AdvSmoothListBox1.Items.Clear;
  AdvSmoothListBox1.Footer.Visible := False;

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := '<b>Matt</b>';
  it.NotesLocation := plTopLeft;
  it.Notes := 'Hi John, when does the game begin?';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := '<b>John</b>';
  it.NotesLocation := plTopRight;
  it.Notes := 'Hi Matt, the game begins at 7:30 pm!';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := '<b>Matt</b>';
  it.NotesLocation := plTopLeft;
  it.Notes := 'Thanks, are you going alone there or with a friend?';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := '<b>John</b>';
  it.NotesLocation := plTopLeft;
  it.Notes := 'We are travelling with a couple of friends'+#13#10+'If you want, you may join us at 7:00 pm at the parking lot';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := '<b>Matt</b>';
  it.NotesLocation := plTopLeft;
  it.Notes := 'Ok, I will be there';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := '<b>John</b>';
  it.NotesLocation := plTopRight;
  it.Notes := 'See you at the parking lot then !';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Alternate := lbaRight;
  it.Caption := '<b>John</b>';
  it.NotesLocation := plTopRight;
  it.Notes := 'Oh, and do not forget your tickets';


  AdvSmoothListBox1.LookupBar.Visible := False;
  AdvSmoothListBox1.ItemAppearance.HorizontalSpacing := 8;

  AdvSmoothListBox1.Items.EndUpdate;
end;

procedure TfrmMain.TMSFMXGrid1CanSortColumn(Sender: TObject; ACol: Integer;
  var Allow: Boolean);
begin
  Allow := false;
//sort on dataset level
end;

TTMSFNCUtils.OpenURL(‘http://www.tmssoftware.com’);

TTMSFNCUtils.OpenFile(‘MyFile.txt’);