リストアイコンの現在のアイテム |
PRIM_MD.ListIcon (PRIM_MD.ListIcon) のメンバ
データタイプ - PRIM_MD.ListIconCurrentItem - リストアイコンの現在のアイテム
CurrentItem は、SELECTLIST や GET_ENTRY などの LANSA のリスト コマンド、またはマウスやキーボードにより最後に扱われたリスト内のアイテムです。
CurrentItem が設定されると、このリスト 定義に関連付けられたフィールド値がコンポーネントに返されます。これにより、イベントが起動された時に最後のアイテムのフィールド値が正しいことを確実にすることができます。
CurrentItem を頼りにして最後にクリックされたアイテムを識別する際には注意が必要です。これは実際は FocusItem になり、これは別のアイテムがクリックされるまで変更されません。 ですが CurrentItem はシンプルなマウスオーバーによる影響を受けます。
Currentitem は、DoubleClick イベントや SELECTLIST などのリストに直接関連する処理に一番適しています。
ボタンのクリックにより最後のアイテムを処理する場合など、外部ソースにより起動されるアクションを扱うる場合は、FocusItem を使用することが推奨されています。
リスト内のアイテムに対して反復処理を行う FOR コマンドは CurrentItem に影響を与えません。
CurrentItem を使ってリストに追加された最後のアイテムに対するイメージを設定します。
Add_Entry To_List(#List)
#Edit.CurrentItem.Icon := 'edit'
CurrentItem を SELECTLIST のループ内で使用して、読み取り専用のエントリーを非表示にします。
SelectList Named(#List)
#Edit.CurrentItem.Visible := (*Not #ReadOnly)
EndSelect
FOR コマンドを使用すると、並べ替えられた順序で項目が繰り返し処理されますが、 CurrentItem は設定されません。
GET_ENTRY を使って CurrentItem を設定し、確実にコンポーネントにフィールド値が返されるようにします。
For Each(#Item) in(#List.Items)
Get_Entry Number(#Item.Entry) From_List(#List)
* ユーザーの処理をここに記述
EndFor