Tweet
Yet another Fonts Macro. Kind of a pita/distracting to create a New Font/size when working on a new control/dialog/graphic, so I just do it once at the top of the program and then changes on the fly are easy. Just change the array designator.
Code:
'
' *******************************************************
'
Macro Fonts_Setup
' put Global at top of program or change to Local here
' Global f_Script(), f_Comic(), f_Courier(), f_Arial(), f_Consolas() As Dword
Local ctr As Long
ctr = 72 'Max size of type used
ReDim f_Comic(1 To ctr), f_Courier(1 To ctr), f_Arial(1 To ctr), f_Consolas(1 To ctr), _
f_Script(1 To ctr)
For ctr = 1 To ctr
Font New "Comic MS Sans", ctr To f_Comic(ctr)
Font New "Courier", ctr To f_Courier(ctr)
Font New "Arial", ctr To f_Arial(ctr)
Font New "Consolas", ctr To f_Consolas(ctr)
Font New "Bickley Script", ctr To f_Script(ctr)
Next ctr
End Macro
'
' *******************************************************
'
'Example Code:
Graphic Set Font f_Script(60) 'f_Comic(36)
Graphic Set Pos (1, 10)
Graphic Print Msg$
'
'Or
CONTROL SET FONT [I]hDlg[/I], [I]id&[/I], f_Script(60) 'f_Comic(36)