| |
|
|
Walter | Hallo, habe Probleme mit SpinEdit: In FreeProfan V0.9 zeigt es sich weder wie gewohnt, noch lässt es sich über gettext$ auslesen. In V0.7 funktioniert es jedoch (jeweils sowohl im Interpreter als auch als exe).
.
declare T1&, S1&, B1&, B2&, _ende%
cls
'SpinEdit
S1&=Create("SpinEdit",%Hwnd,"0; -100; 100",50,80,60,20)
'Button Test
B1&=Create("Button",%Hwnd,"Test",50,200,150,20)
'Button Ende
B2&=Create("Button",%Hwnd,"Ende",250,200,150,20)
'Ausgabe
T1&=Create("Text",%Hwnd,"Wert des SpinEdits",50,300,400,20)
'Hauptschleife
_ende%=0
whilenot _ende%
waitinput
if (%key = 2)
_ende% = 1
elseif clicked(B1&)'Test
settext T1&,"String in SpinEdit=" + gettext$(s1&) + "; " + "Zahl in SpinEdit=" + str$(val(gettext$(s1&)))
elseif clicked(B2&)'Ende
_ende% = 1
endif
endwhile
|
|
|
| |
|
|
|
RGH | Fehler gefunden und korrigiert! Ich werde die korrigierte Version gleich hochladen!
Gruß Roland |
|
|
| XProfan X3Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 18.01.2016 ▲ |
|
|
|
|
Walter | |
|
| |
|
|
|
Walter | Hallo,
das früher beschriebene Problem ist in der neuen FreeProfan-Version ja gelöst, allerdings funktioniert der Startwert nicht (weder als einfacher Startwert noch in der Form Startwert, Unter- und Obergrenze), und der Wert lässt sich auch nicht mittels der Pfeile ins Negative verstellen (trotz fehlender bzw. negativer Untergrenze).
declare T1&,T2&,T3&,T4&,S1&,S2&,B1&,B2&,_ende%
cls
'SpinEdit
S1&=Create("SpinEdit",%Hwnd,50,50,80,60,20)
S2&=Create("SpinEdit",%Hwnd,"50; -100; 100",50,120,60,20)
T3&=Create("Text",%Hwnd,"SpinEdit S1 " + "%Hwnd,50,50,80,60,20", 130,80,400,20)
T4&=Create("Text",%Hwnd,"SpinEdit S2 " + "%Hwnd,\q50; -100; 100\q,50,120,60,20", 130,120,400,20)
'Button Test
B1&=Create("Button",%Hwnd,"Test",50,200,150,20)
'Button Ende
B2&=Create("Button",%Hwnd,"Ende",250,200,150,20)
'Ausgabe
T1&=Create("Text",%Hwnd,"Wert des SpinEdits S1",50,300,400,20)
T2&=Create("Text",%Hwnd,"Wert des SpinEdits S2",50,340,400,20)
'Hauptschleife
_ende%=0
whilenot _ende%
waitinput
if (%key = 2)
_ende% = 1
elseif clicked(B1&)'Test
settext T1&,"String in SpinEdit S1 = " + gettext$(s1&) + "; " + "Zahl in SpinEdit = " + str$(val(gettext$(s1&)))
settext T2&,"String in SpinEdit S2 = " + gettext$(s2&) + "; " + "Zahl in SpinEdit = " + str$(val(gettext$(s2&)))
elseif clicked(B2&)'Ende
_ende% = 1
endif
endwhile
Beste Grüße Walter |
|
|
| |
|
|
|
RGH | Sorry, da war ich wohl zu voreilig und habe zwei zu ändernde Zeilen übersehen, die für das Setzen von Startwert und Bereich zuständig sind.
In der nächsten Version ist das korrigiert!
Gruß Roland |
|
|
| XProfan X3Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 25.01.2016 ▲ |
|
|
|
|
Walter | |
|
| |
|
|