AdvStringGrid 中加载图片

2016-12-20 19:24:58来源:CSDN作者:tesily人点击

第七城市
procedure TForm1.AdvStringGrid4DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
 d: TBitmap;
Const
 Path= 'qpsl.bmp';
 path1= 'qpt.bmp';
begin
 d:= TBitmap.Create;
 d.LoadFromFile(Path);
 if (ACol = 10) and (ARow = 1)  then
 begin
   AdvStringGrid4.Canvas.Draw(Rect.Left,Rect.Top,d);
 end;
 d.Free;

 d:= TBitmap.Create;
 d.LoadFromFile(Path1);
 if (ACol = 12) and (ARow = 8)  then
 begin
   AdvStringGrid4.Canvas.Draw(Rect.Left,Rect.Top,d);
 end;
 d.Free;

end;
第七城市

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台