MASM32 Downloads
;Debug coloring setup;DBG_COLOR_BACKGROUND equ $RGB(255,255,255)DBG_COLOR_BACKGROUND equ $RGB(000,000,048)DBG_COLOR_TEXT equ $RGB(230,230,230) ;for dark background;DBG_COLOR_TEXT equ $RGB(000,000,000) ;for bright backgroundDBG_COLOR_COMMENT equ 00B7F7F5h;$RGB(208,208,208) * * *DBG_COLOR_LINE equ $RGB(150,150,255)DBG_FONT_TEXT textequ <Fixedsys> ;DBG_FONT_TEXT textequ <Courier New>
Method DbgMdiChildTxt.OnCreate, uses xsi, wParam:WPARAM, lParam:LPARAM SetObject xsi invoke CreateWindowEx, WS_EX_LEFT or WS_EX_CLIENTEDGE or WS_EX_ACCEPTFILES, \ offset szRichEdit20, NULL, EDTSTYLE, \ 0, 0, 10, 10, [xsi].hWnd, RICHEDITID, hInstance, NULL mov [xsi].hEdit, xax invoke SendMessage, xax, EM_SETEVENTMASK, 0, ENM_SELCHANGE ;------------------------------------------------------------------ invoke SendMessage, [xsi].hEdit, EM_SETBKGNDCOLOR, 0, DBG_COLOR_BACKGROUND ;------------------------------------------------------------------ mov [xsi].pEdtIptor, $New(REdtIptor) OCall xax::REdtIptor.Init, xsi, [xsi].hEdit, offset szPropREdtIptor xor eax, eaxMethodEnd
Method DebugCenter.OnCreate, uses xbx xsi, wParam:WPARAM, lParam:LPARAM * * *1309: FillString LF.lfFaceName, <DBG_FONT_TEXT> * * *MethodEndMethod DebugCenter.OnCopyData, uses xbx xdi xsi, wParam:WPARAM, lParam:LPARAM * * * 1180: ;m2z CFD.crTextColor mov CFD.crTextColor, DBG_COLOR_LINE * * * MethodEnd
DbgOutHex <Var = >,0 , ??VarRBX, 0 , ??DbgDstWnd
DbgOutHex <Var = >, , ??VarRBX, , ??DbgDstWnd
PS: I changed the background of the ChildBmp to match the ChildTxt.