I work on a software package that prints checks, among other things. I want to verify that a particular font is installed on the system before I allow the print, because if its not there it defaults to Wingdings, and checks don't quite look right with Wingdings :)
I am trying to use Screen.Font in the following way:
if Screen.Fonts.IndexOfName('MICR65') = -1 then begin ITErrorDialog('The MICR font cannot be found on your system. Please ' + 'install the font or contact your support personnel for further ' + 'instruction.'); exit; end;
At debug time, I can see that Screen.Fonts is empty, in which case this statement always fails.
I scoured the net, but I can't find any forums with entries similar to this. Does anyone have any advice for me?
Thanks for your help!