XProfan

Español

Manfred
Barei

¡Hola,

en una MultiEdit el Zeichenanzahl a begrenzen es sí posible,
es aber auch posible en una MultiEdit el Zeilenanzahl a 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 Cita Zeilenweise Cita

Jörg
Sellmeyer

Yo glaube no, daß al direkt con uno Message (como en Zeichenanzahl) hacer kann, aber Usted puede con @GetLineCount(N) siempre el Zeilenanzahl abfragen y luego entsprechen reagieren.

Saludo
Jörg

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

20.10.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Manfred

Posesiones hier una Code gefunden el Usted helfen kann
Kompilieren Marca Separación

 $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