给 TComboBox 添加图标
本例效果图:
![给 TComboBox 添加图标 - bbdu - dev_bbdu 给 TComboBox 添加图标 - bbdu - dev_bbdu](http://img2.ph.126.net/jk6qmZTud50QR_XaJWxFDQ==/3794282686159773206.jpg)
代码文件:
unit Unit1;
i
interface
u
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ImgList, ComCtrls;
t
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ImageList1: TImageList; //你先要有图标
procedure FormCreate(Sender: TObject);
procedure ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure FormDestroy(Sender: TObject);
end;
v
var
Form1: TForm1;
implementation
{
{$R *.dfm}
v
var
Bits: array[0..3] of TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
v
var
i: Integer;
begin
for i := 0 to Length(Bits)-1 do
begin
Bits[i] := TBitmap.Create;
ImageList1.GetBitmap(i, Bits[i]);
ComboBox1.Items.Add(Format('Item %d', [i]));
end;
ComboBox1.Style := csOwnerDrawVariable;
ComboBox1.ItemHeight := Bits[0].Height + 4;
ComboBox1.ItemIndex := 0;
e
end;
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
ComboBox1.Canvas.FillRect(Rect);
ComboBox1.Canvas.BrushCopy(Bounds(Rect.Left+2, Rect.Top+2, Bits[Index].Width, Bits[Index].Height),
Bits[Index],
Bounds(0, 0, Bits[Index].Width, Bits[Index].Height),
clBlack);
ComboBox1.Canvas.TextOut(Rect.Left + 24, Rect.Top + 3, ComboBox1.Items[Index]);
e
end;
procedure TForm1.FormDestroy(Sender: TObject);
v
var
i: Integer;
begin
for i := 0 to Length(Bits)-1 do
Bits[i].Free;
e
end;
e
end.