Form auf auflösung anpassen

[Darlo]

Hi,

um Quellcode im Forum lesbar einzugeben kannst Du diesen in Delphi-Tag einfügen.

Delphi-Quellcode:

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;

Was funktioniert denn genau nicht?