DelphiFAQ Home Search:
General :: Windows :: Programming :: Windows with Delphi :: Windows Graphics
Graphics programming under Windows with Delphi.

Articles:

This list is sorted by recent document popularity (not total page views).
New documents will first appear at the bottom.

Featured Article

Combobox with colors

It is quite easy to create a combobox that shows a list of colors.
You need to set the property Style to "csOwnerDrawFixed".
This causes a call of OnDrawItem for each item in your combobox.
The DrawItem routine draws a color bar..

// in FormCreate:
 
 with ComboBox1.Items do 
 
 begin 
 
   Add(IntToStr(clRed)); 
 
   Add(IntToStr(clFuchsia)); 
 
   Add(IntToStr(clBlue)); 
 
   Add(IntToStr(clGreen));
 
   Add(IntToStr(clYellow));
 
 end;
 
 procedure TForm1.ComboBox1DrawItem(Control: TWinControl;
 
   Index : Integer; Rect: TRect; State: TOwnerDrawState);
 
 begin
 
   with Control as TComboBox,Canvas do 
 
   begin 
 
     // fill the rectangle first with white
 
     Brush.Color := clWhite; 
 
     FillRect(Rect); 
 
     // then reduce it and fill it with the color
 
     InflateRect(Rect,-2,-2); 
 
     Brush.Color := StrToInt(Items[Index]); 
 
     FillRect(Rect);
 
  end;
 
 end;
 
 

Generated 20:02:47 on Apr 26, 2018