熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

Delphi中OnDrawCell的使用技巧[3]

2013-11-23 17:36:52  來源: Delphi編程 

  .拷貝圖形

  設置OnDrawCell事件讀取臨時文件並將圖形拷貝到表格的指定列

if ((ACol=)and(ARow>) and (GridColCount>)) then begin

//表格至少需要兩列

FileName:=D: emp;

S:=IntToStr(ARow);

FileName:=FileName+S;

FileName:=FileName+bmp;

MyImage:=TImageCreate(Self);//創建Image控件

MyImageParent:= self;

//讀臨時文件

MyImagePictureBitmapLoadFromFile(FileName);

//拷貝圖形

GridCanvasDraw(RectLeftRectTopMyImage

PictureGraphic);

MyImageDestroy(); //釋放Image控件

end;

[]  []  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/24773.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.