| |
| |
|
Thomas
Freier | Bisher hatte ich immer Klassisches Designs. Nach Umstellung auf X-Designs ist bei den "RadioButton" der Hintergrund schwarz. Ich find einfach die Lösung nicht.
KompilierenMarkierenSeparierenDef GetSysColor(1) !"USER32","GetSysColor"
Cls GetSysColor(15)
var wahl&=Create("GroupBox",%hwnd,"",8,320,448,42)
var alle&=Create("RadioButton",wahl&,"Alle",4,16,66,16)
WaitInput
End
|
|
| |
| |
| |
|
|
Thomas
Freier | Merkwürdig, direkt auf %hwnd ist alles "normal". In der "GroupBox" habe jetzt einen schwarzen Hintergrund.
Unter Profan 6.6 ist es noch wie gewünscht. |
|
| |
| |
| |
|
|
Dieter
Zornow | | Dann lass es doch auf %Hwnd, ist doch sowieso besser, auf die groupbox zu legen ist unüblich |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 25.08.2009 ▲ |
|
| |
|
|
Dieter
Zornow | Kann meinen Beitrag nicht bearbeiten, kann mich tot klicken und es kommt nichts.
Bei 6.6 hat es wahrscheinlich mit dem SetTrueColor zu tun, dass es da noch geht |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 25.08.2009 ▲ |
|
| |
|
|
Thomas
Freier | Ja, aber war nicht die "GroupBox" dafür gedacht.
Hier der 6er-code
KompilierenMarkierenSeparierenSetTrueColor 1
Cls rgb(222,222,222)
declare button&,alle&,grup&
grup& = CreateGroupBox(%hwnd,"",10,10,200,200)
button& = Control("BUTTON","Test",$54010029,10,20,100,20,grup&,0,%hinstance,$0)
alle& = CreateRadioButton(grup&,"Alle",10,60,66,16)
WaitInput
end
|
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Nein, die Groupbox ist dafür gedacht, die Elemente grafisch zu gliedern und in der Funktion zu gruppieren. Alle Radiobuttons, die nach einer Groupbox erstellt werden (bis zur nächsten), beziehen sich aufeinander. D.h.: Klick ich die erste an, verliert eine markierte andere die Markierung. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 25.08.2009 ▲ |
|
| |
|
|
Thomas
Freier | Oh, wie Recht du hast. Ist mir, wie gesagt, erst beim geänderten Designs aufgefallen.
So gehts tatsächlich
KompilierenMarkierenSeparierenDef GetSysColor(1) !"USER32","GetSysColor"
Cls GetSysColor(15)
declare button&,alle&,grup&,ber&,bis&,grup1&,nur&
grup& = CreateGroupBox(%hwnd,"",10,10,180,200)
alle& = CreateRadioButton(%hwnd,"Alle",30,60,86,16)
ber&=Create("RadioButton",%hwnd,"Bereich",30,90,86,16)
grup1& = CreateGroupBox(%hwnd,"",0,0,0,0)
bis&=Create("RadioButton",%hwnd,"Bereich",230,30,86,16)
nur&=Create("RadioButton",%hwnd,"Bereich",230,90,86,16)
SetCheck alle&,1
SetCheck nur&,1
while 1
WaitInput
case %key=2:break
wend
end
|
|
| |
| |
| |
|
(980)
Deutsch
English
Français
Español
Italia
