Tweet
Hallo, nachdem ich das Problem mit der Bildschirmauflösung mit 'scaled by' gelöst habe, tritt ein weiteres mit den Windows Schriftgrößen auf. Meine Anwendung benötigt 96 dpi. Kann man die Windowsschriftgröße aus D5 verändern oder wie ist die Lösung ? Vielen Dank im voraus.
-
-
Hallo,<p>
<pre>
...
private
FDoFix : Boolean;
FDesignRes : Integer;
procedure FixSize;
public
{ Public-Deklarationen }
end;</Pre><PRE>
procedure TFormMain.FormCreate(Sender: TObject);
begin
FDoFix := True;
FDesignRes := 96;
end;</Pre><PRE>
procedure TFormMain.FormShow(Sender: TObject);
begin
FixSize;
end;</Pre><PRE>
procedure TFormMain.FixSize;
begin
if FDoFix then
begin
PixelsPerInch := Screen.PixelsPerInch;
if (PixelsPerInch <> FDesignRes) then
begin
Width := LongInt(Width * PixelsPerInch) div FDesignRes;
Height := LongInt(Height * PixelsPerInch) div FDesignRes;
end;
FDoFix := False;
end;
end;
</PRE>
PS: Nähere Infos findest du im Buch Delphi Win32 Lösungen von Andreas Kosch, ab Seite 167 -
Hallo, hab die Routine aus dem Buch übernommen, funktioniert aber noch nicht. Das Bild ist nach rechts unten verschoben. Liegt es am Scaled by ? Was muß zuerst ausgeführt werden ? ( Scaled by funktioniert bei allen Bildschirmauflösungen )Comment
Comment