XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
RichEdit ohne Rahmen
Declare hRTF&,hDlg&,hEdit1&,hAbbruch&,Exit%
Cls
hDlg& = Create(Dialog,%hWnd,RichEdit ohne Rahmen,100,100,400,200)
hAbbruch& = Create(Button,hDlg&,Abbruch,180,140,70,22)
hEdit1& = Create(RichEdit,hDlg&,Das ist ein RichEdit ohne Rahmen,20,20,250,50)
ShowWindow(hEdit1&,0)
SetStyle hEdit1&,$50FF00F4
Sendmessage(hEdit1&,$604,0,0)EM_SETEDITSTYLE
ShowWindow(hEdit1&,1)

WhileNot Exit%

    WaitInput

    If Clicked(hAbbruch&)

        Exit% = 1

    EndIf

EndWhile

DestroyWindow(hDlg&)