|
|
Visits:
2417
(16 on line)
|
Last Update: Dec 22, 2003
|
|
|
|
|
| | |
| Description Inheritance Example Properties Methods |
| |
| Description |
The TForm5 Object is the APL+Win Objects implementation of a Form object
It contains various properties, method and events for:
- eliminating flickering when resizing forms
- customizing the form System menu
- closing the form with the Esc key or not
- auto-documenting your forms
Many of its important methods and properties are implemented in TObject5 from which it inherits
See also: TChildForm5 TMDIForm5 |
| Description Inheritance Example Properties Methods |
| |
| Inheritance |
Inherits from: TObject5 |
| Description Inheritance Example Properties Methods |
| |
| Example |
| |
 |
| |
The above form is generated by the following APL+Win Objects™ code: |
'ff1'Świ'*Create' 'TForm5'('wherelc' Đ '<' 200 300)'*Show'
'ff2'Świ'*Create' 'TForm5'('wherelc' '<>' '<' 200 300)'*Show'
'ff3'Świ'*Create' 'TForm5'('wherelc' '<' '<' 200 300)'*Show'
'ff4'Świ'*Create' 'TForm5'('wherelc' '<' '<>' 200 300)'*Show'
'ff5'Świ'*Create' 'TForm5'('wherelc' '<' Đ 200 300)'*Show'
'ff6'Świ'*Create' 'TForm5'('wherelc' '<>' Đ 200 300)'*Show'
'ff7'Świ'*Create' 'TForm5'('wherelc' Đ Đ 200 300)'*Show'
'ff8'Świ'*Create' 'TForm5'('wherelc' Đ '<>'200 300)'*Show'
'ff9'Świ'*Create' 'TForm5'('wherelc' '<>' '<>'200 300)'*Show'
Śdl 5 Ş ((›'ff'),¨•¨Ľ9)Świ¨›'*Delete'
|
| |
| Description Inheritance Example Properties Methods |
| |
| Properties |
| |
|
| caption |
Description: Get or set the form caption (just a cover for the standard caption property)
Syntax: 'obj' Świ 'caption'caption
caption: a character string
Example:
'ff' Świ 'caption' 'This is the form title' |
| class |
Description: Return current object class
Syntax: class„'obj' Świ 'class' |
| dynresize |
Description: Get or Set the "dynamic resizing" of the form
Syntax: {dynresize„'} 'obj' Świ 'dynresize' {dynresize}
dynresize: 1=the form dynamically resizes itself 0(default)=it does not
Note: When a form has its <dynresize> bit set to 1, it resizes
itself automatically as controls are added to it.
Example:
'ff' Świ 'dynresize'1 |
| escape |
Description: Enables or disables the Escape shortcut key
Syntax: 'obj' Świ 'escape'boolean
boolean: a boolean value (1=the Esc key closes the form)
Example:
'ff' Świ 'escape'1 |
| font |
Description: Same syntax as APL+Win font property |
| gaps |
Description: Define horizontal and vertical default distance separating controls in pixels
Syntax: {gaps„'} 'obj' Świ 'gaps' {gaps}
gaps: vertical and horizontal gaps in pixels (integers)
Note: you may pass only one gap: it is then used for both the vertical and horizontal gaps
Example:
'ff' Świ 'gaps'10 © same as: 'ff' Świ 'gaps'10 10 |
| help |
Example:
0 0˝'ff1' Świ '*Create' 'TForm5' ('wherelc' Đ '<' 200 300) '*Show'
0 0˝'ff2' Świ '*Create' 'TForm5' ('wherelc' '<>' '<' 200 300) '*Show'
0 0˝'ff3' Świ '*Create' 'TForm5' ('wherelc' '<' '<' 200 300) '*Show'
0 0˝'ff4' Świ '*Create' 'TForm5' ('wherelc' '<' '<>' 200 300) '*Show'
0 0˝'ff5' Świ '*Create' 'TForm5' ('wherelc' '<' Đ 200 300) '*Show'
0 0˝'ff6' Świ '*Create' 'TForm5' ('wherelc' '<>' Đ 200 300) '*Show'
0 0˝'ff7' Świ '*Create' 'TForm5' ('wherelc' Đ Đ 200 300) '*Show'
0 0˝'ff8' Świ '*Create' 'TForm5' ('wherelc' Đ '<>'200 300) '*Show'
0 0˝'ff9' Świ '*Create' 'TForm5' ('wherelc' '<>' '<>'200 300) '*Show'
0 0˝Śdl 5 Ş ((›'ff'),¨•¨Ľ9)Świ¨›'*Delete' |
| margins |
Description: Define form top, left, bottom and right margins in pixels
Syntax: 'obj' Świ 'margins' {margins}
left,top,right,bottom: margins in pixels (integer) defined as 4˝margins
Example:
'ff' Świ 'margins'10 12 © same as: 'ff' Świ 'margins'10 12 10 12 |
| scroll |
Description: Create a horizontal and/or vertical scroll bar
Syntax: {(hscroll vscroll)„'} 'obj' Świ 'scroll' {hscroll vscroll}
hscroll: 1 if horizontal scroll bar, 0 otherwise
vscroll: 1 if horizontal scroll bar, 0 otherwise |
|
| Description Inheritance Example Properties Methods |
| |
| Methods |
| |
|
| Document |
Description: Document the form by displaying control names within each control
Syntax: 'obj' Świ 'Document' |
| New |
Description: Create a new instance of TForm5
Example:
'obj' Świ '*Create' 'TForm5'
|
|
| Description Inheritance Example Properties Methods |
| |
|
TForm5 