Prüfen, ob Combobox ausgeklappt.

[BSP]

Hallo.
Folgendes Prg aus der WinAPILibrary
funktioniert in PB4.51, aber nicht mehr in PB4.60 (aktueller Download)

Kann das jemannd bestätigen
und weiss jemannd Abhilfe?

Gruß & Dank:
Bernd

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ComboBoxGadget(1,10,10,100,20,0)
  AddGadgetItem(1,-1,"Test-Eintrag")
  TextGadget(2,10,50,200,20,"ComboBox ist eingeklappt.",0)
  
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_Gadget
  Select EventGadget()
    Case 1
      If SendMessage_(GadgetID(1), #CB_GETDROPPEDSTATE, 0, 0)
        SetGadgetText(2,"ComboBox ist ausgeklappt.")
      Else
        SetGadgetText(2,"ComboBox ist eingeklappt.")
      EndIf
  EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf

[dige]

Beim ausklappen wird kein Event durchgereicht. Du musst entweder
per Callback die Message abfangen oder den Status periodisch
prüfen:

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ComboBoxGadget(1,10,10,100,20,0)
  AddGadgetItem(1,-1,"Test-Eintrag")
  TextGadget(2,10,50,200,20,"ComboBox ist eingeklappt.",0)
  
  Repeat
    EventID=WaitWindowEvent(1000)
    
    If SendMessage_(GadgetID(1), #CB_GETDROPPEDSTATE, 0, 0)
      SetGadgetText(2,"ComboBox ist ausgeklappt.")
    Else
      SetGadgetText(2,"ComboBox ist eingeklappt.")
    EndIf
    
  Until EventID = #PB_Event_CloseWindow
EndIf

[BSP]

Danke, dige.
Ja, so funktionierts.
Merkwürdig ist das aber trotzdem.
Denn unter PB4.5 funktioniert das noch.
Erst der Compiler 4.60 macht da nicht mit.

Dann muss das bitte in der WinAPILibrary auch geändert werden.
(Schade, hatte ich doch damals gedacht, auch einen kleinen Beitrag geleistet zu haben. Smile).

Gruß: Bernd

[RSBasic]

Habs notiert. Wird #Lieblingswort geändert

#Lieblingswort = "demnächst"

[dige]

Naja, eigentlich sollte PB das Event durchreichen.
Habs mir mal mit PB 4.50 angeschaut, da kommt ein:

EventType() = 7 beim ausklappen
EventType() = 8 beim einklappen

Ich werde das als Bug im englischen Forum posten...

PS: Vermutlich ist das im Zuge der erweiterten Combobox
mit Bildern (#PB_ComboBox_Image) weggefallen oder
nicht mehr möglich?

[ts-soft]

Ich denke, das wegen der neuen Crossplattform events, musste das Gadget gesubclassed werden, so das die API messages nicht
mehr im EventLoop ankommen. Ist Imho ein akzeptabler Kompromiss. Wer die Events benötigt, sollte selber Subclassen.
Also definitiv kein Bug.