ExcludeClipRect

wnd_proc  Windowproc/////

case WM_CTLCOLOREDIT

dc = (HDC)wparam

hwnd =(HWND)lparam

RECT r

GetClientRect hwnd,r

excluding the margin, but not the border; this assumes '

a one pixel wide border '

r.left =r.right-some_margin'

--r.right'

r.left=r.left+2

r.right=r.right+16

r.top=r.top+2

r.bottom=r.bottom-2

ExcludeClipRect dc,r.left,r.top,r.right,r.bottom

(Function=GetStockObject(DC_BRUSH

edit_wnd_proc   DefSubclassProc/////

case WM_PAINT

(dc=GetDC(h)

'draw an icon 

ReleaseDC hwnd, dc

Exit Function 

DC_BRUSH  Solid color brush. The default color is white

Public Enum StockObjects
    WHITE_BRUSH = 0
    LTGRAY_BRUSH = 1
    GRAY_BRUSH = 2
    DKGRAY_BRUSH = 3
    BLACK_BRUSH = 4
    NULL_BRUSH = 5
    HOLLOW_BRUSH = NULL_BRUSH
    WHITE_PEN = 6
    BLACK_PEN = 7
    NULL_PEN = 8
    OEM_FIXED_FONT = 10
    ANSI_FIXED_FONT = 11
    ANSI_VAR_FONT = 12
    SYSTEM_FONT = 13
    DEVICE_DEFAULT_FONT = 14
    DEFAULT_PALETTE = 15
    SYSTEM_FIXED_FONT = 16
    DEFAULT_GUI_FONT = 17
    DC_BRUSH = 18
    DC_PEN = 19
End Enum

BOOL ExtTextOutA( HDC hdc, int x, int y, UINT options, const RECT *lprect, LPCSTR lpString, UINT c, const INT *lpDx

options :
ETO_CLIPPED : The text will be clipped to the rectangle.

ETO_OPAQUE  : The current background color should be used to fill the rectangle.

If the lpDx parameter is NULL, the ExtTextOut function uses the default spacing between characters

Public ENUM  ExtTextOutOptions

ETO_OPAQUE = &H2 

ETO_CLIPPED = &H4
ETO_GLYPH_INDEX = &H10
ETO_RTLREADING = &H80
ETO_NO_RECT = &H100
ETO_SMALL_CHARS = &H200
ETO_NUMERICSLOCAL = &H400
ETO_NUMERICSLATIN = &H800
ETO_IGNORELANGUAGE = &H1000
ETO_PDY = &H2000
ETO_REVERSE_INDEX_MAP =&H10000
End ENUM