XProfan

Italia

Bongbaer

Hallo erst mal.

Ich habe das Problem, daß ich ein @createedit auf 4 Zeichen begrenzen will. Sobalt mehr eingegeben wird, soll der Cursor stehen bleiben.

Ich benutzte Profan 5.

Übrigens, diese Foro hat mich oft weitergebracht. Es gibt hier teilweise sehr gute Programmierer.

14.10.2004 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Dell

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

Beispiel:
Kompilieren Markieren Separieren

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

Saluto

Michael...

Salu Michael...

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

14.10.2004 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Bongbaer

Vielen herzlichen dank...ohne dich hätte ich noch lage probieren müssen

16.10.2004 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Bongbaer

Ich habe da noch ein Probelem.

Wie kann ich eine @createtext rechtsbündig ausrichten. Da ich Provan 5.0 verwende hab Io l' Befehl control noch nicht. Aber das muß ja trotz dem gehen.

17.10.2004 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Dell

Hallo, hier ein Beispiel mit einem Control-Ersatz:

Kompilieren Markieren Separieren

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