请教drawgrid的用法!!!!(100分)

  • 主题发起人 主题发起人 pentim
  • 开始时间 开始时间
P

pentim

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟在使用drawgrid时,需要放大drawgrid,但是同时又希望
在drawgrid上的cell里的东西都跟着放大(在cell里放了一些
类似图象的东东),有高手能指教指教吗?
另外,我还想要在放大的时候隐藏scrollbar,但是又不知道
窗口句柄怎么写。
 
用下面的方法:
MyRect:=DrawGrid1.CellRect(1,1);
DrawGrid1.Canvas.StretchDraw(MyRect,Image1.Picture.Btimap);
以上实现在第一行第一列中显示Image1中的位图。位图是跟着Cell放大的。
不要ScrollBar把DrawGrid的ScrollBars属性设为ssNone就可以了。
 
var
bbb:tbitmap;
myrect:trect;
begin
myrect:=drawgird1.cellrect(1,1);
bbb:=tbitmap.create;
bbb.canvas.assign(drawgrid1.canvas);
......
 
我试了fencer和cytown的方法,在放大的时候会出现问题,出错的信息为
“cannot assign a tcontrolcanvas to a tbitmapcanvas”,结果还是
放大不了,能解释的清楚点吗?
 
ondrawcell中写
DrawGrid1.Canvas.StretchDraw(MyRect,Image1.Picture.Btimap)
 
出错信息为Canvas类型不对,我不知你具体怎么编的。不过你在Form上放一个
Image 然后Load一个位图。将此Image的Visible设为False,肯定可以。最好不
要在OnDrawCell中写。可以在OnPaint或其它任何地方。仔细检查一下你用的是
哪个Canvas.
 
多人接受答案了。
 
后退
顶部