Gadgets mit Rahmen abtrennen

Übersicht

BlitzBasic

BlitzPlus

	barratator Betreff: Gadgets mit Rahmen abtrennen	Sa, März 29, 2008 10:38 Antworten mit Zitat
Hallo, ihr kennt sicher diese Rahmen um Objekte, wo obendrüber in blauer Schrift der Namen des Bereiches steht, und die objekte grau eingerahmt sind. Z.b. wie hier: http://sau.frubar.net/shots/27351.jpg (POP3-Einstellungen) In BlitzPlus habe ich noch nichts dazu gefunden, wie man das macht. Ist es dennnoch möglich? Vllt. auch mit der WinApi? gruß Bastian

barratator

Betreff: Gadgets mit Rahmen abtrennen

Sa, März 29, 2008 10:38
Antworten mit Zitat

Hallo,
ihr kennt sicher diese Rahmen um Objekte, wo obendrüber in blauer Schrift der Namen des Bereiches steht, und die objekte grau eingerahmt sind.
Z.b. wie hier: http://sau.frubar.net/shots/27351.jpg (POP3-Einstellungen)

In BlitzPlus habe ich noch nichts dazu gefunden, wie man das macht.
Ist es dennnoch möglich?
Vllt. auch mit der WinApi?

gruß
Bastian

	Artemis	Sa, März 29, 2008 12:04 Antworten mit Zitat
https://www.blitzforum.de/foru...t=groupbox http://www.blitzbasic.com/Comm...826#514557

Artemis

Sa, März 29, 2008 12:04
Antworten mit Zitat

https://www.blitzforum.de/foru...t=groupbox
http://www.blitzbasic.com/Comm...826#514557

	barratator	Sa, März 29, 2008 13:04 Antworten mit Zitat
Ich hab' jetzt den Code aus dem Forum genommen: Code: [AUSKLAPPEN] [EINKLAPPEN] Const BM_SETSTYLE=244 Const BS_GROUPBOX=7 win=CreateWindow ("Win",10,10,400,400,main,15) button1=CreateButton("test",40,40,80,30,win) SetGadgetLayout button1,1,0,1,0 groupbox=CreateGroupBox("Woo a Groupbox",10,10,300,300,win) SetGadgetLayout groupbox,1,1,1,1 button2=CreateButton("test2",200,40,80,30,win) SetGadgetLayout button2,1,0,1,0 While WaitEvent(10)<>$803 Wend End Function CreateGroupBox(name$,x,y,w,h,parent) mainpanel=CreatePanel(x,y,w,h,parent) groupbox=CreateButton(name,0,0,w,h,mainpanel) SetGadgetLayout groupbox,1,1,1,1 SendMessage QueryObject(groupbox,1),BM_SETSTYLE,BS_GROUPBOX,1 backgroundpanel=CreatePanel(0,0,ClientWidth(mainpanel),ClientHeight(mainpanel),mainpanel) SetGadgetLayout backgroundpanel,1,1,1,1 Return mainpanel End Function Aber diesen Button (Test2) kann ich nicht anklicken o.O gruß Bastian

barratator

Sa, März 29, 2008 13:04
Antworten mit Zitat

Ich hab' jetzt den Code aus dem Forum genommen:

Code: [AUSKLAPPEN]

Const BM_SETSTYLE=244
Const BS_GROUPBOX=7

win=CreateWindow ("Win",10,10,400,400,main,15)
button1=CreateButton("test",40,40,80,30,win)
SetGadgetLayout button1,1,0,1,0
groupbox=CreateGroupBox("Woo a Groupbox",10,10,300,300,win)
SetGadgetLayout groupbox,1,1,1,1
button2=CreateButton("test2",200,40,80,30,win)
SetGadgetLayout button2,1,0,1,0
While WaitEvent(10)<>$803
Wend
End

Function CreateGroupBox(name$,x,y,w,h,parent)
mainpanel=CreatePanel(x,y,w,h,parent)
groupbox=CreateButton(name,0,0,w,h,mainpanel)
SetGadgetLayout groupbox,1,1,1,1
SendMessage QueryObject(groupbox,1),BM_SETSTYLE,BS_GROUPBOX,1
backgroundpanel=CreatePanel(0,0,ClientWidth(mainpanel),ClientHeight(mainpanel),mainpanel)
SetGadgetLayout backgroundpanel,1,1,1,1
Return mainpanel
End Function

Aber diesen Button (Test2) kann ich nicht anklicken o.O

gruß
Bastian

	ChristianK	Sa, März 29, 2008 14:05 Antworten mit Zitat
Einfach die Groupbox nach den Buttons erstellen.
AdvanceLcd Intel Core 2 Duo 3.2 GHz, 4 GB RAM, GeForce 8800 GTX \| MacBook Pro 15,4″ Intel Core 2 Duo 2.4 GHz, 2 GB RAM, GeForce 8600M GT