Delphi中 OnDrawCell的使用技巧(2)

FileName1:=FileName1＋‘.bmp’;

//保存临时文件

MyDBImage .Picture .Bitmap .SaveToFile(FileName1) ; Grid .Cells[0,Index]:=ClientData.FieldByName(‘零件编号’).AsString；

Grid.Cells[1,Index]:=‘’;

//填写表格

Grid.Cells[2,Index]:=ClientData.FieldByName(‘实测数据’).AsString;

ClientData.Next;

Index:=Index＋1;

end;

MyDBImage.Destroy(); //释放DBImage

end;

2．拷贝图形

设置OnDrawCell事件，读取临时文件，并将图形拷贝到表格的指定列：

if ((ACol=1)and(ARow>0) and (Grid.ColCount>2)) then begin

//表格至少需要两列

FileName:=‘D:\temp\’;

S:=IntToStr(ARow);

FileName:=FileName＋S;

FileName:=FileName＋‘.bmp’;

MyImage:=TImage.Create(Self);//创建Image控件

MyImage.Parent:= self;

//读临时文件

MyImage.Picture.Bitmap.LoadFromFile(FileName);

//拷贝图形

Grid.Canvas.Draw(Rect.Left,Rect.Top,MyImage.

Picture.Graphic);

MyImage.Destroy(); //释放Image控件

end;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有