XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
UpDown-Control (SpinEdit) erstellen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
UpDown-Control mit Profan nutzen
Autor: Thomas Hölzer
Stil-Konstanten für UpDown-Controls
UDS_WRAP                = $0001;
UDS_SETBUDDYINT         = $0002;
UDS_ALIGNRIGHT          = $0004;
UDS_ALIGNLEFT           = $0008;
UDS_AUTOBUDDY           = $0010;
UDS_ARROWKEYS           = $0020;
UDS_HORZ                = $0040;
UDS_NOTHOUSANDS         = $0080;
Message-Konstanten für UpDown-Controls
UDM_SETRANGE            = 1125;
UDM_GETRANGE            = 1126;
UDM_SETPOS              = 1127;
UDM_GETPOS              = 1128;
UDM_SETBUDDY            = 1129;
UDM_GETBUDDY            = 1130;
UDM_SETACCEL            = 1131;
UDM_GETACCEL            = 1132;
UDM_SETBASE             = 1133;
UDM_GETBASE             = 1134;
Def InitCommonControls(0)!COMCTL32,InitCommonControls
Def CreateSpinEdit(12) !COMCTL32,CreateUpDownControl
Declare edit&,buddy&
SetTrueColor 1
Windowtitle Über Systemmenü beenden
Cls RGB(192,192,192)
InitCommonControls()
Let edit&=CreateSpinEdit($54000026,0,0,0,0,%hwnd,1000,%hinstance,
CreateEdit(%hwnd,,10,10,50,20),100,0,10)
Let buddy&=SendMessage(edit&,1130,0,0)

While 1

    WaitInput

Wend