XProfan

Torsten
Rümker

Yo quería el Thema otra vez aufwärmen, como Yo como siempre todavía no weitergekommen bin.

Wirklich niemand como el ne Idea ha como yo hinbekomme?

MfG
Torsten Rümker

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

21.07.2006 ▲

Rolf
Koch

Einzige Möglichkeit el me direkt einfällt:

 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.4c
DATUM  21.07.2006    en  11:29 Uhr
VERWENDETE PROFANVERSION IST 10.0ß-NT S13 XPROFAN
CODE ERSTELLT UNTER UNBEKANNTER WINDOWSVERSION
!!! Dieser Code se de Roc siempre neu producido        !!!
!!! Erst bearbeiten, si todos Objetos producido fueron !!!
!!! Verändern Sie ggf. feste Pfade en variable Pfade  !!!
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE SPINEDIT1&
WINDOWSTYLE 63
WINDOWTITLE Neues Ventana
WINDOW 22,20-640,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
SPINEDIT1& = CREATE(SPINEDIT,%HWND,0;-100;5000,0229,0241,0120,0020)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(SPINEDIT1&) SPINEDIT

        settext spinedit1&,translate$(gettext$(spinedit1&),.,)

    ENDIF

WEND

Nachteil hier entonces, dass el Foco siempre a el Anfang gesetzt se. Aber como debería en efecto posible ser, el Cursor otra vez anders a behandeln.

21.07.2006 ▲

Uwe
''Pascal''
Niemeier

¡Hola Personas!

El @Crear-Características son (antes Allem en komplexeren Controls) nun veces una Kompromiss.
Wer mehr Möglichkeiten haben voluntad, muss wohl oder übel algo tüffteln...

window 200,100-300,150
 $H Messages.ph
 $H Commctrl.ph
declarar Edit&,UpDown&,Style&
Edit&=create(edit,%hwnd,,100,10,80,24)
Style&=$50000000 | ~UDS_NOTHOUSANDS | ~UDS_SETBUDDYINT | ~UDS_ALIGNRIGHT
UpDown&=~CreateUpDownControl(Style&,0,0,0,0,%hwnd,555,0,Edit&,2000,0,1500)
--letze 3 Parámetro: Max,Min,Vorgabe

mientras que 1

    locate 0,0
    imprimir gettext$(Edit&)--Rückgabe String
    imprimir sendmessage(UpDown&,~UDM_GETPOS,0,0)--Rückgabe Integer
    waitinput

endwhile

HTH
Pascal

22.07.2006 ▲

Michael
Dell

Exactamente, tener auch algo gebastelt...

Original-Autor: Thomas Hölzer
Bearbeited: Michael Dell

Proc CrSpinEdit

    Parámetros 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
    Declarar sed&,alignCT&

    If (align&>3)

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

    EndIf

    Casenote (art&=0): art& = 6000  no Punkt conjunto
    InitCommCntrl()
    sed&  = CreateSpinED($54800226+alignCT&+art&,0,0,0,0,wHndl&,$0FFFF,%hInstance,
    Control(Editar,,$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),
    sed_max&,sed_min&,sed_start&)
    Volver sed&

ENDPROC

**** Ejemplo ****
Windowtitle Über Systemmenü final
Cls Externo(USER32.DLL,GetSysColor,15)
Normales Control
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

Mientras que 1

    WaitInput

EndWhile

End

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

23.07.2006 ▲

GDL

Hi,
stand auch antes el Trennpunktproblem.Lösungen hier son super.Gracias.

Servus
Georg

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

Uwe's Variante como mögliche XPSE

window 200,100-300,150
long Editar=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
    imprimir gettext$(edit)
    imprimir sendmessage(updown,udm_getpos,0,0)
    waitinput

}

Interessant el esto no es funktioniert:

cls
long Editar=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
    imprimir gettext$(edit)
    waitinput

}

GDL

¡Hola,

habe mich con Michaels Code a früh gefreut.Lassen se con gettext$() no auslesen.

Original-Autor: Thomas Hölzer
Bearbeited: Michael Dell
declarar m&

Proc CrSpinEdit

    Parámetros 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
    Declarar sed&,alignCT&

    If (align&>3)

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

    EndIf

    Casenote (art&=0): art& = 6000  no Punkt conjunto
    InitCommCntrl()
    sed& = CreateSpinED($54800226+alignCT&+art&,0,0,0,0,wHndl&,$0FFFF,%hInstance,
    Control(Editar,,$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),
    sed_max&,sed_min&,sed_start&)
    locate 15,10
    imprimir Erstellungsinhalt= +gettext$(sed&)
    Volver sed&

ENDPROC

**** Ejemplo ****
Windowtitle Über Systemmenü final
Cls Externo(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

Mientras que 1

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

EndWhile

End

Probiere nun iFs Vorschlag de.

Servus
Georg

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

GDL

Hola si,

Warst más rápido, kann kein Spinedit mittels gettext$() de esta Codebeispielen auslesen.

Servus
Georg

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

Jörg
Sellmeyer

¡Hola Georg,

Damit funktioniert lo:

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

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

GDL

Lo va, klasse.

Servus
Georg

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