procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvStringGrid1.Color := clSilver;
end;

procedure TForm1.AdvStringGrid1GetCellColor(Sender: TObject; ARow,
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
begin
  if (acol = AdvStringGrid1.Col) and
     (arow = AdvStringGrid1.Row) then
  begin
    if Assigned(AdvStringGrid1.NormalEdit) then
    if (AdvStringGrid1.NormalEdit.Visible) then
    ABrush.Color := clWhite;
  end;
end; 

grid.ComboBox.Flat:=false;

procedure TForm1.Planner1PlannerKeyPress(Sender: TObject; var key:char; position, fromSel, fromSelPrecis, toSel, toSelPrecis: Integer);
begin
  with planner1.Items.Add do
  begin
    itempos := position;
    itembegin := fromSel;
    itemend := toSel;
    captiontype := ctTime;
    Text.Add(key);
    Edit;
    planner1.MemoEdit.SelStart := 1;
    planner1.MemoEdit.SelLength := 0;
  end;
end;