[Support]

Hello

Look, maybe this code can help you to save original size:

Code:

uses sSkinManager, sVclUtils;
…
var
iPPI: integer;
…
if DefaultManager.IsActive then begin
if DefaultManager.Options.ScaleMode = smVCL then
iPPI := DefaultPPI
else
iPPI := DefaultManager.Options.PixelsPerInch
end
else
iPPI := 96;

SaveMainFormWidthHeight(Width * 96 div iPPI, Height * 96 div iPPI);

[kaju_74]

'Support' wrote:

Hello

Look, maybe this code can help you to save original size:

Code:

uses sSkinManager, sVclUtils;
…
var
iPPI: integer;
…
if DefaultManager.IsActive then begin
if DefaultManager.Options.ScaleMode = smVCL then
iPPI := DefaultPPI
else
iPPI := DefaultManager.Options.PixelsPerInch
end
else
iPPI := 96;

SaveMainFormWidthHeight(Width * 96 div iPPI, Height * 96 div iPPI);

Hi,

I've figured out nearly the same by playing with it, but: You'll get rounding errors where the form dimension will be shrink by 0-1 pixel each time – so that's not the full solution for me right now…but I've another idea if there's no native support to fix it.

Thank you very much,

kaju

[Author]

Posts