habe hierzu ein paar code beispiele gelesen
aber hat nichts geklappt.
bin absoluter anfänger
kann mir bitte jemand weiter helfen?
erstelle ein form auf einem pc mit auflösung von 1280 x 1024 (Delphi 5)
möchte aber die proportionen auf einem pc mit auflösung 800x600 beibehalten.
CODE:
procedure TForm1.FormCreate(Sender: TObject);
const breite=1280; {Auflösung, unter der das Fenster erstellt wurde}
hoehe=1024;
var schrift: integer;
begin
schrift := pixelsperinch-96;
if screen.width>breite then begin
if schrift>0 then
{für große Schriften}
ScaleBy(round(((screen.width/breite)*100)-((screen.width/breite-1)*100)),100)
else
{für kleine Schriften}
ScaleBy(round(((screen.width/breite)*100)),100);
end
else begin
if screen.width=breite then
ScaleBy(round(((screen.width/breite)*100)-schrift),100)
else begin
if schrift>0 then
{für große Schriften}
ScaleBy(round((100-(breite/screen.width-1)*100)-(breite/screen.width-1)*100),100)
else
{für kleine Schriften}
ScaleBy(round((100-(breite/screen.width-1)*100)),100);
end;
end;
WindowState := wsMaximized;
end;