ToolbarTips Problem
Übersicht BlitzMax, BlitzMax NG Beginners-Corner
PebenderBetreff: ToolbarTips Problem |
Mi, Jan 18, 2017 10:53 Antworten mit Zitat |
|
---|---|---|
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 |
Mi, Jan 18, 2017 14:38 Antworten mit Zitat |
|
---|---|---|
So habe es jetzt so gelöst, ganz ohne ARRAY´s, gottsei Dank
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 |
XeresModerator |
Do, Jan 19, 2017 21:30 Antworten mit Zitat |
|
---|---|---|
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 THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld) |
Pebender |
Do, Jan 19, 2017 22:10 Antworten mit Zitat |
|
---|---|---|
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 |
Übersicht BlitzMax, BlitzMax NG Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group