Große Schrifftarten ( Leidiges Thema )

[marlem]

tach,

rufe mal das hier im oncreate vom formular auf:

Delphi-Quellcode:

procedure bildschirmaufloesung(breite,hoehe:integer;formular:tform);
var schrift: integer;
begin
schrift := formular.pixelsperinch-96;
if screen.width>breite then begin
if schrift>0 then
{für große Schriften}
formular.ScaleBy(round(((screen.width/breite)*100)-((screen.width/breite-1)*100)),100)
else
{für kleine Schriften}
formular.ScaleBy(round(((screen.width/breite)*100)),100);
end
else begin
if screen.width=breite then
formular.ScaleBy(round(((screen.width/breite)*100)-schrift),100)
else begin
if schrift>0 then
{für große Schriften}
formular.ScaleBy(round((100-(breite/screen.width-1)*100)-(breite/screen.width-1)*100),100)
else
{für kleine Schriften}
formular.ScaleBy(round((100-(breite/screen.width-1)*100)),100);
end;
end;
end;