OICQ中用户图标选择的实现

unit unit1;

interface

uses
　windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
　stdctrls;

type
　tform1 = class(tform)
　　list1: tcombobox;
　　button1: tbutton;
　　procedure button1click(sender: tobject);
　　procedure formcreate(sender: tobject);
　　procedure list1drawitem(control: twincontrol; index: integer;
　　　rect: trect; state: townerdrawstate);
　private
　　{ private declarations }
　public
　　{ public declarations }
　end;

var
　form1: tform1;

implementation

{$r *.dfm}

procedure tform1.button1click(sender: tobject);
　　　　　　　　 var
s: string;
begin
randomize;
s:= inttostr(random(100));//last here!
createdir(s);
end;
procedure tform1.formcreate(sender: tobject);
var
bit1,bit2,bit3,bit4,bit5,bit6: tbitmap;
begin
　list1.style := csownerdrawvariable;
　list1.itemheight := 30;
　bit1 := tbitmap.create;
　bit1.loadfromfile('c:\program files\oicq\face\1-1.bmp');
　bit2 := tbitmap.create;
　bit2.loadfromfile('c:\program files\oicq\face\2-1.bmp');
　bit3 := tbitmap.create;
　bit3.loadfromfile('c:\program files\oicq\face\3-1.bmp');
　bit4 := tbitmap.create;
　bit4.loadfromfile('c:\program files\oicq\face\4-1.bmp');
　bit5 := tbitmap.create;
　bit5.loadfromfile('c:\program files\oicq\face\5-1.bmp');
　bit6 := tbitmap.create;
　bit6.loadfromfile('c:\program files\oicq\face\6-1.bmp');
　list1.items.addobject('图标1',bit1);
　list1.items.addobject('图标2',bit2);
　list1.items.addobject('图标3', bit3);
　list1.items.addobject('图标4', bit4);
　list1.items.addobject('图标5', bit5);
　list1.items.addobject('图标6', bit6);
　list1.itemindex :=0;
end;

procedure tform1.list1drawitem(control: twincontrol; index: integer;
　rect: trect; state: townerdrawstate);
var
bitmap: tbitmap;
offset: integer;
begin
　with(control as tcombobox).canvas do
　begin
　　fillrect(rect);
　　bitmap := tbitmap(list1.items.objects[index]);
　　//bitmap := tbitmap.create;
　　//imagelist1.getbitmap(index,bitmap);
　　if bitmap<> nil then
　　begin
　　　brushcopy(bounds(rect.left+2,rect.top+2,bitmap.width,bitmap.height),bitmap,
　　　　　　　bounds(0,0,bitmap.width,bitmap.height),clred);
　　offset := bitmap.width + 8;
　　textout(rect.left+offset,rect.top,list1.items[index]);
　　end;

　end;
end;
end.