Ellipses プロパティ
Ellipsesプロパティを使って、ラベルにテキストが入りきらなかった場合にどのように処理するかを制御します。 このプロパティは、次の値を取ることができます：
None: テキストは切り捨てられます。
Word: ラベルに入りきらないテキストは切り捨てられ、省略記号が追加されます。
End: 文字列の一番最後がラベルに入りきらない場合、これが切り捨てられ、省略記号が追加されます。 文字列の一番最後ではない単語がラベルの制限を超える場合は、省略記号なしに切り捨てられます。
Path: ラベルに入るように、文字列の中央部分の文字が省略記号に置き換えられます。 文字列にバックスラッシュ(\)の文字が含まれる場合、最後のバックスラッシュの後に来る文字列はできる限り残されます。
このプロパティの使用方法を確認するには、次のソースをコピーしてフォームに貼り付け、フォームをコンパイルして実行してください。
FUNCTION options(*DIRECT)
BEGIN_COM role(*EXTENDS #PRIM_FORM) CAPTION('Label Ellipse Property Example') HEIGHT(147) LEFT(381) TOP(172) WIDTH(289)
DEFINE_COM class(#PRIM_LABL) name(#LABL_1) CAPTION('Text too long to fit in the label caption') DISPLAYPOSITION(1) HEIGHT(27) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(14) WIDTH(135) WORDWRAP(False)
DEFINE_COM class(#PRIM_LABL) name(#LABL_2) CAPTION('C:\Program Files\Too Long.txt') DISPLAYPOSITION(2) HEIGHT(25) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(56) WIDTH(135) WORDWRAP(False)
DEFINE_COM class(#PRIM_GPBX) name(#GPBX_1) CAPTION('Ellipses') DISPLAYPOSITION(3) HEIGHT(98) LEFT(168) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(15) WIDTH(97)
DEFINE_COM class(#PRIM_RDBN) name(#RDBN_END) CAPTION('End') DISPLAYPOSITION(1) HEIGHT(18) LEFT(15) PARENT(#GPBX_1) TABPOSITION(1) TOP(23) WIDTH(50)
DEFINE_COM class(#PRIM_RDBN) name(#RDBN_NONE) BUTTONCHECKED(True) CAPTION('None') DISPLAYPOSITION(2) HEIGHT(17) LEFT(16) PARENT(#GPBX_1) TABPOSITION(2) TOP(40) WIDTH(57)
DEFINE_COM class(#PRIM_RDBN) name(#RDBN_PATH) CAPTION('Path') DISPLAYPOSITION(3) HEIGHT(17) LEFT(16) PARENT(#GPBX_1) TABPOSITION(3) TOP(56) WIDTH(49)
DEFINE_COM class(#PRIM_RDBN) name(#RDBN_WORD) CAPTION('Word') DISPLAYPOSITION(4) HEIGHT(17) LEFT(16) PARENT(#GPBX_1) TABPOSITION(4) TOP(72) WIDTH(65)
EVTROUTINE handling(#com_owner.Initialize)
SET com(#com_owner) CAPTION(*component_desc)
ENDROUTINE
SUBROUTINE name(DOELLIPSES)
IF cond('#RDBN_END.Buttonchecked = true')
SET com(#LABL_1) ELLIPSES(end)
SET com(#LABL_2) ELLIPSES(end)
ENDIF
IF cond('#RDBN_WORD.Buttonchecked = true')
SET com(#LABL_1) ELLIPSES(WORD)
SET com(#LABL_2) ELLIPSES(WORD)
ENDIF
IF cond('#RDBN_path.Buttonchecked = true')
SET com(#LABL_1) ELLIPSES(path)
SET com(#LABL_2) ELLIPSES(path)
ENDIF
IF cond('#RDBN_NONE.Buttonchecked = true')
SET com(#LABL_1) ELLIPSES(none)
SET com(#LABL_2) ELLIPSES(none)
ENDIF
ENDROUTINE
EVTROUTINE handling(#RDBN_END.Click)
EXECUTE subroutine(DOELLIPSES)
ENDROUTINE
EVTROUTINE handling(#RDBN_NONE.Click)
EXECUTE subroutine(DOELLIPSES)
ENDROUTINE
EVTROUTINE handling(#RDBN_PATH.Click)
EXECUTE subroutine(DOELLIPSES)
ENDROUTINE
EVTROUTINE handling(#RDBN_WORD.Click)
EXECUTE subroutine(DOELLIPSES)
ENDROUTINE
END_COM