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.

zusammenfalten · markieren

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 ?

ScaleBy

ScaleBy

Forumregeln