Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by jaenicke,
13. Jul 2016
Wir haben das in alle Formulare explizit eingebaut.
Eine Alternative könnte sein, dass du einen Hook z.B. auf TCustomForm.DoShow setzt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by jaenicke,
13. Jul 2016
Dass solche unsauberen Tricks nicht unbedingt immer weiter funktionieren, ist klar...
Warum benutzt du eigentlich nicht die normale Methode und rufst einfach ScaleBy auf? Da musst du nicht tricksen und die Methode wird offiziell unterstützt. Einzig für ein TPageControl funktioniert diese in Delphi 10.1 nicht:
https://quality.embarcadero.com/browse/RSP-14750
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by jaenicke,
13. Jul 2016
Wie wäre es einfach so?procedure TScreenHelper.SetPixelsPerInch(Value: Integer);
begin
PInteger(@PixelsPerInch)^ := Value;
end;