I have a TDBAdvGrid which contains a column which is a Colour. I have the GetEditorType set to edColorPickerDropDown but some of the properties that I set are ignored.
I am trying to make the Header and Footer no visible but the code does not work.
procedure TMainForm.dbgClubsGetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType);
begin
AEditor := edNormal;
(* set editor type of columns *)
case ACol of
3, 4: begin
(* default colour & text colour *)
dbgClubs.ColorPickerDropDown.ColorSelectionStyle := csColorCube;
// dbgClubs.ColorPickerDropDown.CubePanel.CubeCellColor[1] := clblack;
dbgClubs.ColorPickerDropDown.ColorValueText := cvtHex;
(* not working *)
dbgClubs.ColorPickerDropDown.DropDownHeight := 300;
dbgClubs.ColorPickerDropDown.DropDownHeader.Visible := False;
dbgClubs.ColorPickerDropDown.DropDownFooter.Visible := False;
AEditor := edColorPickerDropDown;
end;
end;
end;
Also I would like to set clBlack as a colour in the ColorCube but I do not know how to access the OnDropDown event of the inplace editor which is where a tip says you can edit the colours.
Any help would be greatly appreciated.