You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Next »

[ |../../index.htm#lansa/l4wdev06_1580.htm]
現在地:

2.11.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
 
[ |../../index.htm#lansa/l4wdev06_1580.htm]

  • No labels