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 ?