OICQ中用户图标选择的实现 (转)

最新推荐文章于 2019-10-09 12:50:08 发布

转载最新推荐文章于 2019-10-09 12:50:08 发布 · 96 阅读

本文介绍了一个用于OICQ的用户图标选择功能的实现方法。通过使用Delphi编程语言，文章展示了如何加载和显示不同的图标选项，并通过下拉列表的形式让用户进行选择。

OICQ中用户图标选择的实现 (转)[@more@]

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 FilesOicqface1-1.bmp');
Bit2 := TBitmap.Create;
Bit2.LoadFromFile('C:Program FilesOicqface2-1.bmp');
Bit3 := TBitmap.Create;
Bit3.LoadFromFile('C:Program FilesOicqface3-1.bmp');
Bit4 := TBitmap.Create;
Bit4.LoadFromFile('C:Program FilesOicqface4-1.bmp');
Bit5 := TBitmap.Create;
Bit5.LoadFromFile('C:Program FilesOicqface5-1.bmp');
Bit6 := TBitmap.Create;
Bit6.LoadFromFile('C:Program FilesOicqface6-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;