delphi怎样使在Image控件上画的图显示最前面和最后面的图形?(要用单击 ToolButton控件实现)(200分)

  • 主题发起人 主题发起人 Emily
  • 开始时间 开始时间
E

Emily

Unregistered / Unconfirmed
GUEST, unregistred user!
例如我在Image控件上已经画了100个椭圆,但是显示界面上只能看到10个,这样我用两个Toolbutton实现显示最前面10个和最后面10个的功能,具体该如何
实现呢,请各位大侠帮忙!!!小弟感激不尽!!!
 
如有会者,敬请尽快通知我!
 
先不画,按了ToolButton再画。
 
先不画是不行的。
另外wjiachun能不能再说具体一点?谢谢!
 
呵呵,就是你按了ToolButton重画啊,不过那好像也不行了?
 
可不可以把你的代码贴出来,这样大家容易理解,也可以给你修改修改!
 
invalidate后要update才全部刷新的,(好像有此文没关系)
是不是画的过程比较占用资源,试一试在每画一个圆之后先refresh再
application.processmessage.我曾在单步跟踪一个绘制过程时这样可以及
时看到它每次画了些什么的.
 
为什么只显示最前10个和最后面10个?

Form中放一个ScrollBox,ScrollBox中放Image;
Image的Align:=alNone;
Height:=足够高(有限制);
Width:= 足够宽(有限制);
画图,用Scrollbar看。

不知道能否满足你的要求?
或是我把题意理解错了。
 
没贴完:
如果一定要用Toolbutton,编程控制ScrollBox。
ScrollBox.HorzScrollBar.Position
ScrollBox.VertScrollBar.Position
如果不喜欢ScrollBar,Visible:=false;!
完全可以满足你的要求。
 
多人接受答案了。
 
后退
顶部