TCustomForm.SetRestoredBounds procedure

Member of TCustomFormpublicIn unit Forms

Sets the bounds for the restored control.

Declaration

pascal

procedure SetRestoredBounds(ALeft: Integer; ATop: Integer; 
 AWidth: Integer; AHeight: Integer; 
 const ADefaultPosition: Boolean=False)

Arguments

`ALeft`	Value to restore to the Left property for the form.
`ATop`	Value to restore to the Top property for the form.
`AWidth`	Value to restore to the Width property for the form.
`AHeight`	Value to restore to the Height property for the form.
`ADefaultPosition`	True if the form is moved to the monitor and location in the Position property.

Description

Ensures that the parameter values are used in the form instance. No actions are performed in the method when ALeft, ATop, AWidth, and AHeight are already assigned to the corresponding properties in the form instance.

Temporarily sets WindowState to wsNormal, and calls SetBounds to apply the parameter values to the form instance. Calls MoveToDefaultPosition when ADefaultPosition is True. Restores WindowState to its original value, and updates the values for the RestoredLeft, RestoredRight, RestoredWidth, and RestoredHeight properties.

Called from the AfterConstruction method prior to signalling the OnCreate event handler and applying the automatic layout policy for the form instance.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.