|
|
Visits:
2414
(14 on line)
|
Last Update: Dec 21, 2003
|
|
|
|
|
| | |
| Description Inheritance Example Properties Methods |
| |
| Description |
The TComboTree5 object is combo box allowing multiple selections.
It displays a combo box where each item has a check box next to it. When you check items in
the combo drop down list, these items are displayed in the Edit field, separated by a semi-colon.
Thus your application can retrieve the selected items by simply reading the Edit field <text> property
See also: TTree5 |
| Description Inheritance Example Properties Methods |
| |
| Inheritance |
Inherits from: TCombo5 TObject5 |
| Description Inheritance Example Properties Methods |
| |
| Example |
| |
 |
| |
The above form is generated by the following APL+Win Objects™ code: |
'ff'wi'*Create' 'TForm5'('*caption' 'TComboTree5 Example')
'ff'wi'*.cbt.Create' 'TComboTree5'('wherelc'5 5 200 350)('attach'1 2 3 2)
'ff.cbt'wi'*Set'('tree' 'APL+PC' 'APL+Dos' 'APL+Win' 'APL+Unix' 'APL+Link')('*text' 'APL+Win;APL+Unix')
'ff'wi'*.ed.Create' 'TEdit5'('wherelc' '>' '='Π'=')('attach'1 2 3 2)
'ff'wi'Redim'
'ff'wi'wherelc' '°' '°'300'°'
'ff'wi'Show'
|
| |
| Description Inheritance Example Properties Methods |
| |
| Properties |
| |
|
| attach |
Description: Specified how an object is attached to its parent
Syntax: {parentsides}'obj' wi 'attach' {parentsides}
parentsides: numeric vector of object parent sides to which
the left, top, right and bottom object sides
(always in this order: left,top,right,bottom) are attached
Notes: parent sides are numbered as follows:
1=left 2=top 3=right 4=bottom
Thus: 1 2 3 2 means:
left object side is attached to left parent side (1)
top object side is attached to top parent side (2)
right object side is attached to right parent side (3)
bottom object side is attached to top parent side (2)
3 2 3 4 means:
left object side is attached to right parent side (3)
top object side is attached to top parent side (2)
right object side is attached to right parent side (3)
bottom object side is attached to bottom parent side (4)
Note: attach property needed by TEditGrid5, ... to avoid recursion
Note: the processing of the <attach> property is done by the TObject5 <Attach> method
Example:
'ff' wi '*Create' 'TForm5' ('*caption' 'attach demo')
'ff.ed1' wi '*Create' 'TEdit5' ('wherelc'Π(100 ―90'Name')Π 200) ('attach'1 2 3 2)
'ff.ed2' wi '*Create' 'TEdit5' ('wherelc' '>' ('=' ―90'Comment')Π 200) ('attach'1 2 3 4)
'ff' wi 'Redim' ͺ 'ff' wi 'Show' |
| class |
Description: Return current object class
Syntax: class'obj' wi 'class' |
| help |
Example:
0 0½'ff' wi '*Create' 'TForm5' ('*caption' 'TComboTree5 Example')
0 0½'ff' wi '*.cbt.Create' 'TComboTree5' ('wherelc'5 5 200 350) ('attach'1 2 3 2)
'ff.cbt' wi '*Set' ('tree' 'APL+PC' 'APL+Dos' 'APL+Win' 'APL+Unix' 'APL+Link') ('*text' 'APL+Win;APL+Unix')
0 0½'ff' wi '*.ed.Create' 'TEdit5' ('wherelc' '>' '='Π'=') ('attach'1 2 3 2)
'ff' wi 'Redim'
'ff' wi 'wherelc' '°' '°'300'°'
'ff' wi 'Show' |
| tree |
Description: Get or Set the list of labels to be displayed in the control
Syntax: 'obj' wi 'tree' {nestedvector}
nestedvector: a list of labels
Example:
'ff.cbt' wi 'tree' 'APL+PC' 'APL+Dos' 'APL+Win' 'APL+Unix' 'APL+Link' |
| wherelc |
Description: Generalized <where> property allowing to set control position relatively to other controls
Syntax: {where'} 'obj' wi 'where' {where}
1where
value absolute vertical position in pixels
Π for a control: at gap from top of form
for a form: at gap from top of screen
> below "current" control+gap
>control below "control"+gap
>> below "current" control with no gap
>>control below "control" with no gap
= same vertical position as "current" control
=control same vertical position as "control"
<> for a control: vertically centered in parent
for a form: vertically center within screen
<>control vertically centered compared to control
#< vertically center control between top of form and previous control
># vertically center control between previous control and bottom of form
< for a control: at "gap" from bottom of parent
for a form: at gap from bottom of screen
<< for a control: at bottom of parent
for a form: at bottom of screen
<control bottom aligned with "control"-gap
<<control bottom aligned with "control"
<<<control above control with margin
° leave vertical position unchanged
2B
value absolute horizontal position in pixels
Π for a control: at gap from left of form
for a form: at gap from left of screen
> right of current control with gap
>control right of specified control with gap
>> right of current control with no gap
>>control right of control with no gap
= same horizontal position as current control
=control same horizontal position as "control"
<> horizontally centered in parent
for a form, horizontally center within screen
<>control horizontally centered compared to control
#< horizontally center control between left of form and previous control
># horizontally center control between previous control and right of form
< at "gap" from right parent edge
for a form, at gap from right of screen
<< at right of parent
for a form, at right of screen
<control right aligned with "control"-gap
<<control right aligned with "control"
<<<control before control with margin
° leave horizontal position unchanged
(hpos captionpos 'caption')
hpos: horizontal position (same as 2B)
captionpos: positive number
absolute horizontal position in pixels
negative number
relative position from left of TEdit5
'>'
right justified to left of TEdit5
'='
use same position as previous label
''
same horizontal position as TEdit5, but above it
(moves TEdit5 down except if TEdit5 bottom aligned or
centered in form)
caption: the TEdit5 associated label
3B
= same height as current control
° leave height unchanged
Π default height for this class of control
> extend to bottom of container with margin
>control extend to bottom of <control> with margin
>> extend to bottom of container with no margin
>>control extend to bottom of <control> with no margin
<<control extend to top of <control> with no margin
<control extend to top of <control> with margin
4B
= same width as current control
° leave width unchanged
Π default width for this class of control
> extend to right of container with margin
>control extend to right of <control> with margin
>> extend to right of container with no margin
>>control extend to right of <control> with no margin
<<control extend to left of <control> with no margin
<control extend to left of <control> with margin
same width as object caption (useful for Option Buttons and Check Boxes)
NN NN+same width as object caption
5B
vertical position adjustment in pixels
6B
horizontal position adjustment in pixels
'=label' means adjust horizontal position by width of Label
'=NN+label' means adjust horizontal position by width of Label + NN pixels
7B
height adjustment in pixels
8B
width adjustment in pixels
'=label' means adjust control width by width of Label
'=NN+label' means adjust control width by width of Label + NN pixels
Example:
'ff.ed1' wi 'wherelc' '=' '>..ed2' Π 0 0 0 0 '=as long as this text'
('wherelc'5(100 95'Test')Π 200)
('wherelc'5(100 ―95'Test')Π 200)
('wherelc'5(100 '>' 'Test')Π 200)
('wherelc'5(100 '=' 'Test')Π 200)
('wherelc'5(100 '' 'Test')Π 200) |
|
| Description Inheritance Example Properties Methods |
| |
| Methods |
| |
|
| New |
Description: Create a new instance of TComboTree5
Example:
'obj' wi '*Create' 'TComboTree5'
|
|
| Description Inheritance Example Properties Methods |
| |
|
TComboTree5 