<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">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>---<br></div></div></div><br><div class="gmail_quote"></div></div><div> </div></div>-- <br><div dir="ltr" class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div><strong>Bodrov Sergey</strong><br></div><div>software development, IT consulting</div><div><a href="http://www.serbod.com" target="_blank">http://www.serbod.com</a></div><div><div><u>Phone (Belarus):</u> +375(25)794-21-58</div><div><u style="font-size:12.8px">Skype:</u><span style="font-size:12.8px"> sergey.bodrov1</span><br></div></div><div><u>e-mail:</u> <a href="mailto:serbod@gmail.com" target="_blank">serbod@gmail.com</a>, <a href="mailto:oxotnuk@yandex.ru" target="_blank">oxotnuk@yandex.ru</a></div><div><br></div></div></div></div></div></div></div></div>