C
chenliyan163
Unregistered / Unconfirmed
GUEST, unregistred user!
就像在photoshop中显示的标尺一样(当图像放大时那个标尺也随着图像的放大而放大,反之也一样)
B
Blueman
Unregistered / Unconfirmed
GUEST, unregistred user!
http://www.torry.net/vcl/sizers/rulers/adruler.zip
可以通过修改unitsize属性实现你的功能。
通常1厘米100%设置值为：28.346 （10mm/25.4*72)，然后放大缩小多少用这个值乘以相应倍数即可。
可以通过修改unitsize属性实现你的功能。
通常1厘米100%设置值为：28.346 （10mm/25.4*72)，然后放大缩小多少用这个值乘以相应倍数即可。
C
chenliyan163
Unregistered / Unconfirmed
GUEST, unregistred user!
大哥:
您能告诉我这个控件是怎么加的吗?谢谢
您能告诉我这个控件是怎么加的吗?谢谢
B
Blueman
Unregistered / Unconfirmed
GUEST, unregistred user!
解开压缩包，双击Ruler.pas打开它，点击Delphi主菜单Component/Installl Component弹出Installl Component对话框，点OK，有一个设置package的窗口，点Install就可以装好。
这个控件是安装在'Samples'面板下名为TRuler。
老兄，够详细了吧？没问题了吧：）
这个控件是安装在'Samples'面板下名为TRuler。
老兄，够详细了吧？没问题了吧：）
C
chenliyan163
Unregistered / Unconfirmed
GUEST, unregistred user!
嗯,谢谢大哥,如果我是以毫米为单位那么,那个unitsize属性28.346 是否要改成283.46[
]
]
C
chenliyan163
Unregistered / Unconfirmed
GUEST, unregistred user!
大哥好哇,我想问您一下,这个尺子控件是否可以跟image一块儿打印呀,
问题解决我愿再给分
问题解决我愿再给分
B
Blueman
Unregistered / Unconfirmed
GUEST, unregistred user!
用毫米为单位不是设unitsize，而是unitprice，设成10就是毫米了。unitsize是用来设置一个单位在屏幕上宽度是多少。
可以打印呀，有两种方法：
一是改它的paint方法，把东西画到printer.canvas上去；
第二种是取得它Canvas的bitmap，然后Draw 或 StretchDraw到printer.canvas上去；
第一种方法要改unitsize属性，计算机方法：10mm/25.4*DPI， DPI是你打印机的分辨率。
每二种方法用Draw方法画的话也要改unitsize，并且还要改Font，用StretchDraw可能画出来的效果不太好。
不要给分啦，分多了我也没用：） 那个控件很简单的，又带源码，自己多摸摸吧。
可以打印呀，有两种方法：
一是改它的paint方法，把东西画到printer.canvas上去；
第二种是取得它Canvas的bitmap，然后Draw 或 StretchDraw到printer.canvas上去；
第一种方法要改unitsize属性，计算机方法：10mm/25.4*DPI， DPI是你打印机的分辨率。
每二种方法用Draw方法画的话也要改unitsize，并且还要改Font，用StretchDraw可能画出来的效果不太好。
不要给分啦，分多了我也没用：） 那个控件很简单的，又带源码，自己多摸摸吧。
C
chenliyan163
Unregistered / Unconfirmed
GUEST, unregistred user!
大哥,小妹是不是很笨呀,连这个都搞不清,555
您可不可以给我一个代码,小妹感激不敬[:I]
您可不可以给我一个代码,小妹感激不敬[:I]