如何在TListview控件上画图
解决方案 »
- 求助:各位大虾,我刚装上fastreport不知道到怎么设置,请进来指点一下,谢谢!
- 同步问题,高难度问题。
- 如何显示查找后的数据!!!!
- 如何卸载掉BDE administrator(不用通过卸载delphi)
- 怎样用ADOquery 执行UPDATE INSERT 和DELETE ,用ADOCOMMAND 的话又怎样开始执行
- BetterWMf复制Autocad进入word 去掉多余空白区域 求实现原理
- 关于ADOConnection连接多个数据库的问题?(在线等待)急!急!
- Excel的存储规则,也就是保存Excel时,他的各字节代表什么意思
- 高分问题,100分,请问哪里有MIS的源码下载啊?
- 有谁知道CathySun118 的联系方式
- 不同unit或者说Form间的参数传递
- 基于MIDAS的三层结构能否在internet上实现?
unit ListViewMain;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
ComCtrls, ImgList;
type
TForm1 = class(TForm)
ListView1: TListView;
ImageList1: TImageList;
procedure ListView1CustomDraw(Sender:
TCustomListView;
const ARect: TRect; var DefaultDraw:
Boolean);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Bitmap1: TBitmap;
implementation
{$R *.DFM}procedure TForm1.ListView1CustomDraw(Sender:
TCustomListView;
const ARect: TRect; var DefaultDraw: Boolean);
var
x,y,w,h : LongInt;
begin
with Bitmap1 do begin
W := Width;
H := Height;
end;
Y := 0;
while Y < Height do begin
X := 0;
while X < Width do begin
ListView1.Canvas.Draw(X, Y, Bitmap1);
Inc(X, W);
end;
Inc(Y, H);
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap1 := TBitmap.Create;
Bitmap1.LoadFromFile('backgray.bmp');
end;procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Bitmap1.Free;
end;end.