ScaleBy

[Bjoerk]

Das Design soll auf allen Bildschirmen und auch bei vergrößerten Windows Schriften immer 1,0-fach angezeigt werden.

Um dies sicherzustellen, wollte ich in FormCreate und FormShow folgendes reinschreiben.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PixelsPerInch:=96;
  ScaleBy(PixelsPerInch,Screen.PixelsPerInch);
  Realign;
end;

Haben die entsprechenden Befehle in FormCreate und FormShow schon eine Wirkung oder müssen manche nach FormShow rein oder vielleicht nach FormActivate ?

[Bernhard Geyer]

Zitat von Bjoerk:

Das Design soll auf allen Bildschirmen und auch bei vergrößerten Windows Schriften immer 1,0-fach angezeigt werden.

Also unvergrößert: Einfach das Form-Property Scaled auf False setzen.

Und das Thema gehört nach "GUI-Design mit VCL / Qt / Common Controls" da das Skalieren die VCL durchführt.