Columns プロパティ
Columnsにより、カラムのプロパティにアクセスできます。
実行時のみのプロパティです。
Columnsプロパティを使って、リスト、グリッドやツリービューのカラムのプロパティにアクセスします。
Columnsはリストのカラム全てのコレクションを代表するものです：例えば最初のカラムのプロパティにアクセスするにはColumnsとして参照します。
次のステートメントでは、リストビューの最初のカラムのDisplayPositionとWidthを取り出します。
Set Com(#std_num) Value(#ltvw_1.columns.displayposition)
Set Com(#std_num_1) Value(#ltvw_1.columns.width)
カラムの属性を記録しておくと、後に元の状態に戻すときに便利です。 次のコードでは、For/Endforループを利用してリスト内のカラムを反復し、DisplayPositionとWidth属性を取り出してグリッドに入れます。 このコードをコピーして貼り付けることもできます。
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Caption('For/Endfor') Height(317) Left(300) Top(128) Width(397)
Define_Com Class(#PRIM_LTVW) Name(#LTVW_1) Displayposition(1) Fullrowselect(True) Height(145) Left(16) Parent(#COM_OWNER) Showalternatecolor(True) Showsortarrow(True) Tabposition(1) Top(24) Width(353)
Define_Com Class(#PRIM_GRID) Name(#GRID_1) Captionnoblanklines(True) Columnbuttonheight(19) Displayposition(2) Height(81) Left(200) Parent(#COM_OWNER) Rowheight(14) Showbuttonselection(True) Showselection(True) Showselectionhilight(False) Showsortarrow(True) Tabposition(2) Top(184) Width(168)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_1) Displayposition(1) Parent(#LTVW_1) Source(#EMPNO) Width(20)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_2) Displayposition(2) Parent(#LTVW_1) Source(#SURNAME) Width(40)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_3) Displayposition(3) Parent(#LTVW_1) Source(#GIVENAME) Width(20) Widthtype(Remainder)
Define_Com Class(#PRIM_GDCL) Name(#GDCL_1) Caption('DisplayPosition') Captiontype(Caption) Displayposition(1) Parent(#GRID_1) Source(#STD_NUM) Width(20) Widthtype(Remainder)
Define_Com Class(#PRIM_GDCL) Name(#GDCL_2) Caption('Width') Captiontype(Caption) Displayposition(2) Parent(#GRID_1) Source(#STD_AMNT) Width(50)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_1) Caption('Get Column Attributes') Displayposition(3) Left(16) Parent(#COM_OWNER) Tabposition(3) Top(184) Width(121)
Define_Com Class(#STD_NUM) Name(#STD_NUM)
Define_Com Class(#STD_AMNT) Name(#STD_AMNT)
Evtroutine Handling(#com_owner.Initialize)
Select Fields(#LTVW_1) From_File(PSLMST)
Add_Entry To_List(#LTVW_1)
Endselect
Endroutine
Evtroutine Handling(#PHBN_1.Click)
For Each(#Current) In(#ltvw_1.Columns)
Set Com(#std_num) Value(#current.displayposition)
Set Com(#std_amnt) Value(#current.width)
Add_Entry To_List(#GRID_1)
Endfor
Endroutine
End_Com