XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
MultiEdit  -  den linken Rand verändern
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer
Den linken Rand eines Multiedit verändern
Declare rect#

Proc IndentEdit

    Parameters e&,indent%
    Dim rect#,16
    SendMessage(e&,$B2,0,rect#)
    Long rect#,0=Add(Long(rect#,0),indent%)
    SendMessage(e&,$B3,0,rect#)
    Dispose rect#

EndProc

Beispiel
Def GetSysColor(1) !USER32,GetSysColor
Declare ende%
Declare MultiEdit%
Declare Button1%
Declare Button2%

Proc Button1Click

    IndentEdit MultiEdit%,1

EndProc

Proc Button2Click

    IndentEdit MultiEdit%,-1

EndProc

SetTrueColor 1
WindowStyle $003F
WindowTitle Linken Rand setzen
Window 274,132 - 406,369
Cls GetSysColor(15)
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
Let MultiEdit%=CreateMultiEdit(%hwnd,,28,43,342,242)
AddString Der linke Rand wird um 1 Pixel ein-/ausgerückt
MoveListToEdit(MultiEdit%)
ClearList
Let Button1%=CreateButton(%hwnd,Einrücken,43,300,75,25)
Let Button2%=CreateButton(%hwnd,Ausrücken,283,300,75,25)

WhileNot ende%

    WaitInput

    If Equ(%key,2)

        Let ende%=1

    ElseIf GetFocus(Button1%)

        Button1Click

    ElseIf GetFocus(Button2%)

        Button2Click

    EndIf

Wend

End