Toolbar Abfrage

Übersicht BlitzMax, BlitzMax NG Beginners-Corner

Neue Antwort erstellen

Pebender

Betreff: Toolbar Abfrage

BeitragDi, Jan 17, 2017 10:12
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragDi, Jan 17, 2017 12:35
Antworten mit Zitat
Benutzer-Profile anzeigen
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

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group