Contents

・
ResizeKit2
Overview
Setup for Delphi Editions
Setup for C++Builder Editions
Setup for RAD Studio and BDS 2006 Editions
Setup for ActiveX Edition
Distributing Applications
Technical Support
ResizeKit2 License Agreement
Purchase the ResizeKit2
Control Reference
Properties
Enabled
FormHeight
FormMaxHeight
FormMinHeight
FormWidth
FormMaxWidth
FormMinWidth
FormPos
NoResizeCtl
NoResizeFntCtl
ResizeFont
ValidTaskbar
Methods
DynamicAdd
DynamicDelete
Events
ExitResize

 
Home
ResizeKit2 Online Help
Prev Page Next Page
 
  ・

This event is generated after the form has been resized.

In ActiveX [form.]Sub resizecontrolname_ExitResize(ByVal XScale As Double, ByVal YScale As Double)
In VCL [form.]form.resizecontrolnameExitResize(Sender: TObject; XScale, YScale: Double)

Parameters

XScale: Gives the width of the form after resizing as a factor of the width of the initial display of the form.
      (Width of resized form / width of initial display of the form)

YScale: Gives the height of the form after resizing as a factor of the height of the initial display of the form.
      (Height of resized form / height of initial display of the form).

Explanation

The ExitResize event is generated after the form has been resized. Using this event, you can customize the resize process to execute code that you want to occur when a form has been resized (i.e. adding code to adjust the fonts within the individual cells of a grid control).

For example, the following VB code displays the values returned by the XScale and YScale parameters in a label:

 

   Private Sub ResizeKit1_ExitResize(ByVal XScale As Double, ByVal YScale As Double)
      Dim Msg As String
      Msg = "The form's initial display was resized. " & vbCr
      Msg = Msg & "Width" & " X " & Left(CStr(XScale), 5) & vbCr
      Msg = Msg & "Height" & " X " & Left(CStr(YScale), 5) & vbCr
      Label1.Caption = Msg
   End Sub

 

 

The ResizeKit2 is a product of Newtone Corporation. Visit our website at http://www.imagekit.com/resizekit2.html for more information