XProfan

Français

Bongbaer

allô seulement la fois.

j'ai cela Problem, qui je un @createedit sur 4 marque begrenzen veux. Sobalt plus eingegeben wird, soll qui Cursor stehen rester.

je benutzte Profan 5.

Incidemment, cet Forum hat mich souvent weitergebracht. il y a ici partiellement très gute Programmierer.

14.10.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Dell

Hi, en supplément prends du qui Message em_LimitText = $00C5

Beispiel:
Kompilieren Marque Séparation

Def LimitText(2) SendMessage(&(1),$00C5,%(2),0)  em_LimitText
LimitText(edit1&,4)  Begrenzt das Editfeld auf vier Zeichene>

Salut

Michael...

Salu Michael...

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

14.10.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Bongbaer

Vielen herzlichen dank...sans toi hätte je encore situation essayer doit

16.10.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Bongbaer

j'ai là encore un Probelem.

comment peux je une @createtext rechtsbündig ausrichten. là je Provan 5.0 verwende hab Je l' Befehl control encore pas. mais cela doit oui trotz dem aller.

17.10.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Dell

allô, ici un Beispiel avec einem Contrôle-Ersatz:

Kompilieren Marque Séparation

**** CreateText - Ersatz ****
Def ControlEx(12) !"USER32","CreateWindowExA"  Control - Ersatz (API)
Declare cArt#,cTitle#
Dim cArt#,7
Dim cTitle#,255

Proc wm_CreateText

    Parameters wHndl&,Title$,x&,y&,cx&,cy&,Align%
    Declare Stil&,cHndl&
    String cArt#,0   = @Add$("Static",@Chr$(0))
    String cTitle#,0  = @Add$(Title$,@Chr$(0))

    If @Equ(Align%,2)

        Let Stil& = $50020002   Rechts

    ElseIf @Equ(Align%,1)

        Let Stil& = $50020001   Zentriert

    ElseIf @Equ(Align%,0)

        Let Stil& = $50020000   Links

    Else

        Return 0

    EndIf

    Let cHndl& = ControlEx(0,cArt#,cTitle#,Stil&,x&,y&,cx&,cy&,wHndl&,0,%hinstance,0)
    Return cHndl&

EndProc

*****************************
Declare txt01&,txt02&,txt03&
Cls
wm_CreateText %HWnd,"Textfeld_01",20,20,200,20,0   Links
Let txt01& = @&(0)  hole Textfeld Handle
wm_CreateText %HWnd,"Textfeld_02",20,50,200,20,1   Zentriert
Let txt02& = @&(0)  hole Textfeld Handle
wm_CreateText %HWnd,"Textfeld_03",20,80,200,20,2   Rechts
Let txt03& = @&(0)  hole Textfeld Handle
WaitInput
Dispose cArt#
Dispose cTitle#
Fin