Hi All,
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!
~DJ Quimby