Bildschirmskalierung ermitteln und setzen

[kiar]

hallo rainer ,

habe was gefunden:

Delphi-Quellcode:

private// im Interface
    FAnpassen :Boolean ;
    Ffont : integer;
    procedure PasseAn;

dann in der implementation:

Delphi-Quellcode:

procedure Tfrm_Main.FormCreate(Sender: TObject);
begin
    FAnpassen     := true;
    FFont         := 96;
    Scaled        := true;
end;

procedure Tfrm_Main.FormShow(Sender: TObject);
begin
     PasseAn;
end;

procedure Tfrm_Main.PasseAn;
begin
   if FAnpassen then
     begin
       PixelsPerInch := Screen.PixelsPerInch;
       If PixelsPerInch <> FFont then
          begin
             width := LongInt(Width * PixelsPerInch) div FFont;
             height:= Longint(height* PixelsPerInch) div FFont;
          end;
       FAnpassen := false;
     end;
end;

funktioniert prima

raik