<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<div class="moz-cite-prefix">On 15.04.2019 14:35, Sergey Bodrov via
lazarus wrote:<br>
</div>
<blockquote type="cite"
cite="mid:CAEnbvREc-HBf1zcx19-9E5jHvvQ+BPL5ViHGeSvwLam6ocV=kQ@mail.gmail.com">
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<div dir="ltr">
<div dir="ltr">
<div dir="ltr">
<div dir="ltr">пн, 15 апр. 2019 г. в 14:42, Ondrej Pokorny
via lazarus <<a
href="mailto:lazarus@lists.lazarus-ide.org"
moz-do-not-send="true">lazarus@lists.lazarus-ide.org</a>>:<br>
</div>
<div dir="ltr"><br>
</div>
</div>
<div class="gmail_quote">
<blockquote class="gmail_quote" style="margin:0px 0px 0px
0.8ex;border-left:1px solid
rgb(204,204,204);padding-left:1ex">> Yes, there is
TDataModule.DesignPPI that makes sure the positions <br>
> (Left/Top properties) of the non-visual components
are scaled correctly.<br>
<br>
<br>
By the way, the default value of 96 should not be written
to LFM/DFM. So <br>
you should not get any warnings if you develop at 96 DPI /
100% scaling.<br>
</blockquote>
<div><br>
</div>
<div>
<div dir="ltr">
<div dir="ltr">content of some Delphi .DFM after Lazarus
2.0.0 win64 release:
<div>===</div>
<div>
<div><font face="monospace, monospace">object
DMBaseClient: TDMBaseClient</font></div>
<div><font face="monospace, monospace"> OnCreate =
DataModuleCreate</font></div>
<div><font face="monospace, monospace"> OnDestroy =
DataModuleDestroy</font></div>
<div><font face="monospace, monospace">
OldCreateOrder = False</font></div>
<div><font face="monospace, monospace"> Height =
269</font></div>
<div><font face="monospace, monospace">
HorizontalOffset = 0</font></div>
<div><font face="monospace, monospace">
VerticalOffset = 0</font></div>
<div><font face="monospace, monospace"> Width = 441</font></div>
<div><font face="monospace, monospace"> <b>PPI = 96</b></font></div>
<div><font face="monospace, monospace"> object
tmrCheckActivity: TTimer</font></div>
<div><font face="monospace, monospace"> OnTimer =
tmrCheckActivityTimer</font></div>
<div><font face="monospace, monospace"> left =
104</font></div>
<div><font face="monospace, monospace"> top = 104</font></div>
<div><font face="monospace, monospace"> end</font></div>
<div><font face="monospace, monospace"> object
tmrProcessPackets: TTimer</font></div>
<div><font face="monospace, monospace"> Interval
= 1</font></div>
<div><font face="monospace, monospace"> OnTimer =
tmrProcessPacketsTimer</font></div>
<div><font face="monospace, monospace"> left =
104</font></div>
<div><font face="monospace, monospace"> top = 148</font></div>
<div><font face="monospace, monospace"> end</font></div>
<div><font face="monospace, monospace">end</font></div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</blockquote>
<p><br>
</p>
<p><a class="moz-txt-link-freetext" href="https://bugs.freepascal.org/view.php?id=32163">https://bugs.freepascal.org/view.php?id=32163</a></p>
<p>Ondrej<br>
</p>
</body>
</html>