XProfan

- Page 1 -

Uwe's Variante als mögliche 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

}

Interessant das dies nicht funktioniert:

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

Ciao,

habe mich mit Michaels Code zu presto gefreut.Lassen sich mit gettext$() nicht auslesen.

Original-Autor: 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

    CaseNot (art&=0): art& = 6000  keinen Punkt setzen
    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

**** Beispiel ****
Windowtitle Über Systemmenü beenden
Cls External(USER32.DLL,GetSysColor,15)
Normales Control
m&=CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,1)  Links  + UpDown Rechts - Punkt
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,1)  Zentriert + UpDown Rechts - Punkt
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,1)  Rechts  + UpDown Rechts - Punkt
Gedrehtes Control
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,6,0)  Rechts  + UpDown Links + Punkt
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,5,0)  Zentriert + UpDown Links + Punkt
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,4,0)  Links  + UpDown Links + Punkt

While 1

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

EndWhile

End

Probiere nun iFs Vorschlag aus.

Servus
Georg

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

GDL

Hallo iF,

Warst schneller, kann kein Spinedit mittels gettext$() von diesen Codebeispielen auslesen.

Servus
Georg

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

Jörg
Sellmeyer

Hallo Georg,

Damit funktioniert es:

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

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

GDL

Es geht, klasse.

Servus
Georg

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

- Page 2 -

GDL

Probiere nun selbst schon mit Xprofan seinen settext und mit wm_settext rum, bekomme es aber nicht hin.
Jörg weisste zufällig auch die Möglichkeit per settext.Danke.

Servus
Georg

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

24.08.2007 ▲

Jörg
Sellmeyer

Hallo Georg,
Du mußt wieder die Message UDM_GetBuddy einsetzen:

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

So sollte es funktionieren.

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

25.08.2007 ▲

GDL

Funzt einwandfrei.

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

25.08.2007 ▲

GDL

Also dieses Spinedit hat es echt in sich.Nun gehen die Up/Downpfeile nach
SetText SendMessage(m&,$046A,0,0),9992
nicht mehr.

Servus
Georg

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

25.08.2007 ▲

Martin
Kempf

Ich stehe auch vor diesem Tausenderpunktproblem und frage mich, obs in der Version 11.2 mittlerweile vielleicht einen einfachen Schalter gibt, um diesen Trennpunkt abzuschalten?

21.08.2009 ▲