Windows 7 High Dpi Application

[lainz]

This is obsolete, please go to this Wiki article:

http://wiki.freepascal.org/High_DPI

Thanks.

[mas steindorff]

looks good.  I would change the main_form to self so the code can be droped into any form

[lainz]

Trankyou, try to download the attached file "scaledpi.zip" this is an unit that helps to scale all components in a form, you only need to call the procedure OnCreate event (see the example inside), is the best way.

const
  FromDPI=96;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if FromDPI <> Screen.PixelsPerInch then begin
    ScaleControl(Self,FromDPI);
  end;
end;