Could some one either point me in the right direction or give me a tutorial on how to set the font a rich edit box to "Courier New" size 11?
Posted on 2001-03-22 14:11:00 by HeroInc
First you have to create the font, then assign it to your RichEdit control.

.data
szEditFontName db "Courier New",0
lf LOGFONT<>
.code
;Create RichEdit Font
   mov    lf.lfHeight,11
   mov    lf.lfWidth,0
   mov    lf.lfEscapement,0
   mov    lf.lfOrientation,0
   mov    lf.lfWeight,FW_NORMAL
   mov    lf.lfItalic,FALSE
   mov    lf.lfUnderline,FALSE
   mov    lf.lfStrikeOut,FALSE
   mov    lf.lfCharSet,ANSI_CHARSET
   mov    lf.lfOutPrecision,OUT_DEFAULT_PRECIS
   mov    lf.lfClipPrecision,CLIP_STROKE_PRECIS
   mov    lf.lfQuality,DEFAULT_QUALITY
   mov    lf.lfPitchAndFamily,DEFAULT_PITCH or FF_SWISS
   invoke lstrcpy,addr lf.lfFaceName,addr szEditFontName
   invoke CreateFontIndirect,addr lf
   mov    hEditFont,eax
;Set RichEdit Font
invoke  SendMessage,hRichEdit,WM_SETFONT,hEditFont,TRUE
Posted on 2001-03-22 15:41:00 by anon
That worked great thanks.
Posted on 2001-03-22 18:08:00 by HeroInc