Cosmin,
I picked this up on the web some time back. It worked on an XP system set
to large fonts. I'm not using it now, but as I recall it worked for me.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
function hasLargeFonts : Boolean;
{ --------------------------------------------------------
Returns a boolean indicating whether or not the user has
Large Fonts enabled in Display Properties.
-------------------------------------------------------- }
var
liPPI : longInt; // holds pixels per inch for canvas
hCanvas : HDC; // device context for current canvas
const
LGFPPI = 120; // PPI when LgFonts active
begin
hCanvas := getDC( 0 ); // get current canvas
try
liPPI := getDeviceCaps( hCanvas, LOGPIXELSX );
finally
releaseDC( 0, hCanvas ); // prevent leaks
end;
result := ( liPPI = LGFPPI ); // compare and return
end; // hasLargeFonts
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
----- Original Message -----
From: "Cosmin Prund" <[EMAIL PROTECTED]>
To: "Moderated discussion list about programming with Borland's Delphi"
<[email protected]>
Sent: Thursday, September 01, 2005 10:55 AM
Subject: Detecting Large Fonts
> I'm looking for a way to detecting rather I'm running on a LargeFonts
> system
> OR on a normal font system. I googled for "detect large font" and found
> two
> code samples both trying to detect large fonts using:
>
> DPI := GetDeviceCaps(DC, LOGPIXELSX);
>
> Unfortunatelly this code returns 96 on my WinXP Large Fonts test system.
>
> Any idea how to detect this?
> Thanks!
>
> _______________________________________________
> Delphi mailing list -> [email protected]
> http://www.elists.org/mailman/listinfo/delphi
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
