Code: Alles auswählen
Procedure ColGadFirst(GridNr.i,ColGadNr.i)
HideGadget(ColGadNr,0)
DisableGadget(ColGadNr,0)
DisableGadget(GridNr,1)
SetActiveGadget(ColGadNr) ; <-----
EndProcedure
Code: Alles auswählen
Procedure ColGadFirst(GridNr.i,ColGadNr.i)
HideGadget(ColGadNr,0)
DisableGadget(ColGadNr,0)
DisableGadget(GridNr,1)
SetActiveGadget(ColGadNr) ; <-----
EndProcedure
Damit funktioniert Dein Beispiel doch:mk-soft hat geschrieben:Ich glaube das reicht...Code: Alles auswählen
InvalidateRect_(GadgetID(Gadget), 0, #True)
Code: Alles auswählen
EnableExplicit
;Umschalten zwischen des Gadgets mit F1 bzw. F2
Define WinNr.i,LIcNr.i,GadNr.i,Ev.i,Nr.i,GridZeile.s,ColGad.i
Procedure GridFirst(GridNr.i,ColGadNr.i)
HideGadget(ColGadNr,1)
DisableGadget(ColGadNr,1)
DisableGadget(GridNr,0)
SetActiveGadget(GridNr)
EndProcedure
Procedure ColGadFirst(GridNr.i,ColGadNr.i)
HideGadget(ColGadNr,0)
DisableGadget(ColGadNr,0)
DisableGadget(GridNr,1)
InvalidateRect_(GadgetID(ColGadNr), 0, #True)
SetActiveGadget(ColGadNr) ; <-- nach einem Hinweis von matbal geändert,Danke!
EndProcedure
WinNr=OpenWindow(#PB_Any,20,20,600,200,"Testwindow")
AddKeyboardShortcut(WinNr,#PB_Shortcut_F1,1)
AddKeyboardShortcut(WinNr,#PB_Shortcut_F2,2)
LicNr=ListIconGadget(#PB_Any,10,30,400,160,"Nr",50,#PB_ListIcon_FullRowSelect)
ColGad=ComboBoxGadget(#PB_Any,80,48,80,30)
AddGadgetItem(ColGad,-1,"Auswahl A1")
AddGadgetItem(ColGad,-1,"Auswahl b1")
AddGadgetItem(ColGad,-1,"Auswahl C1")
SetGadgetText(ColGad,"Auswahl b1")
AddGadgetColumn(LicNr,1,"Spalte 1",90)
AddGadgetColumn(LicNr,2,"Spalte 2",90)
AddGadgetColumn(LicNr,3,"Spalte 3",90)
For Nr=1 To 5
GridZeile=Str(Nr)+Chr(10)+"A"+Chr(10)+"B"+Chr(10)+"C"+Chr(10)
AddGadgetItem(LicNr,-1,GridZeile)
Next
Repeat
Ev=WaitWindowEvent()
If Ev=#PB_Event_Menu
Select EventMenu()
Case 1
ColGadFirst(LicNr,ColGad)
Case 2
GridFirst(LicNr,ColGad)
EndSelect
EndIf
Until Ev=#PB_Event_CloseWindow