Autor: Jens Lange (---.dip0.t-ipconnect.de)
Datum: 08.05.19 19:53
Ja, das ist ne Lösung, Danke, läuft auch korrekt.
Mein Programm wird erst fertig, wenn WIN7 die Updates eingestellt hat, läuft also nur unter WIN10 (Vorgabe Anwender). Für die Betas muss ich aber leider heute noch WIN7 berücksichtigen.
Hatte mir daher ne Fallunterscheidung überlegt
Declare RADIO1&, RADIO2&, Tabcontrol&, Tabdialog%
'--------------------------------------
WindowStyle 26
WINDOWTITLE "Kassen-Verwaltung"
WINDOW 0,0 - 700,700
'--------------------------------------
'Für Hauptfenster
'--------------------------------------
if $winver = "10.0"
var handle mainchild = Create("ChildWindow",%hwnd, "", 0, 0, width(%hwnd), height(%hwnd))
SetStyle mainchild, $50800000
elseif $winver="6.1"
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
settruecolor 1
CLS GETSYSCOLOR(15)
var handle mainchild = %hwnd
endif
RADIO1& = Create("RADIOBUTTON",mainchild,"0%",170,45,50,30)
'--------------------------------------
'Für TabControl
'--------------------------------------
if $winver = "10.0"
Tabcontrol& = Create("Tabctrl",mainchild,"Adresse",80,80,500,500)
var handle tabchild = Create("ChildWindow",Tabcontrol&, "", 2, 25, width(Tabcontrol&)-6, height(Tabcontrol&)-28)
SetStyle Tabchild, $50800000
elseif $winver="6.1"
var handle tabchild = Create("Tabctrl",mainchild,"Adresse",80,80,500,500)
endif
RADIO2& = CREATE("RADIOBUTTON",tabchild,"7.00%",170,245,70,0030)
Create("Text",tabchild,"SPALTENSUMMEN",350,190,130,35)
WaitKey
DestroyWindow(%hwnd)
End
Aber es gibt halt für jedes Problem noch ne elegantere Lösung (y)
|
|
