XProfan

English

Bongbaer

Hello first time.

I have the trouble, that I one @createedit on 4 characters limit wants. Sobalt More association becomes, to the Cursor stand stay.

I using Profan 5.

Übrigens, these Forum has me often weitergebracht. there's here partly very good Programmer.

10/14/04 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Dell

Hi, moreover take You The Message em_LimitText = $00C5

example:
Compile Mark Separation

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

Greeting

Michael...

Salu Michael...

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

10/14/04 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Bongbaer

Vielen much obliged...without you had I yet site try must

10/16/04 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Bongbaer

I have there another Probelem.

How can I a @createtext rechtsbündig report. Since I Provan 5.0 use Have I the commands control not yet. but the must Yes withal the weg.

10/17/04 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Dell

Hello, here example with a Control-substitute:

Compile Mark Separation

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