SizeGadgets()

[Andreas_S]

Ich hab da mal ein kleines Tool geschrieben:

Download

Die Datei ist zum includen und hat alle Gadgets gespeichert. Man muss statt z.B. ButtonGadget() jetzt ButtonGadget_() eingeben. Es gibt natürlich alle Parameter. Der Sinn darin liegt das alle Gadgets in eine List gespeichet werden und mit einen Structur versehen wird. So kann man die Datei nutzen:

Code: Alles auswählen

IncludeFile "SizeGadgets.pbi"


Procedure WindowCallback(WindowID,Message,wParam,lParam)
  Select Message
   Case #PB_Event_SizeWindow
    SizeGadgets(0)
  EndSelect
 ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

OpenWindow(0,WinX,WinY,WinW,WinH,"Test",Flags)
 SetSizeGadgetsWindow(0)
 CreateGadgetList(WindowID(0))
  PanelGadget_(0,5,5,290,290)
   AddGadgetItem(0,-1,"Panel1")
    
   AddGadgetItem(0,-1,"Panel2")
    
  CloseGadgetList()

SetWindowCallback(@WindowCallback())

Repeat
 Event=WindowEvent()
  If Event=#PB_Event_CloseWindow
   Quit=1
  EndIf
Until Quit=1

Die Gadgets werden im Befehl SizeGadgets() aufgerufen und Resized. So braucht man keinen Resizer mehr basteln und den nutzen.

Viel Spaß!

[ts-soft]

Nicht schlecht, gibts aber schon
http://www.purebasic.fr/english/viewtop ... izegadgets
Findet man auch in meinem IncludePack.

So ist das leider, man kann machen was man will, es gibt schon alles, aber
trotzdem danke für die Mühe

[Andreas_S]

Verdammt....

Egal ... ich kanns ja verwenden !