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.
Announcement
Collapse
No announcement yet.
Große/kleine Schriftarten ?
Collapse
X
-
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
Comment