Source / code snippets | | | | | 
Michael
Dell | Manches is hold Ansichtssache 
CompileMarkSeparationOrginal von Thomas Hölzer
Bearbeitet: Michael Dell
UDM_SETPOS = 1127;
UDM_GETPOS = 1128;
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&
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
Greeting
Michael... |
| | | | Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 10/26/04 ▲ |
| | |
| |  | Very beautiful! Fehlt miur yet...
 |
| | | | | | |
| | 
Jörg
Sellmeyer | unfortunately is the code by the Forumssoftware zerschossen.
I habs time again manufactured.
'original Thomas Hölzer
'machine: 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 System Menu beenden"
Cls RGB(200,208,216)
'Normales Control
CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,0)'left
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,0)'Centered
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,0)'right
'Gedrehtes Control
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,0,1)'left
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,1,1)'Centered
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,2,1)'right
While 1
WaitInput
Wend
|
| | | | | | |
| | 
p.specht
 | | with GetText(sed&) works not, on The values the SpinEdits To come. What do I do wrong? |
| | | | Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 05/24/18 ▲ |
| | |
| |
Jörg
Sellmeyer | | | | | | | |
| |
p.specht
| unfortunately To thick:
...
SpinH&=CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,2,1)
While 1:WaitInput
locate 30,30:print GetSpinBuddy(SpinH&);" "
EndWhile
END
... brought not (supply konstanten worth). |
| | | | XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 05/24/18 ▲ |
| | |
| |
Jörg
Sellmeyer | logical! this is indeed the lever the Buddys.
You must GetText$(GetSpinBuddy(hdl&)) inquire.
there bid itself then too one Headereintrag one:
SpinTxt( = GetText$(GetSpinBuddy(;
Print ~SpinTxt(%hwnd,hdl&)) ' The 2. Klammer not forget!
or same ne suitable procedure:
|
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 05/24/18 ▲ |
| | |
| |
p.specht
| | | | | XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 05/24/18 ▲ |
| | |
|
Zum QuelltextThemeninformationenthis Topic has 4 subscriber: |
(911)
Deutsch
English
Français
Español
Italia