XProfan

English

Manfred
Barei

Hi,

with one MultiEdit The Zeichenanzahl To limit is Yes possible,
is But too possible with one MultiEdit The Zeilenanzahl To limit

,

Grus
Manfred

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

10/20/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

I faith not, that to the directly with of/ one Message (How with the Zeichenanzahl) can make, but You can with @GetLineCount(n) always The Zeilenanzahl inquire and then correspond to react.

Greeting
Jörg

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

10/20/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

@Manfred

have here a code found the you help can
Compile Mark Separation

 $P+
SetErrorLevel 0
Declare appexit%
Declare MultiEdit&
Declare Button1&
Def GetSysColor(1) !USER32,GetSysColor
*M Haupt-Fenster DesignForm

Proc LimitMultiEdit

    Parameters me&,limit%
    Declare i%

    If Gt(GetLineCount(me&),Add(limit%,1))

        Let i%=0
        ClearList

        While Lt(i%,limit%)

            Addstring GetLine$(me&,i%)
            Inc i%

        Wend

        SendMessage(me&,$303,0,0)
        MoveListToEdit(me&)
        ClearList

    EndIf

EndProc

Proc DesignForm_OnIdle

    LimitMultiEdit MultiEdit&,10

EndProc

Proc Button1_OnClick

    appexit%=1

EndProc

SetTrueColor 1
WindowStyle $003F
WindowTitle DesignForm
Window Add(%maxX,50),103 - 337,318
Cls GetSysColor(15)
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
Let MultiEdit&=CreateMultiEdit(%hwnd,,33,37,262,192)
ClearList
AddString 1
AddString 2
AddString 3
AddString 4
AddString 5
AddString 6
AddString 7
AddString 8
AddString 9
AddString 10
MoveListToEdit(MultiEdit&)
ClearList
Let Button1&=CreateButton(%hwnd,&Fertig,238,250,75,25)
SetWindowPos %hwnd = 254,103 - 337,318;0

WhileNot appexit%

    DesignForm_OnIdle
    WaitInput

    If Equ(%key,2)

        Let appexit%=1

    ElseIf GetFocus(MultiEdit&)

    ElseIf GetFocus(Button1&)

        Button1_OnClick

    ElseIf Equ(%key,4)

        Fenstergröße

    ElseIf Equ(%key,5)

        Hilfe

    EndIf

Wend