1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
|
Object oMain is a PanelGG
...Set Label to "ABC"
...Set Location to 4 3
...Set Size to 313 714
...Set Icon to "Firma32x32_2.ico"
...Object oCommandBarSystem is a cCJCommandBarSystem
......Set pbTimerUpdate to True
......Procedure DisplayTabWorkspace
.........Variant vTab
.........Handle hoTab
.........If (IsComObjectCreated(Self)) Begin
............Get Create U_cCJTabWorkspace to hoTab
............Get ComShowTabWorkspace True to vTab
............Set pvComObject of hoTab to vTab
............Set ComFlags of hoTab to xtpWorkspaceHideAll
............Send destroy of hoTab
............Send ComRecalcLayout
.........End
......End_Procedure
......Procedure OnCreateCommandBars
.........Handle hoOptions
.........Get OptionsObject to hoOptions
.........Forward Send OnCreateCommandBars
.........Send DisplayTabWorkspace
......End_Procedure
...
|
