- This topic has 1 reply, 2 voices, and was last updated 6 years, 2 months ago by
.
Viewing 1 post (of 1 total)
-
Posts
-
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);
Viewing 1 post (of 1 total)
- You must be logged in to reply to this topic.