XProfan

Torsten
Rümker

je voulais cela Thema nochmal aufwärmen, là je là toujours pas weitergekommen suis.

Wirklich niemand là qui ne Ahnung hat comment je cela 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 Possibilité qui mir direct einfällt:

 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.4c
DATUM  21.07.2006    um  11:29 montre
VERWENDETE PROFANVERSION IST 10.0ß-NT S13 XPROFAN
CODE ERSTELLT UNTER UNBEKANNTER WINDOWSVERSION
!!! cette Code wird de Roc toujours récente erzeugt        !!!
!!! seulement Travailler, si alle Objekte erzeugt wurden !!!
!!! Verändern vous ggf. feste Pfade dans variable Pfade  !!!
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE SPINEDIT1&
WINDOWSTYLE 63
WINDOWTITLE Neues la fenêtre
WINDOW 22,20-640,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
ici peux ggf. son menu hin
SPINEDIT1& = CREATE(SPINEDIT,%HWND,0;-100;5000,0229,0241,0120,0020)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    Si @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(SPINEDIT1&) SPINEDIT

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

    ENDIF

WEND

le tort ici ensuite, dass qui Concentrer toujours à den Anfang gesetzt wird. mais là sollte oui aussi possible son, den Cursor wieder anders trop behandeln.

21.07.2006 ▲

Uwe
''Pascal''
Niemeier

allô gens!

qui @Créer-Funktionen sommes (avant Allem chez komplexeren Controls) eh bien la fois un Kompromiss.
qui plus Opportunités avons veux, muss wohl ou bien übel quelque chose tüffteln...

window 200,100-300,150
 $H Messages.ph
 $H Commctrl.ph
declare 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 paramètre: Max,Min,Vorgabe

tandis que 1

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

endwhile

HTH
Pascal

22.07.2006 ▲

Michael
Dell

oui c'est ca, hab aussi quelque chose gebastelt...

Original-Autor: Thomas Bois
Bearbeited: Michael Dell

Proc CrSpinEdit

    Paramètres 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
    Déclarer sed&,alignCT&

    Si (align&>3)

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

    EndIf

    Casenote (art&=0): art& = 6000  keinen Punkt mettons
    InitCommCntrl()
    sed&  = CreateSpinED($54800226+alignCT&+art&,0,0,0,0,wHndl&,$0FFFF,%HINSTANCE,
    Contrôle(Éditer,,$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),
    sed_max&,sed_min&,sed_start&)
    Retour sed&

ENDPROC

**** Beispiel ****
Windowtitle Über Systemmenü finissons
Cls Externe(USER32.DLL,GetSysColor,15)
Normales Contrôle
CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,1)  à gauche     + UpDown à droite - Punkt
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,1)  Zentriert + UpDown à droite - Punkt
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,1)  à droite    + UpDown à droite - Punkt
Gedrehtes Contrôle
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,6,0)  à droite    + UpDown à gauche + Punkt
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,5,0)  Zentriert + UpDown à gauche + Punkt
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,4,0)  à gauche     + UpDown à gauche + Punkt

Tandis que 1

    WaitInput

Endwhile

Fin

Salu Michael...

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

23.07.2006 ▲

GDL

Hi,
stand aussi avant dem Trennpunktproblem.Lösungen ici sommes super.merci.

salut
Georg

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

Uwe's variante comme mögliche XPSE

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

}

intéressant cela ca pas funktioniert:

cls
long Éditer=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
    imprimer gettext$(edit)
    waitinput

}

GDL

Salut,

habe mich avec Michaels Code trop tôt gefreut.laisser sich avec gettext$() pas auslesen.

Original-Autor: Thomas Bois
Bearbeited: Michael Dell
declare m&

Proc CrSpinEdit

    Paramètres 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
    Déclarer sed&,alignCT&

    Si (align&>3)

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

    EndIf

    Casenote (art&=0): art& = 6000  keinen Punkt mettons
    InitCommCntrl()
    sed& = CreateSpinED($54800226+alignCT&+art&,0,0,0,0,wHndl&,$0FFFF,%HINSTANCE,
    Contrôle(Éditer,,$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),
    sed_max&,sed_min&,sed_start&)
    locate 15,10
    imprimer Erstellungsinhalt= +gettext$(sed&)
    Retour sed&

ENDPROC

**** Beispiel ****
Windowtitle Über Systemmenü finissons
Cls Externe(USER32.DLL,GetSysColor,15)
Normales Contrôle
m&=CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,1)  à gauche  + UpDown à droite - Punkt
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,1)  Zentriert + UpDown à droite - Punkt
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,1)  à droite  + UpDown à droite - Punkt
Gedrehtes Contrôle
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,6,0)  à droite  + UpDown à gauche + Punkt
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,5,0)  Zentriert + UpDown à gauche + Punkt
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,4,0)  à gauche  + UpDown à gauche + Punkt

Tandis que 1

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

Endwhile

Fin

Probiere eh bien iFs Vorschlag aus.

salut
Georg

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

GDL

allô iF,

étais plus rapide, peux ne...aucune Spinedit mittels gettext$() de cette Codebeispielen auslesen.

salut
Georg

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

Jörg
Sellmeyer

allô Georg,

avec cela funktioniert es:

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

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

GDL

und dir, super.

salut
Georg

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