ToolbarTips Problem

Übersicht BlitzMax, BlitzMax NG Beginners-Corner

Neue Antwort erstellen

Pebender

Betreff: ToolbarTips Problem

BeitragMi, Jan 18, 2017 10:53
Antworten mit Zitat
Benutzer-Profile anzeigen
Guten Morgen,
sorry das ich nerve, aber solange ich nerve, schreibt auch jemand im Board.
Ich möchte zu der Toolbar die ToolBarTips angezeigt bekommen, aber ich bekomme es nicht gesch...en.
Der Code selbst ist aus dem englischen Forum, an dem ich nur zum teste.
Ich habe irgendwie ein Konvertierungsproblem....glaub ich zumindest.
Ich habe schon viele Codes ausprobiert, aber diese funktionieren irgendwie nie...

Code: [AUSKLAPPEN]

SuperStrict

Import MaxGui.Drivers
Import BaH.DBSQLite
Import BRL.filesystem
Local tip:String[]=["wee","bee","poi"]
Local window:TGadget=CreateWindow("My Window",40,40,620,440)

'Load your icon images from a file
'Each icon should have two visual states: off and on, beside each other
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
DisableGadgetItem(toolbar,2)
   
'-----------------Hauptschleife
Repeat
    WaitEvent ()
     Select EventID()
    Case EVENT_WINDOWCLOSE      'wenn Fenster geschlossen wird
       End                  'wird das Programm beendet
      Case EVENT_GADGETACTION
         Select EventData()
          Case 0
            SetToolbarTips toolbar,tip[0]
            Case 1
               SetStatusText window, "Toolbar Item Clicked: " + EventData()
                Print"wert"
            Print"es gibt "+CountGadgetItems( toolbar )+" einträge"
   
End Select
End Select
   
      
Forever


kann mir jemand erklären, wie das funktioniert ??

mfg Peter
BMax & MaxGUI

Pebender

BeitragMi, Jan 18, 2017 14:38
Antworten mit Zitat
Benutzer-Profile anzeigen
So habe es jetzt so gelöst, ganz ohne ARRAY´s, gottsei Dank Laughing

Code: [AUSKLAPPEN]
Import MaxGui.Drivers
Import BaH.DBSQLite
Import BRL.filesystem
SuperStrict
           
Local Window:TGadget= CreateWindow ("My Window",50,50,800,600)
'Local Panel:TGadget = CreatePanel (50,50,800,42,Window)
Local Toolbar:TGadget= CreateToolbar("",0,0,800,32,window)


Local url:String="c:\module_bmx/" '<---Change this location
Local icons:TIconStrip=LoadIconStrip(url+"toolbar2.png")
SetGadgetIconStrip(toolbar, icons)

AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,0,"Datenbank erstellen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,1,"Datenbank umbenennen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,2,"Datenbank suchen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,3,"Datenbank löschen"
AddGadgetItem toolbar,"",GADGETITEM_NORMAL,4,"Datenbank Backup"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,5,"Abteilung anlegen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,6,"Abteilunge bearbeiten"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,7,"Abteilung suchen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,8,"Abteilung löschen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,9,"Regal anlegen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,10,"Regal bearbeiten"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,11,"Regal suchen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,12,"Regal löschen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,13,"Platz anlegen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,14,"Platz bearbeiten"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,15,"Platz suchen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,16,"Platz löschen"
AddGadgetItem Toolbar,"",GADGETITEM_NORMAL,17,"Druckauswahl"


While WaitEvent()
   Select EventID()
   Case EVENT_MOUSEENTER
      Case EVENT_GADGETACTION
         If EventSource()=toolbar
            Print "ToolBar GadgetAction~nEventData()="+EventData()
         EndIf
      Case EVENT_WINDOWCLOSE
         End
   End Select
Wend
BMax & MaxGUI

Xeres

Moderator

BeitragDo, Jan 19, 2017 21:30
Antworten mit Zitat
Benutzer-Profile anzeigen
Du schriebst dazu nicht, was nicht funktionierte - aber grundsätzlich finde ich die Variante mit Array eleganter.
Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
T
HERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Pebender

BeitragDo, Jan 19, 2017 22:10
Antworten mit Zitat
Benutzer-Profile anzeigen
Guten Abend,

eleganter finde ich das auch, aber wenn ich das so gemacht habe, wie in den ganzen Beipielen,
kam immer eine Fehlermeldung, das kein String in StringArray umgewandelt werden kann, oder kein String in einen StringArray, so z.B.
Danach habe ich mich für diese Lösung entschieden.

mfg
BMax & MaxGUI

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group