ImageEn, unit ieXCanvasUtils

IEDrawComboListBoxItem


Declaration

procedure IEDrawComboListBoxItem(ControlCanvas : TCanvas;
                                 CanvasRect : TRect;
                                 ControlEnabled: Boolean;
                                 Text : string;
                                 AnImageList : TCustomImageList = nil;
                                 iGlyph : Short = -1); overload;
procedure IEDrawComboListBoxItem(ControlCanvas : TCanvas;
                                 CanvasRect : TRect;
                                 ControlEnabled: Boolean;
                                 Text : string;
                                 Bmp : TIEBitmap;
                                 BmpW, BmpH: Integer;
                                 ZoomFilter: TResampleFilter = rfFastlinear); overload;


Description

Draw text and/or image to a TComboBox or TListBox.

Note:
- TComboBox.Style should be csOwnerDrawFixed and ItemHeight set larger than your images
- TListBox.Style should be lbOwnerDrawFixed and ItemHeight set larger than your images
- Defined in iexCanvasUtils unit


Example

// Note: ComboBox1.Style = csOwnerDrawFixed and ItemHeight = 18
// ImageList1 contains a list of 16x16 images that match the items of ComboBox1
procedure TfrmMain.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  IEDrawComboListBoxItem( TCombobox(Control).Canvas, Rect, Control.Enabled, TCombobox(Control).Items[ Index ], ImageList1, Index );
end;


See Also

- IEDrawShapeToComboListBoxItem
- IEDrawGradientToComboListBoxItem