XProfan

Deutsch

Manfred
Barei

Hallo,

bei einem MultiEdit die Zeichenanzahl zu begrenzen ist ja möglich,
ist es aber auch möglich bei einem MultiEdit die Zeilenanzahl zu begrenzen

,

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 |

20.10.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Ich glaube nicht, daß man das direkt mit einer Message (wie bei der Zeichenanzahl) machen kann, aber Du kannst mit @GetLineCount(N) immer die Zeilenanzahl abfragen und dann entsprechen reagieren.

Gruß
Jörg

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

20.10.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

@Manfred

Habe hier einen Code gefunden der Dir helfen kann
Kompilieren Markieren Separieren

 $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