Is it possible to make your own TDBLookupComboBox

[madref]

Can you make your own TDBLookupComboBox so that the selection color is the color i want (let's say red) under Mac OSX?


If so how do i do that because i am a noob at making new components.


P.s. This does NOT work under Mac OSX (this is only for the selection color, not for the 'arrow').

Code: Pascal  [Select][+][-]

1. procedure TForm_Wedstrijden.CB_SeizoenDrawItem(Control: TWinControl;
2.   Index: Integer; ARect: TRect; State: TOwnerDrawState);
3. var Str: string;
4. begin
5.   Str := CB_Seizoen.Items[Index];
6.   if odSelected in State then
7.     TDBLookUpComboBox(Control).Canvas.Brush.Color := clRed
8.   else
9.     TDBLookUpComboBox(Control).Canvas.Brush.Color := CB_Seizoen.Color;
10.   TDBLookUpComboBox(Control).Canvas.FillRect(ARect);
11.   DrawText(TDBLookUpComboBox(Control).Canvas.Handle, PChar(Str), Length(Str), ARect, DT_LEFT);
12. end;     // CB_SeizoenDrawItem