[Solved] Control positionning issue

[Philippe1]

Hello
I have Lazarus 3.6 on a Windows 11 64 bits PC.
I have an application that has curious behavior. I compile for Windows 32 bits and when distributing the installator (Inno Setup), on some computers, the Tcomboboxes don't keep the same place as assigned on the form (by code neither by anchor). Is it an issue somebody else had ?
Thanks
Philippe

[TRon]

Is this perhaps the same behaviour as described in this thread ?

[Philippe1]

Hello,
This is an up for my post. I solved the issue by creating the 3 comboboxes at runtime.

Code: Pascal  [Select][+][-]

1. unit Unit1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. interface
6.  
7. uses
8.  
9.   {$IFDEF UNIX}
10.   cthreads,clocale,
11.   {$ENDIF}
12.   interfaces, // this includes the LCL widgetset
13.  
14.   Windows, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, IniFiles,
15.   LCLTranslator, Graph, RegExpr, StdCtrls, ExtCtrls, MaskEdit, LCLType, LCLIntf,
16.   Variants, Math, LR_Class, LR_PGrid, DBGrids, fpjson, JSONParser,
17.   blcksock, FileUtil, unit2, Process, fphttpclient ;
18.   //LR_Class, LR_DBSet, Grids, Variants, Math, GetText, LR_DSet, LR_Desgn;
19.  
20.   type
21.  
22.       TArrayStr = array of string;
23.  
24.      { TForm1 }
25.  
26.      TForm1 = class(TForm)
27.             btnExit: TButton;
28.             btnClear: TButton;
29.             BtCalculate: TButton;
30.             BtPrint: TButton;
31. .../...
32.             LbDelta: TLabel;
33.             LbMTAccuracy: TLabel;
34.             LbETAccuracy: TLabel;
35.             LbSelectLanguage: TLabel;
36.             procedure CbETAccuracyChange(Sender: TObject);
37.             procedure CbLanguageChange(Sender: TObject);
38.             procedure CbMTAccuracyChange(Sender: TObject);
39.  .../...
40.     private
41.            CbLanguage: TCombobox;
42.            CbETAccuracy: TComboBox;
43.            CbMTAccuracy: TComboBox;
44.            MaskEditArray: array[1..40] of TMaskEdit;  // Tableau de 40 TMaskEdit
45.            procedure GenerateReport;
46.     public
47.     end;
48.  
49.  

Then

Code: Pascal  [Select][+][-]

1. {Procedure of TForm}
2.  
3. procedure TForm1.FormCreate(Sender: TObject);
4. var
5.   i, index, intLine: Integer;
6.   ScreenWidth, ScreenHeight: Integer;
7.   OSInfo: TOSVersionInfo;
8.   Labelx: array[1..10] of Tlabel;
9.   bolOK: Boolean;
10.  
11. begin
12.      DefaultFormatSettings.DecimalSeparator := '.';
13.      OSInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
14.      if GetVersionEx(OSInfo) then
15.        OSName := 'Windows'
16.      else
17.        OSName := 'Autre';
18.     {
19.     gd := Detect;
20.     InitGraph(gd, gm, '');
21.  
22.     if GraphResult <> grOk then
23.     begin
24.          ShowMessage('Erreur d''initialisation graphique.');
25.          halt(1);
26.     end; }
27.  
28.     ScreenWidth := Screen.Width - 400;
29.     ScreenHeight := Screen.Height - 100;
30.     //width := GetMaxX + 1;
31.     //height := GetMaxY + 1;
32.     Form1.Width := ScreenWidth - 100;
33.     Form1.Height := ScreenHeight - 100;
34.  
35. .../...
36.  
37.     // Créer l'instance de TComboBox
38.     CbLanguage := TComboBox.Create(Form1);
39.  
40.     // Définir le parent pour qu'il soit visible
41.     CbLanguage.Parent := Self;
42.  
43.      CbLanguage.Left := LbSelectLanguage.Left;
44.      CbLanguage.Top := LbETAccuracy.Top;
45.      CbLanguage.Width := LbSelectLanguage.Width;
46.      CbLanguage.Clear;
47.      CbLanguage.Items.Add('English');
48.      CbLanguage.Items.Add('Français');
49.      CbLanguage.Items.Add('Deutch');
50.      CbLanguage.OnChange := @CbLanguageChange;
51.  
52.      strValeur := OpenReadInI('Parametres', 'Language', 'English');
53.      case strValeur of
54.           'English': begin
55.                      lang := 'en';
56.                      CbLanguage.ItemIndex:= 0;
57.                      end;
58.           'Français': begin
59.                       lang := 'fr';
60.                       CbLanguage.ItemIndex:= 1;
61.                      end;
62.           'Deutch': begin
63.                     lang := 'de';
64.                     CbLanguage.ItemIndex:= 2;
65.                     end;
66.      else
67.          begin
68.               lang := 'en';
69.               CbLanguage.ItemIndex:= 0;
70.          end;
71.      end;
72.      CbMTAccuracy := TComboBox.Create(Form1);
73.  
74.      // Définir le parent pour qu'il soit visible
75.      CbMTAccuracy.Parent := Self;
76.      CbMTAccuracy.Left := LbDelta.Left;
77.      CbMTAccuracy.Top := LbMTAccuracy.Top;
78.      CbMTAccuracy.Width := LbDelta.Width;
79.      CbMTAccuracy.Clear;
80.      CbMTAccuracy.Items.Add('1/100');
81.      CbMTAccuracy.Items.Add('1/1000');
82.      CbMTAccuracy.Items.Add('1/10000');
83.      CbMTAccuracy.Items.Add('1/100000');
84.      CbMTAccuracy.Items.Add('1/1000000');
85.      strValeur := OpenReadInI('Parametres', 'MT_accuracy', '1/1000');
86.      CbMTAccuracy.Text := strValeur;
87.      case CbMTAccuracy.Text of
88.            '1/100':
89.              begin
90.                strMaskMT := '!00:00:00.00;1;_';
91.                MTPrecision := 2;
92.              end;
93.          '1/1000':
94.              begin
95.                strMaskMT := '!00:00:00.000;1;_';
96.                MTPrecision := 3;
97.              end;
98.           '1/10000':
99.              begin
100.                strMaskMT := '!00:00:00.0000;1;_';
101.                MTPrecision := 4;
102.              end;
103.           '1/100000':
104.              begin
105.                strMaskMT := '!00:00:00.00000;1;_';
106.                MTPrecision := 5;
107.              end;
108.           '1/1000000':
109.              begin
110.                strMaskMT := '!00:00:00.000000;1;_';
111.                MTPrecision := 6;
112.              end;
113.      end;
114.      // Créer l'instance de TComboBox
115.      CbETAccuracy := TComboBox.Create(Form1);
116.  
117.      // Définir le parent pour qu'il soit visible
118.      CbETAccuracy.Parent := Self;
119.      CbETAccuracy.Left := LbDelta.Left;
120.      CbETAccuracy.Top := LbETAccuracy.Top;
121.      CbETAccuracy.Width := LbDelta.Width;
122.  
123.      CbETAccuracy.Clear;
124.      CbETAccuracy.Items.Add('1/1000');
125.      CbETAccuracy.Items.Add('1/10000');
126.      CbETAccuracy.Items.Add('1/100000');
127.      CbETAccuracy.Items.Add('1/1000000');
128.      strValeur := OpenReadInI('Parametres', 'ET_accuracy', '1/1000');
129.      CbETAccuracy.Text := strValeur;
130.      case CbETAccuracy.Text of
131.           '1/1000':
132.              begin
133.                strMaskET := '!00:00:00.000:;1;_';
134.                ETPrecision := 3;
135.              end;
136.           '1/10000':
137.              begin
138.                strMaskET := '!00:00:00.0000;1;_';
139.                ETPrecision := 4;
140.              end;
141.           '1/100000':
142.              begin
143.                strMaskET := '!00:00:00.00000;1;_';
144.                ETPrecision := 5;
145.              end;
146.           '1/1000000':
147.              begin
148.                strMaskET := '!00:00:00.000000;1;_';
149.                ETPrecision := 6;
150.              end;
151.      end;
152.  

I tested on several PCs with different screen resolution and it seems to be working.
There is definitely an issue when the controls are designed into the form.

Thanks for helping
Philippe