XProfan

Andreas Miethe]
Datum:   24.02.09 10:34
http://www.rgh-soft.de/forum01/read.php?f=7&i=14181&t=13831
Def &True  1
Def &False 0
Def CreateSpinEdit(12) !COMCTL32,CreateUpDownControl
Def &Min 10
Def &Max 1023

Proc SetVal

    Parameters Spin&,Val&
    SendMessage(Spin&,1127,0,Val&)

EndProc

Proc GetVal

    Parameters Spin&
    Return SendMessage(Spin&,1128,0,0)

EndProc

Declare Spin0&, Quit&
windowstyle 520
cls
Spin0&=CreateSpinEdit($540000A6,0,0,0,0,%hwnd,
1000,%hinstance,CreateEdit(%hwnd,,10,10,80,20),&Max,&Min,0)
SetVal(Spin0&,1023)
Var Buddy& = SendMessage(Spin0&,1130,0,0)UDM_GETBUDDY ermittelt das EditControl
Var Font& = Create(FONT,Arial,14,0,0,1,0)
SetFont Buddy&,Font&
Quit& = &False

WhileNot Quit&

    WaitInput

    If %Key = 2

        MessageBox(SpinEdit-Inhalt:  + str$(GetVal(Spin0&)), Ergebnis, 0)
        DeleteObject Font&
        Quit& = &True

    EndIf

EndWhile

Fin