XProfan

Sehr schön! Fehlt miur noch...

26.10.2004 ▲

Kompilieren Markieren Separieren

Jörg
Sellmeyer

Leider ist der Code durch die Forumssoftware zerschossen.
Ich habs mal wieder hergestellt.

'Orginal von Thomas Hölzer
'Bearbeitet: Michael Dell
'UDM_SETPOS              = 1127;
'UDM_GETPOS              = 1128;
 $I profalt.inc
Def InitCommCntrl(0) !"ComCtl32.Dll","InitCommonControls"
Def CreateSpinED(12) !"ComCtl32.Dll","CreateUpDownControl"

Proc CrSpinEdit

    Parameters wHndl&,x&,y&,dx&,dy&,sed_max&,sed_min&,sed_start&,align&,alignCT&
    Declare sed&,budd&
    Case Or(Lt(align&,1),Gt(align&,2)): align& = 0

    If Equ(alignCT&,1)

        alignCT& = $5480022E

    Else

        alignCT& = $54800226

    EndIf

    InitCommCntrl()
    sed&  = CreateSpinED(alignCT&,0,0,0,0,wHndl&,$0FFFF,%hinstance,\
    Control("Edit","",$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),\
    sed_max&,sed_min&,sed_start&)
    budd& = SendMessage(sed&,1130,0,0)
    Return sed&

EndProc

Windowtitle "Über Systemmenü beenden"
Cls RGB(200,208,216)
'Normales Control
CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,0)'Links
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,0)'Zentriert
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,0)'Rechts
'Gedrehtes Control
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,0,1)'Links
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,1,1)'Zentriert
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,2,1)'Rechts

While 1

    WaitInput

Wend

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

22.05.2018 ▲

p.specht

Mit GetText(sed&) klappt es nicht, an die Werte der SpinEdits zu kommen. Was mache ich falsch?

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

Kompilieren Markieren Separieren

Jörg
Sellmeyer

Proc GetSpinBuddy

    Parameters SpinEd&
    Return SendMessage(SpinEd&,1130,0,0)

EndProc

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

p.specht

Leider zu doof:
...
SpinH&=CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,2,1)

While 1:WaitInput
locate 30,30:print GetSpinBuddy(SpinH&);" "
EndWhile
END

... brachte es nicht (Liefert konstanten Wert).

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

Kompilieren Markieren Separieren

Jörg
Sellmeyer

Logisch! Das ist ja auch das Handle des Buddys.
Du musst GetText$(GetSpinBuddy(hdl&)) abfragen.
Da bietet sich dann auch ein Headereintrag ein:
SpinTxt( = GetText$(GetSpinBuddy(;

Print ~SpinTxt(%hwnd,hdl&)) ' die 2. Klammer nicht vergessen!

Oder gleich ne entsprechende Prozedur:

Proc GetSpinTxt

    Parameters SpinEd&
    Return GetText$(SendMessage(SpinEd&,1130,0,0))

EndProc

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

p.specht

DANKE!

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...