XProfan

Español

Bongbaer

¡Hola sólo veces.

Yo habe el problema, Yo una @createedit en 4 Signo begrenzen voluntad. Sobalt mehr eingegeben se, se el Cursor posición bleiben.

Yo benutzte Profano 5.

Übrigens, esta Foro ha mich oft weitergebracht. Lo son hier teilweise muy gute Programmierer.

14.10.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Dell

Hi, dazu nimmst du el Message em_LimitText = $00C5

Ejemplo:
Kompilieren Marca Separación

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

Saludo

Michael...

Salu Michael...

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

14.10.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bongbaer

Vielen herzlichen dank...sin dich hätte Todavía lage probieren necesario

16.10.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bongbaer

Yo habe como todavía una Probelem.

¿Cómo se puede Yo una @createtext rechtsbündig ausrichten. Desde que Provan 5.0 verwende tener Yo, el Befehl control todavía no. Aber el muß sí trotz el ir.

17.10.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Dell

¡Hola, hier una Ejemplo con un Control-Ersatz:

Kompilieren Marca Separación

**** 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#
End