RowSizing プロパティ
RowSizingプロパティを使用して、行がどのようにサイズ調整されるかを指定できます。 このプロパティは、RowResizeプロパティがTrueに設定されている時のみ有効になります。
ひとまとまりの行のサイズ変更を可能にするには、Groupに設定します。
行のサイズ変更を各個別の行の高さに適用させるには、Individualに設定します。
コンテンツのサイズを調整するには、ContentHeightを使用します。
このプロパティの使用方法を確認するには、次のソースをコピーしてフォームに貼り付け、フォームをコンパイルして実行してください。
FUNCTION options(*DIRECT)
BEGIN_COM ROLE(*EXTENDS #PRIM_FORM) CLIENTHEIGHT(226) CLIENTWIDTH(412) HEIGHT(253) LEFT(478) TOP(122) WIDTH(420)
DEFINE_COM CLASS(#PRIM_GRID) NAME(#GRID_1) COLUMNBUTTONHEIGHT(18) COLUMNBUTTONPRESS(True) DISPLAYPOSITION(1) HEIGHT(201) LEFT(32) PARENT(#COM_OWNER) ROWRESIZE(True) SHOWSELECTION(True) TABPOSITION(1) TOP(16) WIDTH(233)
DEFINE_COM CLASS(#PRIM_GDCL) NAME(#GDCL_1) CAPTIONALIGN(Left) DISPLAYPOSITION(1) PARENT(#GRID_1) SORTONCLICK(True) SOURCE(#EMPNO) WIDTH(36)
DEFINE_COM CLASS(#PRIM_GDCL) NAME(#GDCL_2) CAPTIONALIGN(Left) DISPLAYPOSITION(2) PARENT(#GRID_1) SOURCE(#SURNAME) WIDTH(65) WIDTHTYPE(Remainder)
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('Row Sizing') DISPLAYPOSITION(2) HEIGHT(105) LEFT(280) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(16) WIDTH(121)
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_2) BUTTONCHECKED(True) CAPTION('Group') DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_1) TABPOSITION(1) TOP(40) WIDTH(65)
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_1) CAPTION('Individual') DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_1) TABPOSITION(2) TOP(16) WIDTH(81)
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_3) CAPTION('ContentHeight') DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_1) TABPOSITION(3) TOP(64) WIDTH(105)
EVTROUTINE handling(#COM_OWNER.Initialize) options(*NOCLEARMESSAGES *NOCLEARERRORS)
SELECT fields(#GRID_1) from_file(PSLMST)
ADD_ENTRY to_list(#GRID_1)
ENDSELECT
ENDROUTINE
EVTROUTINE handling(#RDBN_1.Click)
IF cond('#RDBN_1.buttonchecked *eq true')
SET com(#grid_1) ROWSIZING(Individual)
ENDIF
ENDROUTINE
EVTROUTINE handling(#RDBN_2.Click)
IF cond('#RDBN_2.buttonchecked *eq true')
SET com(#grid_1) ROWSIZING(group)
ENDIF
ENDROUTINE
EVTROUTINE handling(#RDBN_3.Click)
IF cond('#RDBN_3.buttonchecked *eq true')
SET com(#grid_1) ROWSIZING(ContentHeight)
ENDIF
ENDROUTINE
END_COM