请问有无这样的“缩放”工具?(100分)

  • 主题发起人 主题发起人 victor
  • 开始时间 开始时间
V

victor

Unregistered / Unconfirmed
GUEST, unregistred user!
请问有能将整个form上显示的内容(包括button, edit框等等)都同
时放大缩小的控件或工具吗?

 
用代码可以完成此功能,但涉及字体时好象不好办.
 
我见过,好象在www.torry.ru里有。
另外在ufo2000.126.com里有个activeX可以办同样的事
 
能具体一点点吗? 谢谢!

我查了ufo2000.126.com,好象里面没东西。

 
好象是有一个,具体什么名字想不起来了.不免费的.
 
哇...呜..... :....&
Menxin,wuyi你们说说公道话....
现在挣点小分.....容易...嘛......
给了下载站点都懒得找的说!.....
呜..........
:~(
太.....太伤我的心了.......
唉,谁叫咱是个好同志呢
victor,拿去吧...

http://z34.163.net/vb/f_rszocx3.zip

是个破解了的OCX,可以完成你的要求。
另外torry有个控件也可以,不过是shareware,只可以在IDE运行。
又没找到破解。
所以就先用这个吧!

 
如果在教育网内, 下面这个地址可能快些.
ftp://ftp.cs.pku.edu.cn/pub1/ProgramSource/JPGs_ActiveX_or_OCX/Resize_OCX3.0/f_rszocx3.zip
 
?????
几百万变回答这个问题了,呵呵
TResize 自己搜索呀,呵呵,我也不想赚这分了
 
to cj:
>> TResize 自己搜索呀
可我却没有也没找到.
 
nuke:

我下载了resize.ocx. 但怎么不能
对屏幕进行缩放啊?
能告诉我怎么用吗?有什么要注意的。

谢谢!
 
请继续讨论或结束此问题!
 
我有,想要吗?先给我加分,我就发给你.
 
victor:
我看就是自己做也不难,几天前找到一个method好像是能缩放form and controls in form,但现在找不出来了,等我找到了在贴出来.下面我提供一种方法,你看行不行!

TWinControl *button;

for(int i=0; i < ComponentCount; i++)
{
//Check to see if the component is a TWinControl
if (dynamic_cast<TWinControl *>(Components))
{
//cast the component to a TButton *
button = (TWinControl *)Components;
button->ScaleBy(1,2);// 缩放函数,1/2=50%.
}
}
然后你可以改变form的height and width.
 
WWW:

先给控件吧,我再加分给你。

DancingAgain:
我将试试你的想法。

都先谢了。
 
to Victor:
menxin提到的问题"用代码可以完成此功能,但涉及字体时好象不好办",我也发现了,victor您的要求如果不高的话,可以使用如下代码:

Label1->AutoSize = true;
Label1->Font->Size = Label1->Font->Size * (M/N);
m/n是缩放比例,这种方法对不同的字体我都试了一下.

BTW(您能不用控件就不要用,程序一旦出出错就不好办了);
Good luck!



 
DancingAgain:

谢谢你的建议,我将考虑。

是这样的,我的form上还有BMP图,等,
有汉字,button, panel, shape

 
多人接受答案了。
 

Similar threads

D
回复
0
查看
744
DelphiTeacher的专栏
D
D
回复
0
查看
749
DelphiTeacher的专栏
D
D
回复
0
查看
764
DelphiTeacher的专栏
D
后退
顶部