Probelm mit Skalierung von Controls

[DeddyH]

[OT] Ich bin ja auch ein Freund des KISS-Prinzips (in meinem Alter will man nicht mehr so komplizierte Dinge machen) [/OT]

[p80286]

Hallo "alte Männer",

das Thema ist zwar schon etwas älter, aber ich bin über das gleiche Problem gestolpert.
Auch ich bin für KISS zu haben, und bin auf eine sehr einfache (und hoffentlich richtige) Lösung gestoßen.
Wobei ich dazu sagen muß, ich komme von 120 DPI und hatte die von Hannes Kuhn beschriebenen Probleme.

Meine Abhilfe:
Beim Entwurf

Delphi-Quellcode:

Form.Scaled:=false

und dann im Programm:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
  ppi_c=120; {PixelsperInch at creation}
begin
  scaleby(PixelsPerInch,ppi_c);
end;

Ich weiß, sieht ziemlich widersinnig aus, aber mit

Delphi-Quellcode:

Form.Scaled:=true

werden alle Controls wild angepaßt und nichts paßt mehr zum anderen, insbesonders Tmemo scheint ein echtes Eigenleben zu entwickeln (trotz align und anchor)

Gruß K-H