Automatisch zum selectierten Eintrag scrollen?

[Kai]

Also, ich möchte gerne das in der ListIconGadget automatisch der selectierte Eintrag angezeigt wird.
Sprich wenn ich mit der Zeile SetGadgetState(0,60) den Eintrag 60
auswähle wird dieser zwar selectiert, aber es wird nicht dorthin gescrollt.

Ich wollte nun sohne art Suchfunktion zusammenbasteln,
so das dann automatisch zur gesuchten NR gescrollt wird,
weiß jemand wir man das realisieren kann?

Hoffe man versteht was ich will.

Code: Alles auswählen

If OpenWindow(0, 270, 239, 340, 233,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Test Demonstration")
 If CreateGadgetList(WindowID())
  ListIconGadget(0, 0, 0, 340, 200, "NR", 100,#PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_Selected)
 EndIf
EndIf

AddGadgetColumn(0,1,"Name",200)
For a = 1 To 80
 AddGadgetItem(0,-1,Str(a)+Chr(10)+"Testeintrag")
Next
SetGadgetState(0,60)

Repeat: Until = WaitWindowEvent() = #PB_Event_CloseWindow

[Donald]

Hi Kai,

Eintrag selectieren:

Code: Alles auswählen

SetGadgetItemState(#LI1, i, 1)

Scrollt bis selectierter Eintrag sichtbar ist.

Code: Alles auswählen

SendMessage_(GadgetID(#LI1),#LVM_ENSUREVISIBLE,i,#True) 

i = Eintrag (Zeile)

[Kai]

@Donald:
DANKÖÖÖÖ funktioniert supi.

PS. im Codearchiv gibbet auch was, is aba bissl komplizierter.^^