MaxGui FontSize Butten-Gruppe

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

	StarGazer Betreff: MaxGui FontSize Butten-Gruppe	So, Aug 24, 2008 22:13 Antworten mit Zitat
Hallo, ich arbeite mich seid neusten in MaxGui. So Einiges habe ich schon geschafft oder hier im Forum Beispiele gefunden. Doch bei zwei Sachen komme ich nicht weiter. 1. Kann man ohne einen neuen Font reinzuladen, die FontSize jederzeit verändern ?, in den verschieden Gadgets, Labes, TextAreas ect ? Er nimmt aktuell die Fontgröße von Windows an, was nicht so gut ist. 2. Und ich weis nicht wie man herrausfinden kann, welche der RadioButton inhalb des Panels angeklickt ist. Also ob es der erste oder dritte ist, ect. Eigentlich müste das doch gehen, das sie ja wohl irgend einer Gruppe angehören, da ja immer nur einer angeklickt ist. Hoffe es kann mir jemand helfen. Zitat: Import MaxGUI.Drivers Strict Local MyWindow:TGadget=CreateWindow("MyWindow", 200,200,320,200) Local MyPanel:TGadget[2] MyPanel[0] = CreatePanel(30,10, 100,50, MyWindow,PANEL_GROUP,"Panel1") CreateButton("", 5, 5, 25,25, MyPanel[0], BUTTON_RADIO\|BUTTON_PUSH) CreateButton("", 35,5, 25,25, MyPanel[0], BUTTON_RADIO\|BUTTON_PUSH) CreateButton("", 65,5, 25,25, MyPanel[0], BUTTON_RADIO\|BUTTON_PUSH) MyPanel[1] = CreatePanel(170,10, 130,50, MyWindow,PANEL_GROUP,"Panel2") CreateButton("", 5, 5, 25,25, MyPanel[1], BUTTON_RADIO\|BUTTON_PUSH) CreateButton("", 35,5, 25,25, MyPanel[1], BUTTON_RADIO\|BUTTON_PUSH) CreateButton("", 65,5, 25,25, MyPanel[1], BUTTON_RADIO\|BUTTON_PUSH) CreateButton("", 95,5, 25,25, MyPanel[1], BUTTON_RADIO\|BUTTON_PUSH) Local MyLabel:TGadget = CreateLabel("TestText soll kleinere FontSize haben",10,80, 300,20,MyWindow) Repeat WaitEvent() Select EventID() Case EVENT_WINDOWCLOSE End End Select Forever

StarGazer

Betreff: MaxGui FontSize Butten-Gruppe

So, Aug 24, 2008 22:13
Antworten mit Zitat

Hallo,

ich arbeite mich seid neusten in MaxGui.
So Einiges habe ich schon geschafft oder hier im Forum Beispiele gefunden. Doch bei zwei Sachen komme ich nicht weiter.

1. Kann man ohne einen neuen Font reinzuladen, die FontSize jederzeit verändern ?, in den verschieden Gadgets, Labes, TextAreas ect ?
Er nimmt aktuell die Fontgröße von Windows an, was nicht so gut ist.

2. Und ich weis nicht wie man herrausfinden kann, welche der RadioButton inhalb des Panels angeklickt ist.
Also ob es der erste oder dritte ist, ect. Eigentlich müste das doch gehen, das sie ja wohl irgend einer Gruppe angehören, da ja immer nur einer angeklickt ist.

Hoffe es kann mir jemand helfen.

Zitat:

Import MaxGUI.Drivers

Strict

Local MyWindow:TGadget=CreateWindow("MyWindow", 200,200,320,200)

Local MyPanel:TGadget[2]
MyPanel[0] = CreatePanel(30,10, 100,50, MyWindow,PANEL_GROUP,"Panel1")
CreateButton("", 5, 5, 25,25, MyPanel[0], BUTTON_RADIO|BUTTON_PUSH)
CreateButton("", 35,5, 25,25, MyPanel[0], BUTTON_RADIO|BUTTON_PUSH)
CreateButton("", 65,5, 25,25, MyPanel[0], BUTTON_RADIO|BUTTON_PUSH)

MyPanel[1] = CreatePanel(170,10, 130,50, MyWindow,PANEL_GROUP,"Panel2")
CreateButton("", 5, 5, 25,25, MyPanel[1], BUTTON_RADIO|BUTTON_PUSH)
CreateButton("", 35,5, 25,25, MyPanel[1], BUTTON_RADIO|BUTTON_PUSH)
CreateButton("", 65,5, 25,25, MyPanel[1], BUTTON_RADIO|BUTTON_PUSH)
CreateButton("", 95,5, 25,25, MyPanel[1], BUTTON_RADIO|BUTTON_PUSH)

Local MyLabel:TGadget = CreateLabel("TestText soll kleinere FontSize haben",10,80, 300,20,MyWindow)

Repeat
WaitEvent()
Select EventID()
Case EVENT_WINDOWCLOSE
End
End Select
Forever

	jsp	Mo, Aug 25, 2008 22:01 Antworten mit Zitat
Die Radio Button brauchen einen Variablennamen damit man sie spaeter wieder identifizieren kann. Man kann einen Font natuerlich mehrfach verwenden, wuesste aber nicht das man die Groesse in MaxGui 'on the fly' aendern kann. Code: [AUSKLAPPEN] [EINKLAPPEN] Import MaxGUI.Drivers Strict Local MyPanel:TGadget[2] Local MyWindow:TGadget = CreateWindow:TGadget("MyWindow",400,203,320,200,Null,WINDOW_TITLEBAR\|WINDOW_RESIZABLE \|WINDOW_MENU \|WINDOW_STATUS ) MyPanel[0]= CreatePanel:TGadget(30,10,100,50,MyWindow:TGadget,PANEL_GROUP,"Panel1") Local Button3:TGadget = CreateButton:TGadget("",65,5,25,25,MyPanel[0],BUTTON_RADIO) Local Button1:TGadget = CreateButton:TGadget("",5,5,25,25,MyPanel[0],BUTTON_RADIO) Local Button2:TGadget = CreateButton:TGadget("",35,5,25,25,MyPanel[0],BUTTON_RADIO) MyPanel[1]= CreatePanel:TGadget(170,10,130,50,MyWindow:TGadget,PANEL_GROUP,"Panel2") Local Button5:TGadget = CreateButton:TGadget("",35,5,25,25,MyPanel[1],BUTTON_RADIO) Local Button6:TGadget = CreateButton:TGadget("",65,5,25,25,MyPanel[1],BUTTON_RADIO) Local Button7:TGadget = CreateButton:TGadget("",95,5,25,25,MyPanel[1],BUTTON_RADIO) Local Button4:TGadget = CreateButton:TGadget("",5,5,25,25,MyPanel[1],BUTTON_RADIO) Local MyLabel:TGadget = CreateLabel:TGadget("TestText soll kleinere FontSize haben",10,80,300,20,MyWindow:TGadget,Null) Local Font_MyLabel:TGuiFont = LoadGuiFont:TGuiFont( "Tahoma" , 8 , False , False , False ) SetGadgetFont( MyLabel:TGadget, Font_MyLabel:TGuiFont ) Repeat WaitEvent() Select EventID() Case EVENT_WINDOWCLOSE Select EventSource() Case MyWindow MyWindow_WC( MyWindow:TGadget ) End Select Case EVENT_GADGETACTION Select EventSource() Case Button5 Button5_GA( Button5:TGadget ) Case Button6 Button6_GA( Button6:TGadget ) Case Button7 Button7_GA( Button7:TGadget ) Case Button3 Button3_GA( Button3:TGadget ) Case Button1 Button1_GA( Button1:TGadget ) Case Button2 Button2_GA( Button2:TGadget ) Case Button4 Button4_GA( Button4:TGadget ) End Select End Select Forever Function MyWindow_WC( Window:TGadget ) DebugLog "Window MyWindow wants to be closed" End End Function Function Button5_GA( Button:TGadget ) DebugLog "Button Button5 was pressed" End Function Function Button6_GA( Button:TGadget ) DebugLog "Button Button6 was pressed" End Function Function Button7_GA( Button:TGadget ) DebugLog "Button Button7 was pressed" End Function Function Button3_GA( Button:TGadget ) DebugLog "Button Button3 was pressed" End Function Function Button1_GA( Button:TGadget ) DebugLog "Button Button1 was pressed" End Function Function Button2_GA( Button:TGadget ) DebugLog "Button Button2 was pressed" End Function Function Button4_GA( Button:TGadget ) DebugLog "Button Button4 was pressed" End Function

jsp

Mo, Aug 25, 2008 22:01
Antworten mit Zitat

Die Radio Button brauchen einen Variablennamen damit man sie spaeter wieder identifizieren kann.
Man kann einen Font natuerlich mehrfach verwenden, wuesste aber nicht das man die Groesse in MaxGui 'on the fly' aendern kann.

Code: [AUSKLAPPEN]

Import MaxGUI.Drivers

Strict
Local MyPanel:TGadget[2]
Local MyWindow:TGadget = CreateWindow:TGadget("MyWindow",400,203,320,200,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_MENU |WINDOW_STATUS )
MyPanel[0]= CreatePanel:TGadget(30,10,100,50,MyWindow:TGadget,PANEL_GROUP,"Panel1")
   Local Button3:TGadget = CreateButton:TGadget("",65,5,25,25,MyPanel[0],BUTTON_RADIO)
   Local Button1:TGadget = CreateButton:TGadget("",5,5,25,25,MyPanel[0],BUTTON_RADIO)
   Local Button2:TGadget = CreateButton:TGadget("",35,5,25,25,MyPanel[0],BUTTON_RADIO)
MyPanel[1]= CreatePanel:TGadget(170,10,130,50,MyWindow:TGadget,PANEL_GROUP,"Panel2")
   Local Button5:TGadget = CreateButton:TGadget("",35,5,25,25,MyPanel[1],BUTTON_RADIO)
   Local Button6:TGadget = CreateButton:TGadget("",65,5,25,25,MyPanel[1],BUTTON_RADIO)
   Local Button7:TGadget = CreateButton:TGadget("",95,5,25,25,MyPanel[1],BUTTON_RADIO)
   Local Button4:TGadget = CreateButton:TGadget("",5,5,25,25,MyPanel[1],BUTTON_RADIO)
Local MyLabel:TGadget = CreateLabel:TGadget("TestText soll kleinere FontSize haben",10,80,300,20,MyWindow:TGadget,Null)
   Local Font_MyLabel:TGuiFont = LoadGuiFont:TGuiFont( "Tahoma" , 8 , False , False , False )
   SetGadgetFont( MyLabel:TGadget, Font_MyLabel:TGuiFont )

Repeat
WaitEvent()
Select EventID()
   Case EVENT_WINDOWCLOSE
      Select EventSource()
         Case MyWindow MyWindow_WC( MyWindow:TGadget )
      End Select

   Case EVENT_GADGETACTION
      Select EventSource()
         Case Button5 Button5_GA( Button5:TGadget )
         Case Button6 Button6_GA( Button6:TGadget )
         Case Button7 Button7_GA( Button7:TGadget )
         Case Button3 Button3_GA( Button3:TGadget )
         Case Button1 Button1_GA( Button1:TGadget )
         Case Button2 Button2_GA( Button2:TGadget )
         Case Button4 Button4_GA( Button4:TGadget )
      End Select

End Select
Forever

Function MyWindow_WC( Window:TGadget )
DebugLog "Window MyWindow wants to be closed"
End
End Function

Function Button5_GA( Button:TGadget )
DebugLog "Button Button5 was pressed"

End Function

Function Button6_GA( Button:TGadget )
DebugLog "Button Button6 was pressed"

End Function

Function Button7_GA( Button:TGadget )
DebugLog "Button Button7 was pressed"

End Function

Function Button3_GA( Button:TGadget )
DebugLog "Button Button3 was pressed"

End Function

Function Button1_GA( Button:TGadget )
DebugLog "Button Button1 was pressed"

End Function

Function Button2_GA( Button:TGadget )
DebugLog "Button Button2 was pressed"

End Function

Function Button4_GA( Button:TGadget )
DebugLog "Button Button4 was pressed"

End Function

	StarGazer	Mo, Aug 25, 2008 23:28 Antworten mit Zitat
Super, Danke Dir. Wenn ich es richtige verstehe, muß ich quasie mehere Fonts mit mehreren größen erstellen ? Irgendwie eine komische Lösung von MaxGui. Jedem Button einer Varaible zuweisen. Dachte sie würden in einer Gruppe liegen, und man könnte sie abfragen welcher xte(Nummer) davon active ist. Wäre sinvoller als 1000 Variablen zu erstellen. MaxGui hat schon manchmal komische Lösungen Danke nochmals

StarGazer

Mo, Aug 25, 2008 23:28
Antworten mit Zitat

Super, Danke Dir.

Wenn ich es richtige verstehe, muß ich quasie mehere Fonts mit mehreren größen erstellen ?
Irgendwie eine komische Lösung von MaxGui.

Jedem Button einer Varaible zuweisen.
Dachte sie würden in einer Gruppe liegen, und man könnte sie abfragen welcher xte(Nummer) davon active ist. Wäre sinvoller als 1000 Variablen zu erstellen.

MaxGui hat schon manchmal komische Lösungen Smile

Danke nochmals

	jsp	Di, Aug 26, 2008 0:35 Antworten mit Zitat
Jeder Button hat eine ID fuers interne Handling, jetzt gibt man der einfach nur einen Namen, ist nichts besonderes (da wird nichts extra erstellt wenn man das macht). Gruppen sind mehr zum Strukturieren. In eine Gruppe kann man alles moegliche an Gadgets reinlegen, da wird es dann schwierig mit xte Nummer abfragen. Wenn man eine Aufzaehlung hat und moechte daraus etwas selektieren, dann sind die Listen basierenden Gadgets die Richtigen. Zum Beispiel ComboBox oder ListBox, die liefern dann auch eine Nummer zurueck!

jsp

Di, Aug 26, 2008 0:35
Antworten mit Zitat

Jeder Button hat eine ID fuers interne Handling, jetzt gibt man der einfach nur einen Namen, ist nichts besonderes (da wird nichts extra erstellt wenn man das macht).

Gruppen sind mehr zum Strukturieren. In eine Gruppe kann man alles moegliche an Gadgets reinlegen, da wird es dann schwierig mit xte Nummer abfragen.

Wenn man eine Aufzaehlung hat und moechte daraus etwas selektieren, dann sind die Listen basierenden Gadgets die Richtigen. Zum Beispiel ComboBox oder ListBox, die liefern dann auch eine Nummer zurueck!

	Dreamora	Di, Aug 26, 2008 1:38 Antworten mit Zitat
StarGazer hat Folgendes geschrieben: Super, Danke Dir. Wenn ich es richtige verstehe, muß ich quasie mehere Fonts mit mehreren größen erstellen ? Irgendwie eine komische Lösung von MaxGui. Jedem Button einer Varaible zuweisen. Dachte sie würden in einer Gruppe liegen, und man könnte sie abfragen welcher xte(Nummer) davon active ist. Wäre sinvoller als 1000 Variablen zu erstellen. MaxGui hat schon manchmal komische Lösungen Danke nochmals Die Lösung ist nicht sonderlich komisch sondern recht intuitive. Gleich wie in C wo das ganze herkommt und rüber gewrappt wurde.
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Di, Aug 26, 2008 1:38
Antworten mit Zitat

StarGazer hat Folgendes geschrieben:

Danke nochmals

Die Lösung ist nicht sonderlich komisch sondern recht intuitive.
Gleich wie in C wo das ganze herkommt und rüber gewrappt wurde.

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	StarGazer	Di, Aug 26, 2008 13:11 Antworten mit Zitat
Sorry habs nicht böse gemeint. Ich kann auch schon verstehen warum, denn so kann man damit alles mögliche machen. Wäre halt schön wenn es simlper gehen würde Vieleicht bastel ich mir da was selbst.

StarGazer

Di, Aug 26, 2008 13:11
Antworten mit Zitat

Sorry habs nicht böse gemeint.
Ich kann auch schon verstehen warum, denn so kann man damit alles mögliche machen.
Wäre halt schön wenn es simlper gehen würde Smile

Vieleicht bastel ich mir da was selbst.

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

Nach Oben

BlitzBasic Portal

MaxGui FontSize Butten-Gruppe

StarGazer

Betreff: MaxGui FontSize Butten-Gruppe

jsp

StarGazer

jsp

Dreamora

StarGazer