XProfan

Français

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
RTF: Text einrücken und ausrücken
WindowTitle Bitte Text mit der Maus markieren ...
window 50,50-500,400
settruecolor 1
usermessages 16---WM_CLOSE > Schliessen abfangen
usefont ms sans serif,15,7,0,0,0
setdialogfont 1
declare rtf#,Edit&,dll&,Test1%,Test2%,Test3%
dim rtf#,60
dll&=usedll(riched32.dll)
Edit&=control(RichEdit,,$54315004,180,10,300,200,%hwnd,100,%hinstance,$200)
settext Edit&,Test: LaberLaberLaber
sendmessage(Edit&,1087,0,1)----------EM_HIDESELECTION => none
Test1%=create(button,%hwnd,ausrücken,10,50,80,22)
Test2%=create(button,%hwnd,einrücken,10,80,80,22)

proc rtf-SetOffsetIndent-------------------------------------------------------------????

    parameters a%
    clear rtf#
    long rtf#,0=156
    long rtf#,4= $80000000---PFM_OFFSETINDENT
    long rtf#,12=a%*10
    sendmessage(Edit&,$447,0,rtf#)-EM_SETPARAFORMAT
    endproc-------------------------------------------------------------------------------------

    while 1

        waitinput
        case %umessage=16:break

        if getfocus(Test1%)

            rtf-SetOffsetIndent 100
            setfocus(%hwnd)

        elseif getfocus(Test2%)

            rtf-SetOffsetIndent -100
            setfocus(%hwnd)

        endif

    endwhile

    destroywindow(Edit&)
    case dll&:freedll dll&
    dispose rtf#