Toolbar Abfrage
Übersicht BlitzMax, BlitzMax NG Beginners-Corner
PebenderBetreff: Toolbar Abfrage |
Di, Jan 17, 2017 10:12 Antworten mit Zitat |
|
---|---|---|
Hallo,
ich tue es mir etwas schwer mit den Eventabfragen. Ich habe mir eine Toolbar in Photoshop gemacht, und möchte die in mein Programm integrieren, bekomme es aber nicht hin, die einzelne Icons abzufragen. wenn ich es so mache : Code: [AUSKLAPPEN] Local icons:TIconStrip=LoadIconStrip("c:\module_bmx/toolbar.png")
'Create an 'empty' toolbar Local toolbar:TGadget=CreateToolbar("",0,0,640,32,window) 'Associate your icons with your toolbar SetGadgetIconStrip(toolbar, icons) 'Attach each individual icon, set it as a toggle 'Remember, every second visual icon represent the 'on' state For Local n:Int=0 To icons.count - 1 Step 2 AddGadgetItem toolbar, String(n), GADGETITEM_NORMAL,n Next While True WaitEvent Select EventID() Case EVENT_WINDOWCLOSE End Case Event_Gadgetaction GadgetItemIcon toolbar,0 Print"wer" GadgetItemIcon toolbar,1 Print"pppppr" Select EventSource() End Select End Select Wend End so kann ich die Icons zwar abfragen, aber egal welches Icon ich anklicke, zeigt er mir wie hier beiden Printanweisungen an, wie fragt man denn das so ab, das das richtig funktioniert, in der Suche habe ich leider nichts passendes gefunden. mfg |
||
BMax & MaxGUI |
Pebender |
Di, Jan 17, 2017 12:35 Antworten mit Zitat |
|
---|---|---|
ok, habe es selbst herausgefunden:
so funktioniert es: Code: [AUSKLAPPEN] Repeat
WaitEvent () Select EventID() Case EVENT_WINDOWCLOSE 'wenn Fenster geschlossen wird End 'wird das Programm beendet Case EVENT_GADGETACTION Select EventData() Case 0 Print"hallo" Case 1 SetStatusText window, "Toolbar Item Clicked: " + EventData() Print"wert" Print"es gibt "+CountGadgetItems( toolbar )+" einträge" End Select End Select Forever mfg |
||
BMax & MaxGUI |
Übersicht BlitzMax, BlitzMax NG Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group