すべてのリストアイテムのデザインインターフェースでOnFindメソッドを実行します |
リスト (PRIM_LIST) のメンバ
名前 | タイプ | データタイプ | 記述 |
|---|---|---|---|
Result | *Result (任意) | TRUEを返す最初のアイテムへの参照 | |
Key | *Input | バリアント | 検索される値 |
StartItem | *Input (任意) | 検索を開始するアイテム |
FindItem メソッドは、デザインインスタンスによって実装された Prim_List.iListCellDesign イ ンターフェイスの OnFind メソッドを呼び出します。
デザインインスタンスによって True が返された場合、 ListItem が Result として返されます。
項目が返されたり見つからない場合は、 FindItem 処理は停止します。
この例では、見つかったアイテムにはハイライトするスタイルが与えられています。
Mthroutine Name(Find)
Define_Map For(*Input) Class(#Prim_Alph) Name(#Key)
Define_Com Class(#prim_List.ListItem) Name(#FoundItem) Reference(*Dynamic)
Begin_Loop
#FoundItem <= #List.FindItem( #Key #FoundItem )
Leave If(#FoundItem *Is *Null)
#FoundItem.Style <= #MyStyles<Highlight>
End_Loop
Endroutine