Delphi-PRAXiS - ScaleBy

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - ScaleBy (https://www.delphipraxis.net/160170-scaleby.html)

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 ?

Zitat:

Zitat von Bjoerk (Beitrag 1097923)

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.