Skip to content

pgiacomo69/TFormResizer

Folders and files

NameName
Last commit message
Last commit date

Latest commit

 

History

2 Commits
 
 
 
 
 
 
 
 

Repository files navigation

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, [email protected]

Version 2.0 adds font-resizing enhancements contributed by Wolfgang Kleinrath, [email protected]

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 until Delphi 10.3.3. 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

About

Component Resizer For Delphi Forms

Resources

Stars

Watchers

Forks

Releases

No releases published

Packages

No packages published

Languages