Aw dawg, this is just my whateva-whateva site.

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:

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 :)