OICQ中使用者圖示選擇的實現 (轉)
unit Unit1;
interface
uses
, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
List1: TComboBox;
Button1: TButton;
procedure Button1Click(Sender: T);
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
Ranize;
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;
end;
end;
end.
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-987429/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- [Java實現] 圖片擇優(選擇最清楚的圖片)Java
- js將選擇的圖片顯示在img中JS
- ABAP選擇螢幕:根據使用者選擇動態顯示螢幕(轉老宋)
- 選擇下拉選單項實現跳轉效果
- PPT中圖表型別的選擇型別
- JavaScript 實現日曆式日期選擇 (轉)JavaScript
- OICQ登入號碼清除器實現原理 (轉)
- win10 選擇圖示怎麼顯示工作列_win10選擇快速操作圖示如何顯示在工作列Win10
- 設計完圖示如何選擇圖示格式給到開發?
- Android 實現一個仿微信的圖片選擇器Android
- 選擇排序java實現排序Java
- Android的GridView中的選中圖示後圖示的背景顏色AndroidView
- 鴻蒙跳轉到相簿或者檔案選擇圖片並顯示到Image控制元件中鴻蒙控制元件
- 用HTML實現COMBOX 下拉選擇框 (轉)HTML
- 實現帶圖示的ListViewView
- 在選單中加入圖示 (轉)
- vue實現城市列表選擇Vue
- 選擇排序(python)實現排序Python
- 使用 CSS 選擇器實現對不含 title 屬性元素的選擇CSS
- 商品屬性的選擇功能的實現
- 資料夾選擇對話方塊 JS實現(轉)JS
- :OICQ圖形留言系統 OICQ PIC 3.20(430字)
- 圖解選擇排序及演算法優化(Java實現)圖解排序演算法優化Java
- Android中呼叫攝像頭拍照儲存,並在相簿中選擇圖片顯示Android
- 在Delphi中實現圖片的旋轉、縮放 (轉)
- jquery實現上下滑動選擇jQuery
- 使用Qt5+CMake實現圖片的區域選擇(附原始碼)QT原始碼
- 管理Mac電腦選單欄中的圖示Mac
- sqlplus中“已選擇XX行”的顯示和去除SQL
- echarts 柱狀圖的選中模式實現-被選中變色和再次選中為取消變色Echarts模式
- 鴻蒙無許可權實現圖片選擇拍照和錄影片鴻蒙
- WEB開發中合理選擇圖片格式Web
- Dcat-Admin SelectTable 表格選擇器選擇後顯示使用者頭像和暱稱
- WPF/C#:在DataGrid中顯示選擇框C#
- 圖床的選擇和使用圖床
- ASwing 中 JTree 實現 folder 自定義圖示
- python排序演算法的實現-選擇Python排序演算法
- jquery中的選擇器jQuery