XProfan

- Page 1 -

Uwe's Variante as possible XPSE

window 200,100-300,150
long Edit=create("Edit",%hwnd,"",100,10,80,24)
long updown=createupdowncontrol(ws_child | ws_visible | uds_nothousands | uds_setbuddyint | uds_alignright,0,0,0,0,hwnd,555,0,edit,2000,0,1500)

do {

    locate 0,0
    print gettext$(edit)
    print sendmessage(updown,udm_getpos,0,0)
    waitinput

}

interestingly that this not functions:

cls
long Edit=create(spinedit,hwnd,4000;-100;5000,0229,0241,0120,0020)
long spin=findwindowex(hwnd,0,msctls_updown32,0)
setstyle spin,ws_child | ws_visible | uds_nothousands | uds_setbuddyint | uds_alignright

do {

    locate 0,0
    print gettext$(edit)
    waitinput

}

GDL

Hi,

have me with Michaels Code early gefreut.let itself with gettext$() not read.

Original-Author: Thomas Hölzer
Bearbeited: Michael Dell
declare m&

Proc CrSpinEdit

    Parameters wHndl&,x&,y&,dx&,dy&,sed_max&,sed_min&,sed_start&,align&,art&
    Def InitCommCntrl(0) !ComCtl32.Dll,InitCommonControls
    Def CreateSpinED(12) !ComCtl32.Dll,CreateUpDownControl
    Declare sed&,alignCT&

    If (align&>3)

        alignCT& = 8
        align& = (align&-4)

    EndIf

    Casenote (art&=0): art& = 6000  none point settle
    InitCommCntrl()
    sed& = CreateSpinED($54800226+alignCT&+art&,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&)
    locate 15,10
    print Erstellungsinhalt= +gettext$(sed&)
    Return sed&

ENDPROC

**** example ****
Windowtitle Über System Menu terminate
Cls External(USER32.DLL,GetSysColor,15)
Normales Control
m&=CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,1)  left  + UpDown right - point
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,1)  Centered + UpDown right - point
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,1)  right  + UpDown right - point
Gedrehtes Control
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,6,0)  right  + UpDown left + point
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,5,0)  Centered + UpDown left + point
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,4,0)  left  + UpDown left + point

While 1

    WaitInput
    locate 16,10
    print Ausleseinhalt= +gettext$(m&)

EndWhile

End

Try now iFs suggestion from.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

Hello iF,

were faster, can no Spinedit through gettext$() of these Codebeispielen read.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Hello Georg,

so functions it:

print "Ausleseinhalt= "+gettext$(SendMessage(m&,1130,0,0))'UDM_GETBUDDY

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

GDL

It's all right, class.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

- Page 2 -

GDL

Try now self already with XProfan its settext and wm_settext rum, get But not there.
Jörg weisste random too The Possibility for settext.thanks.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

08/24/07 ▲

Jörg
Sellmeyer

Hello Georg,
you mußt again The Message UDM_GetBuddy bring into action:

SetText SendMessage(m&,$046A,0,0),9992

so ought to it functions.

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

08/25/07 ▲

GDL

working correct.

Windows7 Xprofan 8,9,10 [...]

08/25/07 ▲

GDL

means this Spinedit has it Real in itself.now weg The Up/Downpfeile to
SetText SendMessage(m&,$046A,0,0),9992
not any more.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

08/25/07 ▲

Martin
Kempf

I stand too to this Tausenderpunktproblem and question me, obs in the Version 11.2 in the meantime Perhaps a einfachen switch gives, circa this Trennpunkt abzuschalten?

08/21/09 ▲