<html><head></head><body style="zoom: 0%;"><div dir="auto">Ok it is a workaround but why not call your function only one time at start for instance in main form create?<br></div>
<div dir="auto">Regard<br></div>
<div dir="auto">Salvatore <br></div>
<div class="gmail_quote" >Il giorno 16 Set 2019, alle ore 08:20, Bo Berglund via lazarus <<a href="mailto:lazarus@lists.lazarus-ide.org" target="_blank">lazarus@lists.lazarus-ide.org</a>> ha scritto:<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<pre class="blue">On Mon, 16 Sep 2019 00:29:58 +0000 (UTC), Haruyuki Fujimaki via<br>lazarus <lazarus@lists.lazarus-ide.org> wrote:<br><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 1ex 0.8ex; border-left: 1px solid #729fcf; padding-left: 1ex;">Hello everyone,<br>I am maintaining my softwares in xfce desktop system (Linux Lite).<br>The height of TEdit and TSpinEdit controls becomes awkwardly too <br>large as shown in attached screenshot.<br>By setting AutoSize := False, I can modify the height, but it is <br>laborious for a big project and downward arrow of TSpinEdit is <br>hidden.Does anyone know how to solve this problem?<br>Haruyuki Fujimaki<br></blockquote><br>I recently had a similar problem with a cross-platform application<br>when I built it on Linux (Raspbian).<br>In my case the controls became too small, but I think the problem is<br>the same as yours.<br><br>My sources are first developed on Windows and stored in subversion.<br>When I retrieved them in Raspbian and opened Lazarus there to build<br>the Linux version the user entry boxes for data were all too small.<br><br>What happened was that the font of these controls had gotten a<br>different size when the project was opened in Lazarus on Linux!<br><br>In my case the control types affected were buttons, spinedits,<br>statictexts, groupboxes, checkboxes and labels.<br><br>So I had to add a procedure to set the font size of them all, which is<br>called from the Form.OnShow event. I only had to change the size by<br>one point to make the form look OK again.<br><br>Here is my function:<br><br>procedure TfrmMain.SetFontSize(S: shortint);<br>begin<br> // Set font size on load.<br> btnDec60.Font.Size := S;<br> btnDec30.Font.Size := S;<br> btnDec10.Font.Size := S;<br> btnDec1.Font.Size := S;<br> btnInc1.Font.Size := S;<br> btnInc10.Font.Size := S;<br> btnInc30.Font.Size := S;<br> btnInc60.Font.Size := S;<br> btnCutStart.Font.Size := S;<br> btnCutEnd.Font.Size := S;<br> btnAddCut.Font.Size := S;<br> btnJump.Font.Size := S;<br> btnShiftAudio.Font.Size := S;<br> speDelay.Font.Size := S;<br> stxCutStart.Font.Size := S;<br> stxCutEnd.Font.Size := S;<br> stxCutTime.Font.Size := S;<br> stxClipCnt.Font.Size := S;<br> gbxCut.Font.Size := S;<br> ckbLogin.Font.Size := S;<br> lblTotal.Font.Size := S;<br>end;<br><br><br>And it is called from here:<br><br>procedure TfrmMain.FormShow(Sender: TObject);<br>begin<br> SetFontSize(9);<br>end;<br><br>I do not understand why the size clearly stated in the sources as 9<br>are changed by Lazarus when the project loads on a different operating<br>system, but that is in any case what happens.<br><br>I am using Lazarus 2.0.4 and fpc 3.0.4 on Windows and Raspbian.<br><br></pre></blockquote></div></body></html>