delphi_Easysize_delphi7
所属分类:界面编程
开发工具:Delphi
文件大小:17KB
下载次数:26
上传日期:2017-02-21 10:13:15
上 传 者:
1843692
说明: 程序界面自动调整大小的软件,可用于最大化或分辨率自适应。
(The program interface automatically resizes the software that can be used to maximize or resolution adaptive.)
文件列表:
delphi_Easysize_delphi7\DEMO\Project1.cfg (434, 2003-12-21)
delphi_Easysize_delphi7\DEMO\Project1.dof (2571, 2003-12-21)
delphi_Easysize_delphi7\DEMO\Project1.dpr (182, 2003-12-21)
delphi_Easysize_delphi7\DEMO\Project1.res (876, 2003-12-21)
delphi_Easysize_delphi7\DEMO\Unit1.dcu (3988, 2003-12-21)
delphi_Easysize_delphi7\DEMO\Unit1.ddp (51, 2003-12-21)
delphi_Easysize_delphi7\DEMO\Unit1.dfm (1156, 2003-12-21)
delphi_Easysize_delphi7\DEMO\Unit1.pas (689, 2003-12-21)
delphi_Easysize_delphi7\Easysize.d16 (1662, 1999-05-25)
delphi_Easysize_delphi7\Easysize.d32 (480, 1999-05-11)
delphi_Easysize_delphi7\Easysize.dcu (8366, 2003-12-21)
delphi_Easysize_delphi7\Easysize.pas (18438, 2000-01-06)
delphi_Easysize_delphi7\mydelphi.8u8.com.txt (656, 2003-12-04)
delphi_Easysize_delphi7\DEMO (0, 2003-12-21)
delphi_Easysize_delphi7 (0, 2017-02-21)
VCL component TFormResizer 2.0
------------------------------
I. Credits, copyright, and warranty disclaimer
II. Usage instructions
III. Installation
IV. File list
I. CREDITS, COPYRIGHT, AND WARRANTY DISCLAIMER
Versions 1.0 and 1.1 written by David A. Price,
dprice@erols.com
Version 2.0 adds font-resizing enhancements contributed
by Wolfgang Kleinrath, office@kleinrath.at
Copyright 1999 by David A. Price
http://www.compcreate.com
This file may be redistributed freely if not altered
Suggestions are welcome
Offered "AS IS" -- no warranties
II. USAGE INSTRUCTIONS
The TFormResizer component resizes all of the components on a
form when the form size changes. It has been tested with
Delphi 1.0, 2.0, and 3, and should be compatible with Delphi 4.
To use TFormResizer, do the following three steps:
1. Add a TFormResizer component to the form.
2. In the form's OnCreate handler, add a call
to the component's InitializeForm method, e.g.,
FormResizer1.InitializeForm;
3. In the form's OnResize handler, add a call
to the component's ResizeAll method, e.g.,
FormResizer1.ResizeAll;
... and that's it. But there's more you can do if
you want more functionality:
* If you want the TFormResizer to scale the font size
of components as the form grows or shrinks, set
the ResizeFonts property to True. TFormResizer
works with all fonts, but you will get the best
results with TrueType fonts (such as Arial).
* If you also want the TFormResizer to enforce the
form's initial size as its minimum size, set the
EnforceMinSize property to True. (The user will
still be able to minimize the form into an icon
using the Windows minimize button.)
* If you want to add custom resizing behavior for a particular
component, add a handler for the TFormResizer's
OnPostResize event, which is fired after a component
is resized. Its arguments are
Sender: TObject -- as usual
Comp : TControl -- the component that has
just been resized
HeightRatio : Double -- ratio of the form's initial
height to its current height.
E.g., if the form's height has
doubled since the call to
InitializeForm, then HeightRatio
is 2.0.
WidthRatio : Double -- as above for form's width
Two quick samples of code for OnPostResize handlers:
if Comp = Button1 then
if WidthRatio < 0.8 then
Button1.Caption := ...
if Comp is TMyClass then
TMyClass(Comp).SomeProperty := ...
III. INSTALLATION
Install Easysize.pas as you normally would install a
component in your version of Delphi. The component
will appear on the "Additional" tab of your component
palette.
When installing to Delphi 1.0, you should have resource
file Easysize.d16 present in the same directory as
Easysize.pas (for the component's palette bitmap).
When installing for other versions of Delphi, you
should have resource file Easysize.d32 present in
the same directory as Easysize.pas.
IV. FILE LIST
Easysize.pas -- component source file
Easysize.d16 -- 16-bit resource file
Easysize.d32 -- 32-bit resource file
Readme.txt -- this text file
近期下载者:
相关文件:
收藏者: