关于DrawGrid笨笨的问题……(50分)

  • 主题发起人 主题发起人 狐狸精
  • 开始时间 开始时间

狐狸精

Unregistered / Unconfirmed
GUEST, unregistred user!
问:把从.res文件中取出的图片怎么放到DrawGrid指定的方格中。

偶知道不难,以前偶自己弄过,现在就是弄不出了[:(]
请各位老大帮忙[8D]
 
试试下面的代码:
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
bitmap1:tbitmap;
begin
if (acol=2) and (arow=2) then
begin
BitMap1 := TBitMap.Create;
BitMap1.LoadFromResourceName(HInstance,'THEBITMAP');
with drawgrid1.Canvas do
begin
StretchDraw(Rect, Bitmap1);
end;
bitmap1.free;
end;
end;
 
是这样的,我的资源文件里有几个,取出后要顺序往下填(DrawGrid只有一列)
 
后退
顶部