XProfan

 {$cleq}
windowstyle 8 | 512
cls
var h&=create("MultiEdit",hWnd,"",0,0,width(%hWnd),height(%hWnd))
setFont h&,create("font","Courier",10,0,0,0,0)
setWindowLong(%hWnd,gwl_userData,setWindowLong(%hWnd,gwl_wndProc,procaddr(hWnd.wndProc)))
setFocus(h&)

whilenot %key==2

    waitInput

wend

end

nProc hWnd.wndProc

    Parameters wnd&,msg&,wp&,lp&

    if msg&=wm_ctlColorEdit

        SetTextColor(wp&,$3377FF)
        SetBkColor(wp&,$FF7733)
        return true

    endif

    return callWindowProc(getWindowLong(wnd&,gwl_userData),wnd&,msg&,wp&,lp&)

endproc