XProfan

 {$cleq}
style de fenêtre 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 %clé==2

    waitInput

Wend

end

nProc hWnd.wndProc

    Paramètres wnd&,msg&,wp&,lp&

    si msg&=wm_ctlColorEdit

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

    endif

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

endproc