var
  lastindicator: TAdvSmoothTimeLineBarIndicator;

procedure TForm4.AdvSmoothTimeLine1IndicatorClick(Sender: TObject;
  indicator: TAdvSmoothTimeLineBarIndicator); begin
  lastindicator := indicator;
end;

procedure TForm4.AdvSmoothTimeLine1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin
  if assigned(lastindicator) then
  begin
    lastindicator.Position := advsmoothtimeline1.XToDateTime(x);
  end;
end;

TimeFormat := 'HH:mm';

TimeFormat := 'hh:mm';

begin
  advstringgrid1.FontNames[1,1] := 'Wingdings 3';
  advstringgrid1.Cells[1,1] := #33;
  advstringgrid1.FontNames[1,2] := 'Wingdings 3';
  advstringgrid1.Cells[1,2] := #34;
  advstringgrid1.FontNames[2,1] := 'Wingdings 3';
  advstringgrid1.Cells[2,1] := #35;
  advstringgrid1.FontNames[2,2] := 'Wingdings 3';
  advstringgrid1.Cells[2,2] := #36;
end;

{$WARNINGS OFF}

{$WARNINGS ON}

grid.DropDownControlName.DropDownWidth

procedure TForm4.FormCreate(Sender: TObject); 
begin
  advstringgrid1.DefaultEditor := edMemoDropDown;
  advstringgrid1.Options := advstringgrid1.Options + [goEditing];
  advstringgrid1.MemoDropDown.DropDownWidth := 400; 
end;