ドロップダウン アイテム - Visible プロパティ

アイテムの表示または非表示

ドロップダウン アイテム (PRIM_MD.DropdownItem) のメンバ

ﾃﾞｰﾀ ﾀｲﾌﾟ - ブール値

詳細

Visible はアイテムが表示されていると TRUE を返します。

例

次の例では、アイテムはキャプション値に数字フィールドの値が含まれている場合にのみ表示され、このフィールドが 0 に等しい場合、すべてのエントリーが表示されます。

Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME) Layoutmanager(#Layout1)
 
    Define_Com Class(#PRIM_TBLO) Name(#Layout1)
    Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Displayposition(1) Parent(#Layout1)
    Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Displayposition(1) Parent(#Layout1)
    Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item1) Alignment(TopLeft) Column(#Layout1Column1) Manage(#SpinEdit) Parent(#Layout1) Row(#Layout1Row1) Sizing(FitToWidth) Flow(Down)
    Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item2) Alignment(TopLeft) Column(#Layout1Column1) Manage(#DropDown) Parent(#Layout1) Row(#Layout1Row1) Sizing(FitToWidth) Flow(Down)
    Define_Com Class(#PRIM_MD.Dropdown) Name(#DropDown) Caption('Caption') Displayposition(1) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(0) Width(1200)
    Define_Com Class(#PRIM_MD.SpinEdit) Name(#SpinEdit) Caption('Caption') Displayposition(2) Left(0) Parent(#COM_OWNER) Tabposition(2) Top(75) Width(1200)
 
        Evtroutine Handling(#COM_OWNER.Initialize)
 
            Begin_Loop Using(#xDemoNumber) To(15)
 
                #DropDown.Items.Add( #xDemoNumber.AsString )
 
            End_Loop
 
        Endroutine
 
        Evtroutine Handling(#SpinEdit.Changed)
 
            For Each(#entry) In(#DropDown.Items)
 
                #entry.Visible := (#entry.Caption.AsNumber = #SpinEdit) Or (#SpinEdit = 0)
 
            Endfor
 
        Endroutine
 
End_Com

参照

すべてのコンポーネント クラス

テクニカルリファレンス

EPC142030 February 2019