Dial-a-fix update (no version change)

I have made a slight modification to Dial-a-fix so that it works on non-standard (i.e., not 96) "virtual DPI" settings. Windows uses its virtual DPI to scale fonts ("Small fonts" = 96, "Large fonts" = 120) and most programs become unusable because the burden of form scaling lies with the developer. Apparently, with Delphi 7 (and most likely many other versions), the form scaling is just plain broken. Each form's "Scaled" property was set to False, and a quick change was made at the beginning of each form creation procedure to add the ScaleBy function:

Delphi [Show Styled Code]:

procedure TYourForm.FormCreate(Sender: TObject);
begin
    if Screen.PixelsPerInch <> PixelsPerInch then
      ScaleBy(Screen.PixelsPerInch, PixelsPerInch);
{..the rest of your FormCreate procedure..}
end;

Delphi [Show Plain Code]:

procedure TYourForm.FormCreate(Sender: TObject);
begin
    if Screen.PixelsPerInch <> PixelsPerInch then
      ScaleBy(Screen.PixelsPerInch, PixelsPerInch);
{..the rest of your FormCreate procedure..}
end; 

I swear I will now begin making the Dial-a-fix tips page :)

Comments

3 Responses to “Dial-a-fix update (no version change)”

# rridgely on January 28th, 2006 9:09 PM

Dude I have a DAF related question.. But I dont know of a better way to ask you so here it goes. :D
http://forum.ccleaner.com/index.php?showtopic=3914

Does DAF reregister those dlls mentioned? (I see the VB script one mentioned but not the other)
# DjLizard on January 29th, 2006 11:01 AM

Yeah it registers both DLLs.
# rridgely on January 29th, 2006 8:35 PM

Thanks.

Leave a Reply

Non-technical

Technical

Categories

Archives

Jan

26

Dial-a-fix update (no version change)

Comments