XProfan

Français

Manfred
Barei

Salut,

chez einem MultiEdit qui Zeichenanzahl trop begrenzen ist oui possible,
ist es mais aussi possible chez einem MultiEdit qui Zeilenanzahl trop 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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

je crois pas, qui on cela direct avec einer Message (comment chez qui Zeichenanzahl) faire peux, mais tu peux avec @GetLineCount(N) toujours qui Zeilenanzahl abfragen et ensuite entsprechen réagir.

Salut
Jörg

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

20.10.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@Manfred

Habe ici une Code trouvé qui Dir aider peux
Kompilieren Marque Séparation

 $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