XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
MultiEdit: markierten Text ausschneiden
declare medit&,e%,exit&,but&
cls
medit& = Create(MultiEdit,%HWnd,,5,5,300,-380)
SetText medit&,Das ist ein Test zum Ausschneiden von Text aus einem MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit.
Bitte Text markieren und den Ausschneiden-Button anklicken!
but& = Create(Button,%HWnd,Ausschneiden,5,Height(%HWnd) - 30,100,25)
exit& = Create(Button,%HWnd,Beenden,110,Height(%HWnd) - 30,100,25)

whilenot e%

    WaitInput

    if GetFocus(exit&)

        e% = 1

    elseif GetFocus(but&)

        Sendmessage(medit&,$300,0,0)
        messagebox(Der markierte Text wurde ausgeschnitten und befindet sich nun in der Zwischenablage!,I N F O,4160)

    endif

endwhile

end