Seite 1 von 2
Fenster proportional verkeinern/vergrößern
Verfasst: 26.02.2013 13:05
von kunstlust
Ich habe eine Frage wie ich Fenster proportional verkeinern/vergrößern kann, so sollte zum Beispiel ein Editfeld verkeinernt/vergrößert werde Buttons aber nicht.
In Lazarus wird das mit einem Panel gemacht, indem ich eine Align setze und dies auch für das Edit/Memo Feld festlege.
Die Kompilerfunktion dpi-abhängige Anwendung wie in Lazarus gibt es glaube ich auch noch nicht, oder doch?
Das es leider kaum neue Beispiele auch zum Formdesigner gibt, nur ein relative kleiner Aufruf in der Hilfe, wollte ich fragen, ob jemand ein Einfache Bespiel dazu hat, wie zumindest ein Edits proportional verkeinern/vergrößern werden können.
Danke
Re: Fenster proportional verkeinern/vergrößern
Verfasst: 26.02.2013 13:41
von RSBasic
@kunstlust
Willst du, dass die Breite deiner Gadgets automatisch an die Fenstergröße angepasst wird?
Sowas?
Code: Alles auswählen
EnableExplicit
Define EventID
If OpenWindow(0,0,0,200,100,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
StringGadget(1, 10, 10, WindowWidth(0)-20, 20, "", 0)
Repeat
EventID=WaitWindowEvent()
If EventID = #PB_Event_SizeWindow
ResizeGadget(1, #PB_Ignore, #PB_Ignore, WindowWidth(0)-20, #PB_Ignore)
EndIf
If EventID = #PB_Event_CloseWindow
End
EndIf
ForEver
EndIf
Oder willst du, dass die komplette Größe (Breite, Höhe, Schriftgröße) automatisch angepasst wird?
http://www.purebasic.fr/english/viewtop ... 54#p294054
Re: Fenster proportional verkeinern/vergrößern
Verfasst: 26.02.2013 14:05
von kunstlust
@RSBasic
Dein Beispiel ist mir klar, ist aber für mich bei einer größeren Gui schnell unübersichtlich. Ich hatte die stille Hoffnung, das dies im Formdesigner eingebaut wurde, aber das ist wohl auch eine Frage ob es ein OOP-Sprache ist. Ich danke dir, auch für den weiteren Link.
Re: Fenster proportional verkeinern/vergrößern
Verfasst: 26.02.2013 14:41
von RSBasic
@kunstlust
Ich glaube nicht, dass der Visual Designer von Polo sowas anbietet, aber du kannst gerne im
englischen Forum einen Thread oder eine PN an Polo schreiben.
Vielleicht setzt er das demnächst für dich um.
Re: Fenster proportional verkeinern/vergrößern
Verfasst: 26.02.2013 15:34
von Kiffi
Der neue VD hat in der Tat für sowas eine Funktionalität. Für Gadgets kann
man sogenannte Lock-Flags setzen (Left, Top, Bottom, Right). Der VD
erzeugt dann den entsprechenden Resize-Code.
Grüße ... Kiffi
Re: Fenster proportional verkeinern/vergrößern
Verfasst: 27.02.2013 08:03
von kunstlust
@Kiffi
Das hört sich gut an, das schaue ich mir mal an.
Grüße Kunstlust
Re: Fenster proportional verkeinern/vergrößern
Verfasst: 27.02.2013 09:33
von kunstlust
@Kiffi
Ich habe mir das mal angeschaut und verstehe es nicht.
Ohne Containerverbindung macht das doch keinen Sinn, also ich kann da keinen Effekt bemerken. Die Form will auch immer mein #PB_Window_SizeGadget nicht behalten...
Zum Beispiel ein Lock Top müsste doch eine sichtbaren Effekt machen, oder nicht? Hast du ein kleine Beispiel für mich?
Re: Fenster proportional verkeinern/vergrößern
Verfasst: 27.02.2013 15:40
von Kiffi
kunstlust hat geschrieben:Ohne Containerverbindung macht das doch keinen Sinn, also ich kann da keinen Effekt bemerken.
Containerverbindung?
Ist doch eigentlich ganz einfach: Öffne eine neue Form und füge beispielsweise
einen Button hinzu. Diesem verpasst Du dann zusätzlich die Häkchen
Lock_Right
und
Lock_Bottom. Nun wechselst Du in die Code-Ansicht und kannst dort die neu
generierte Procedure ResizeGadgetsWindow_0() anschauen.
Aber der VD ist ohnehin momentan so buggy, dass man ihn (IMHO) nicht benutzen kann.
Grüße ... Kiffi
Re: Fenster proportional verkeinern/vergrößern
Verfasst: 27.02.2013 17:01
von kunstlust
@Kiffi
Das habe gemacht, aber wie ist es nun möglich Z.B. ein Bild und Editorfeld usw anders zu behandel als einen Button?
Ist ja super ne große graue Fläche zu haben, aber das macht ja kaum Sinn.
Ist die PB 5.2xx schon in Planung, gerade um das Handling des VD zu verbesern?
Re: Fenster proportional verkeinern/vergrößern
Verfasst: 27.02.2013 17:20
von Kiffi
kunstlust hat geschrieben:aber wie ist es nun möglich Z.B. ein Bild und Editorfeld usw anders zu behandel als einen Button?
meinst Du das jetzt ernst? Dann füge anstelle des Buttons ein EditorGadget ein.
Hier mal ein kleines VD-generiertes Beispiel mit EditorGadget (Lock: Top, Left, Right, Bottom) und Buttons (Lock: Right, Bottom)
Code: Alles auswählen
Enumeration #PB_Compiler_EnumerationValue
#Window_0
EndEnumeration
Enumeration #PB_Compiler_EnumerationValue
#Editor_0
#cmdCancel
#cmdOK
EndEnumeration
Declare ResizeGadgetsWindow_0()
Procedure OpenWindow_0()
OpenWindow(#Window_0, 0, 0, 472, 352, "TestFenster", #PB_Window_SystemMenu | #PB_Window_SizeGadget)
EditorGadget(#Editor_0, 8, 8, 456, 304)
ButtonGadget(#cmdCancel, 368, 320, 96, 24, "Abbrechen")
ButtonGadget(#cmdOK, 264, 320, 96, 24, "OK")
EndProcedure
Procedure ResizeGadgetsWindow_0()
Protected WindowWidth, WindowHeight
WindowWidth = WindowWidth(#Window_0)
WindowHeight = WindowHeight(#Window_0)
ResizeGadget(#Editor_0, 8, 8, WindowWidth - 16, WindowHeight - 48)
ResizeGadget(#cmdCancel, WindowWidth - 104, WindowHeight - 32, 96, 24)
ResizeGadget(#cmdOK, WindowWidth - 208, WindowHeight - 32, 96, 24)
EndProcedure
Procedure Window_0_Events(event)
Select event
Case #PB_Event_SizeWindow
ResizeGadgetsWindow_0()
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
EndSelect
ProcedureReturn #True
EndProcedure
OpenWindow_0()
Repeat
Until Window_0_Events(WaitWindowEvent()) = #False
Grüße ... Kiffi