2.10.7 タブ・フォルダーのサンプルのソース

フォームのソースは、以下のようになっています。

Function Options(*DIRECT)
BEGIN_COM ROLE(*EXTENDS #PRIM_FORM) CAPTION('Sample IDE') CLIENTHEIGHT(457) CLIENTWIDTH(652) HEIGHT(484) LAYOUTMANAGER(#ATLM_1) LEFT(330) TOP(126) WIDTH(660)
DEFINE_COM CLASS(#PRIM_TAB) NAME(#TAB_1) DISPLAYPOSITION(1) DRAGSTYLE(Automatic) DRAGTABS(True) HEIGHT(457) LEFT(0) LEFTTABWIDTH(186) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(0) WIDTH(652)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_1) CAPTION('Outliner') DISPLAYPOSITION(1) DOCKALLOWEDPOSITIONS(Left+Bottom+Right) DOCKALLOWUNDOCK(True) DOCKCLOSEBUTTON(True) DOCKPOSITION(Left) HEIGHT(430) IMAGE(#STD_BTMAP) LEFT(4) OPENED(True) PARENT(#TAB_1) TABPOSITION(1) TABSTOP(False) TOP(23) WIDTH(178)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_2) CAPTION('Repository') DISPLAYPOSITION(2) DOCKALLOWEDPOSITIONS(Left+Bottom+Right) DOCKALLOWUNDOCK(True) DOCKCLOSEBUTTON(True) DOCKPOSITION(Left) HEIGHT(430) IMAGE(#VB_LOCK) LAYOUTMANAGER(#ATLM_1) LEFT(4) PARENT(#TAB_1) TABPOSITION(2) TABSTOP(False) TOP(23) WIDTH(178)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_4) CAPTION('Design') DISPLAYPOSITION(1) HEIGHT(431) LEFT(4) OPENED(True) PARENT(#TAB_1) TABPOSITION(1) TABSTOP(False) TOP(22) WIDTH(453)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_3) CAPTION('Source') DISPLAYPOSITION(2) HEIGHT(431) LAYOUTMANAGER(#ATLM_1) LEFT(4) PARENT(#TAB_1) TABPOSITION(2) TABSTOP(False) TOP(22) WIDTH(453)
DEFINE_COM CLASS(#PRIM_TAB) NAME(#TAB_2) DISPLAYPOSITION(1) HEIGHT(415) LEFT(0) PARENT(#TBSH_2) TABLOCATION(Bottom) TABPOSITION(1) TABSTOP(False) TOP(15) WIDTH(178)
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_1)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_1) ATTACHMENT(Center) MANAGE(#TAB_2) PARENT(#ATLM_1)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_5) CAPTION('Fields') DISPLAYPOSITION(1) HEIGHT(389) LAYOUTMANAGER(#ATLM_1) LEFT(4) OPENED(True) PARENT(#TAB_2) TABPOSITION(1) TABSTOP(False) TOP(4) WIDTH(170)

DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_6) CAPTION('Files') DISPLAYPOSITION(2) HEIGHT(389) LAYOUTMANAGER(#ATLM_1) LEFT(4) PARENT(#TAB_2) TABPOSITION(3) TABSTOP(False) TOP(4) WIDTH(170)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_7) CAPTION('Forms') DISPLAYPOSITION(3) HEIGHT(389) LAYOUTMANAGER(#ATLM_1) LEFT(4) PARENT(#TAB_2) TABPOSITION(2) TABSTOP(False) TOP(4) WIDTH(170)
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#FIELDS) COMPONENTVERSION(2) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(389) LEFT(0) PARENT(#TBSH_5) SHOWSORTARROW(True) TABPOSITION(1) TOP(0) WIDTH(170)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_2) ATTACHMENT(Center) MANAGE(#FIELDS) PARENT(#ATLM_1)
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#FILES) COMPONENTVERSION(2) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(389) LEFT(0) PARENT(#TBSH_6) SHOWSORTARROW(True) TABPOSITION(1) TOP(0) WIDTH(170)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_3) ATTACHMENT(Center) MANAGE(#FILES) PARENT(#ATLM_1)
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#FORMS) COMPONENTVERSION(2) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(389) LEFT(0) PARENT(#TBSH_7) SHOWSORTARROW(True) TABPOSITION(1) TOP(0) WIDTH(170)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_4) ATTACHMENT(Center) MANAGE(#FORMS) PARENT(#ATLM_1)
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) CAPTION('Form Name') CAPTIONTYPE(Caption) DISPLAYPOSITION(1) PARENT(#FORMS) SOURCE(#STD_TEXT) WIDTH(99)
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) CAPTION('File Name') CAPTIONTYPE(Caption) DISPLAYPOSITION(1) PARENT(#FILES) SOURCE(#STD_TEXT) WIDTH(100)
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) CAPTION('Field Name') CAPTIONTYPE(Caption) DISPLAYPOSITION(1) PARENT(#FIELDS) SOURCE(#STD_TEXT) WIDTH(95)
DEFINE_COM CLASS(#prim_memo) NAME(#source) CURRENTLINE(1) DISPLAYPOSITION(1) HEIGHT(431) LEFT(0) MAXIMUMLINELENGTH(50) PARENT(#TBSH_3) TABPOSITION(1) TOP(0) WIDTH(453)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_5) ATTACHMENT(Center) MANAGE(#source) PARENT(#ATLM_1)
DEFINE_COM CLASS(#PRIM_MECL) NAME(#MECL_1) COLUMNROLE(Data) DISPLAYPOSITION(1) PARENT(#source) SOURCE(#STD_TEXT)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_6) ATTACHMENT(Center) MANAGE(#TAB_1) PARENT(#ATLM_1)
Evtroutine Handling(#com_owner.Initialize)
#std_text := 'ADDRESS1'
Add_Entry To_List(#FIELDS)
Set Com(#fields.CurrentItem) Image(#VI_FOLDOP)
#std_text := 'SALARY'
Add_Entry To_List(#FIELDS)
Set Com(#fields.CurrentItem) Image(#VI_FOLDOP)
#std_text := 'STD_NUM'
Add_Entry To_List(#FIELDS)
Set Com(#fields.CurrentItem) Image(#VI_FOLDOP)
#std_text := 'STD_TEXT'
Add_Entry To_List(#FIELDS)
Set Com(#fields.CurrentItem) Image(#VI_FOLDOP)
#std_text := 'PSMLST'
Add_Entry To_List(#files)
Set Com(#files.CurrentItem) Image(#VI_EMPLOY)
#std_text := 'DEPTMENT'
Add_Entry To_List(#files)
Set Com(#files.CurrentItem) Image(#VI_EMPLOY)
#std_text := 'PSLSKL'
Add_Entry To_List(#files)
Set Com(#files.CurrentItem) Image(#VI_EMPLOY)
#std_text := 'FORM1'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM2'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM3'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM4'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM5'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM6'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM7'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM8'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM9'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM10'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM11'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM12'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM13'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM14'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'FORM15'
Add_Entry To_List(#forms)
Set Com(#forms.CurrentItem) Image(#STD_ICON)
#std_text := 'Function Options(*DIRECT)'
Add_Entry To_List(#source)
#std_text := '    Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(541) Clientwidth(825) Height(575) Left(340) Top(178) Width(833)'
Add_Entry To_List(#source)
#std_text := '        Define_Com Class(#PRIM_TAB) Name(#TAB_1) Displayposition(1) Docklefttabwidth(157) Height(489) Left(48) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(16) Width(713) \n End_Com'
Add_Entry To_List(#source)
#std_text := 'End_Com'
Add_Entry To_List(#source)
Endroutine
End_Com