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