如何操作Image.Canvas上画出的图形? ( 积分: 200 )

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

hrp123

Unregistered / Unconfirmed
GUEST, unregistred user!
比如,我用此方法在Image.Canvas.Rectangle(PP1.X, PP1.Y, PP2.X, PP2.Y)画出的矩形框.我想实现以下几点
1:可以选择任意一个或多个画出的矩形框;
2:可以进行移到/缩放/删除操作
 
tms组件中有一个THotSpotShape可以实现该功能
 
不想用第三方控件来替代或实现!
 
你可以参考控件中的代码, 总比你自己写代码要简单的多
 
tms组件是个什么组件,能否给我一份szfity@163.com

多谢!
 
从网上下一个就行
http://www.tomore.com/2/43892.html
 
使用 TPaintBox 吧,Image需要重画才会更新图象
 
用TPaintBox怎么实现,能否贴些代码?
 
for i := 0 to 225 do
begin
PBLCD.Canvas.Pixels[25 + i, 15] := 1;
PBLCD.Canvas.Pixels[25 + i, 135] := 1;
PBLCD.Canvas.Pixels[25 + i + 1, 136] := 1;
end;
for i := 0 to 120 do
begin
PBLCD.Canvas.Pixels[25, 15 + i] := 1;
PBLCD.Canvas.Pixels[250, 15 + i] := 1;
PBLCD.Canvas.Pixels[251, 15 + i + 1] := 1;

end;
PBLCD就是Paintbox画矩形,放在onpaint里面
 
没有更好的办法了吗？
 
使用矢量图形引擎TCAD开发软件．
http://www.codeidea.com
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
M
如何保存图形的一部分？(50分)
回复
4
查看
145
xgw404
X
I
问一下Canvas上画图的一些操作。(50分)
回复
11
查看
175
icet
I
B
我在一处Timage上画图，怎么才能让用PEN画线在用BRUSH填充的图形区显示出来.(100分)
回复
5
查看
213
Boblee
B
R
canvas中如何，清除已画的图形；(10分)
回复
5
查看
1K
Richard-sun
R
后退
顶部