急!!! DrawGrid 的图象(200分)

  • 主题发起人 主题发起人 hanzac
  • 开始时间 开始时间
H

hanzac

Unregistered / Unconfirmed
GUEST, unregistred user!

我用DrawGrid画的图象,如果DrawGrid当前屏显示不了,图象会以滚动条的滚动而消
失,怎样才能让图象不消失!

请各位帮帮忙!
 
ondrawcell里重画。
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=168794
 
其实delphi的帮助里也非常清楚,drawcell事件的帮助原文大意如下
以下代码在drawgrid的每个cell中绘制存储于imagelist1元件中的位图,当某个
cell得到焦点后,在这个cell上画一个边框做标示,cell就是你的drawgrid中的
每个网格。
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; aCol, aRow: Longint;
Rect: TRect; State: TGridDrawState);
var
index: integer;
begin
index := Row * DrawGrid1.ColCount + Col;
with Sender as TDrawGrid do
begin
Canvas.Brush.Color := clBackGround;
Canvas.FillRect(Rect);
ImageList1.Draw(Canvas,Rect.Left,Rect.Top,index);
if gdFocused in State then
Canvas.DrawFocusRect(Rect);
end;

end;
 
可以结束了吧 :)
 
接受答案了.
 
后退
顶部