Große Schrifftarten ( Leidiges Thema )

[turboPASCAL]

Delphi-Quellcode:

 // ...

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Bildschirmauflösung zur Erstellungszeit (des Formulares beim programieren)
const
  ScrWidthResDev  = 1024;
  ScrHeightResDev =  768;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Scaled := true;
  if (Screen.Height <> ScrHeightResDev) or
     (Screen.Width<>ScrHeightResDev) then
  begin
    Height:= (ClientHeight * Screen.Width div ScrWidthResDev) +
      Height - ClientHeight;
    Width:= (ClientWidth * Screen.Width div ScrHeightResDev) +
      Width - ClientWidth;
    ScaleBy(Screen.Height, ScrHeightResDev);
  end;
end;

end.

So ?