[B+] GroupBox

Übersicht

BlitzBasic

Codearchiv

	Xenon Betreff: [B+] GroupBox	So, Sep 19, 2004 11:05 Antworten mit Zitat
Hi, Userlib solltet ihr schon haben, wenn nicht, ist es nicht schwer, eine zu schreiben... Das einzige worauf ihr achten müsst ist ein Panel mit der selben Größe hinter der GroupBox zu erstellen, dem ihr dann auch die Childwindows gebt, ohne macht B+ einen schönen Redrawfehler beim skalieren... Code: [AUSKLAPPEN] [EINKLAPPEN] Const GWL_STYLE = (-16) window = CreateWindow("Test", 100, 100, 200, 200, Desktop(), 3) groupbox = CreateGroupBox("GroupBox", 0, 0, ClientWidth(window), ClientHeight(window), window) SetGadgetLayout groupbox, 1, 0, 1, 0 panel = CreatePanel(0, 0, ClientWidth(window), ClientHeight(window), window) SetGadgetLayout panel, 1, 0, 1, 0 button = CreateButton("Hallo!", 5, 15, 100, 20, panel) SetGadgetLayout button, 1, 0, 1, 0 Repeat Select WaitEvent() Case $401 Select EventSource() Case button Notify "Hallo!" End Select Case $803 End End Select Forever Function CreateGroupBox(name$, x, y, w, h, p) Local groupbox, hwnd groupbox = CreateButton(name, x, y, w, h, p) hwnd = QueryObject(groupbox, 1) SetWindowLong(hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE)+7) Return groupbox End Function

Xenon

Betreff: [B+] GroupBox

So, Sep 19, 2004 11:05
Antworten mit Zitat

Hi,

Userlib solltet ihr schon haben, wenn nicht, ist es nicht schwer, eine zu schreiben...

Das einzige worauf ihr achten müsst ist ein Panel mit der selben Größe hinter der GroupBox zu erstellen, dem ihr dann auch die Childwindows gebt, ohne macht B+ einen schönen Redrawfehler beim skalieren...

Code: [AUSKLAPPEN]

Const GWL_STYLE = (-16)

window = CreateWindow("Test", 100, 100, 200, 200, Desktop(), 3)

groupbox = CreateGroupBox("GroupBox", 0, 0, ClientWidth(window), ClientHeight(window), window)

SetGadgetLayout groupbox, 1, 0, 1, 0

panel = CreatePanel(0, 0, ClientWidth(window), ClientHeight(window), window)

SetGadgetLayout panel, 1, 0, 1, 0

button = CreateButton("Hallo!", 5, 15, 100, 20, panel)

SetGadgetLayout button, 1, 0, 1, 0

Repeat
Select WaitEvent()
Case $401
   Select EventSource()
   Case button
      Notify "Hallo!"
   End Select
Case $803
   End
End Select
Forever

Function CreateGroupBox(name$, x, y, w, h, p)
Local groupbox, hwnd

groupbox = CreateButton(name, x, y, w, h, p)

hwnd = QueryObject(groupbox, 1)

SetWindowLong(hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE)+7)

Return groupbox
End Function