Problème d'affichage de simples TLabels

**SergioMaster** · 25/08/2018, 09h47

Bonjour,

J'ai une application avec plusieurs formes que je traite à la manière d'une forme MDI. Toutes mes formes s'affichent correctement sauf une qui je ne sais pourquoi car il n'y a aucun style particulier m'encadre les Labels

Nom : Capture.PNG
Affichages : 343
Taille : 29,8 Ko

Nom : Capture.PNG
Affichages : 343
Taille : 29,8 Ko

[Edit] étrangement il a fallu que je mette la propriété ControlType = platform pour avoir l'affichage "normal"

une explication ?

**ALWEBER** · 25/08/2018, 12h20

Peux tu nous envoyer le dfm/fmx pour regarder le problème

**SergioMaster** · 27/08/2018, 08h30

Bonjour,

Au regard de la section dans laquelle j'ai mis le post il s'agit bien évidemment d'un fichier FMX !
Perso je ne pense pas que cela suffise de plus il faut que je signale que le treeview est un TMSFMXTreeview

Voilà le code controltype=Styled qui me dessine un frame tout autour du/des libelles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
object FormProduction: TFormProduction
  Left = 0
  Top = 0
  Caption = 'Production'
  ClientHeight = 541
  ClientWidth = 768
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnCreate = FormCreate
  DesignerMasterStyle = 0
  object LayoutProd: TLayout
    Align = Client
    Size.Width = 768.000000000000000000
    Size.Height = 541.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 0
    object Treeview: TTMSFMXTreeView
      Align = Client
      ClipChildren = True
      DisableFocusEffect = False
      TabOrder = 0
      Size.Width = 768.000000000000000000
      Size.Height = 449.000000000000000000
      Size.PlatformDefault = False
      AdaptToStyle = True
      Fill.Bitmap.Bitmap.PNG = {
        89504E470D0A1A0A0000000D49484452000000C8000000C80806000000AD58AE
        9E000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
        021449444154785EEDD33101C02010C0C06FFD7B860E1D210AEE9628C8B33E03
        1CBD7F8103834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        8340300804834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        8340300804834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        834030080483403008048340300804834030085CCD6C53D9058C82CD52B70000
        000049454E44AE426082}
      Fill.Bitmap.WrapMode = TileStretch
      Fill.Kind = Bitmap
      Groups = <>
      GroupsAppearance.TopSize = 50.000000000000000000
      GroupsAppearance.BottomSize = 50.000000000000000000
      GroupsAppearance.TopFill.Bitmap.Bitmap.PNG = {
        89504E470D0A1A0A0000000D49484452000000C8000000C80806000000AD58AE
        9E000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
        021449444154785EEDD33101C02010C0C06FFD7B860E1D210AEE9628C8B33E03
        1CBD7F8103834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        8340300804834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        8340300804834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        834030080483403008048340300804834030085CCD6C53D9058C82CD52B70000
        000049454E44AE426082}
      GroupsAppearance.TopFill.Bitmap.WrapMode = TileStretch
      GroupsAppearance.TopFill.Kind = Bitmap
      GroupsAppearance.BottomFill.Bitmap.Bitmap.PNG = {
        89504E470D0A1A0A0000000D49484452000000C8000000C80806000000AD58AE
        9E000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
        021449444154785EEDD33101C02010C0C06FFD7B860E1D210AEE9628C8B33E03
        1CBD7F8103834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        8340300804834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        8340300804834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        834030080483403008048340300804834030085CCD6C53D9058C82CD52B70000
        000049454E44AE426082}
      GroupsAppearance.BottomFill.Bitmap.WrapMode = TileStretch
      GroupsAppearance.BottomFill.Kind = Bitmap
      GroupsAppearance.TopFontColor = claBlack
      GroupsAppearance.BottomFontColor = claBlack
      Columns = <
        item
          Name = 'Column0'
          Text = 'Etape'
          Width = 250.000000000000000000
        end
        item
          Name = 'Column2'
          Text = 'Article'
          Width = 400.000000000000000000
        end
        item
          Name = 'Column3'
          Text = 'Quantit'#233's'
          Width = 80.000000000000000000
        end>
      Nodes = <>
      ColumnsAppearance.Stretch = False
      ColumnsAppearance.TopSize = 25.000000000000000000
      ColumnsAppearance.BottomSize = 25.000000000000000000
      ColumnsAppearance.TopFontColor = claBlack
      ColumnsAppearance.BottomFontColor = claBlack
      ColumnsAppearance.TopFill.Bitmap.Bitmap.PNG = {
        89504E470D0A1A0A0000000D49484452000000C8000000C80806000000AD58AE
        9E000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
        021449444154785EEDD33101C02010C0C06FFD7B860E1D210AEE9628C8B33E03
        1CBD7F8103834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        8340300804834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        8340300804834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        834030080483403008048340300804834030085CCD6C53D9058C82CD52B70000
        000049454E44AE426082}
      ColumnsAppearance.TopFill.Bitmap.WrapMode = TileStretch
      ColumnsAppearance.TopFill.Kind = Bitmap
      ColumnsAppearance.BottomFill.Bitmap.Bitmap.PNG = {
        89504E470D0A1A0A0000000D49484452000000C8000000C80806000000AD58AE
        9E000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
        021449444154785EEDD33101C02010C0C06FFD7B860E1D210AEE9628C8B33E03
        1CBD7F8103834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        8340300804834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        8340300804834030080483403008048340300804834030080483403008048340
        3008048340300804834030080483403008048340300804834030080483403008
        0483403008048340300804834030080483403008048340300804834030080483
        4030080483403008048340300804834030080483403008048340300804834030
        0804834030080483403008048340300804834030080483403008048340300804
        834030080483403008048340300804834030085CCD6C53D9058C82CD52B70000
        000049454E44AE426082}
      ColumnsAppearance.BottomFill.Bitmap.WrapMode = TileStretch
      ColumnsAppearance.BottomFill.Kind = Bitmap
      NodesAppearance.ExpandWidth = 15.000000000000000000
      NodesAppearance.ExpandHeight = 15.000000000000000000
      NodesAppearance.LevelIndent = 20.000000000000000000
      NodesAppearance.FixedHeight = 25.000000000000000000
      NodesAppearance.VariableMinimumHeight = 25.000000000000000000
      NodesAppearance.LineStroke.Dash = Dot
      NodesAppearance.FontColor = claBlack
      NodesAppearance.ExtendedFontColor = claBlack
      NodesAppearance.SelectedFill.Color = x7F2A96FF
      NodesAppearance.ExtendedFill.Color = xFFF0F0F0
      NodesAppearance.ExtendedStroke.Color = xFFF0F0F0
      NodesAppearance.ExpandNodeIcon.PNG = {
        89504E470D0A1A0A0000000D494844520000000B0000000B0806000000A9AC77
        26000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
        004B49444154285363ACAEADFECF402C0029260680D43141F5A0006F3F6F280B
        1560558C0B90A498054A63588DCCDFBA692B98862B860980004821321F0668E7
        66AC8AB1390104488841060600EED939BB858B0ECD0000000049454E44AE4260
        82}
      NodesAppearance.CollapseNodeIcon.PNG = {
        89504E470D0A1A0A0000000D494844520000000B0000000B0806000000A9AC77
        26000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
        003A49444154285363ACAEADFECF402C0029260680D43141F5100568A798054A
        8381B79F379485005B376D85B2D014234B600383C48324C420030300D49232D7
        2010A6750000000049454E44AE426082}
      NodesAppearance.ExpandNodeIconLarge.PNG = {
        89504E470D0A1A0A0000000D4948445200000016000000160806000000C4B46C
        3B000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
        006849444154484B63ACAEADFECF4003C004A5A90EE02E6E696A010B500A6AEA
        6AC034CD5C4CB4C1DE7EDE604C2C187817930A460D860316280D0784621E97FC
        D64D5BA12C08A09F8BD16D8601984B71C9A383D1540107C3D860506A20364580
        00CD5C3CD4EA3C060600D2401984154F98460000000049454E44AE426082}
      NodesAppearance.CollapseNodeIconLarge.PNG = {
        89504E470D0A1A0A0000000D4948445200000016000000160806000000C4B46C
        3B000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
        005149444154484B63ACAEADFECF4003C004A5A90EE02E6E696A010B500A6AEA
        6AC034CD5C3C6A301C8C1A0C072C501A0378FB794359F8C1D64D5BA12C544033
        178FE63C381835180E869EC143ADCE636000009C2E12F3AF5420C80000000049
        454E44AE426082}
      StretchScrollBars = False
      Version = '1.1.4.9'
      OnBeforeDrawNode = TreeviewBeforeDrawNode
    end
    object Layout1: TLayout
      Align = Bottom
      Position.Y = 449.000000000000000000
      Size.Width = 768.000000000000000000
      Size.Height = 92.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 1
      object ScanSaisie: TEdit
        Touch.InteractiveGestures = [LongTap, DoubleTap]
        StyleLookup = 'editstyle'
        TabOrder = 0
        Position.X = 144.000000000000000000
        Position.Y = 48.000000000000000000
        Size.Width = 265.000000000000000000
        Size.Height = 22.000000000000000000
        Size.PlatformDefault = False
        TextPrompt = 'Lancement'
        OnKeyUp = ScanSaisieKeyUp
      end
      object LabelSaisie: TLabel
        Position.X = 144.000000000000000000
        Position.Y = 24.000000000000000000
        Size.Width = 265.000000000000000000
        Size.Height = 17.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'labelstyle'
        Text = 'Saisie'
        TabOrder = 1
        TabStop = False
      end
    end
  end
  object FindLancement: TFDQuery
    SQL.Strings = (
 
        'SELECT SAISON FROM LLANCEMENT WHERE SAISON=:S AND NUMERO=:N AND ' +
        'LIGNE=:L')
    Left = 488
    Top = 400
    ParamData = <
      item
        Name = 'S'
        ParamType = ptInput
      end
      item
        Name = 'N'
        ParamType = ptInput
      end
      item
        Name = 'L'
        ParamType = ptInput
      end>
  end
  object FDLancements: TFDQuery
    Connection = Datas.FDConnexion
    SQL.Strings = (
 
        'SELECT COALESCE(e.NUMERO,0) OPERATION,a.OFLANCEMENT,a.DATE_LIV,a' +
        '.LANCEMENT, a.FIN_FABS,a.QTE,a.QTERELIQUAT,'
 
        '       a.ARTICLE, a.DESCRIPTION, a.CLIENT, a.NOMCLIENT,a.FOURNCH' +
        'OISI'
 
        '      ,E.LIBELLE,E.NUMERO, COALESCE(a.ETAPE,0) ETAPE,COALESCE(a.' +
        'ATELIER,0) ATELIER'
      'FROM LLANCEMENT a LEFT JOIN ETAPESPROD E ON a.ETAPE=e.IDUNIQUE'
      'WHERE a.QTERELIQUAT>0 &usine &ticket'
      'ORDER BY a.FOURNCHOISI,1 DESC,a.FIN_FABS,2,3,4,5;')
    Left = 424
    Top = 80
    MacroData = <
      item
        Value = Null
        Name = 'USINE'
        DataType = mdIdentifier
      end
      item
        Value = Null
        Name = 'TICKET'
        DataType = mdIdentifier
      end>
    object FDLancementsOPERATION: TIntegerField
      AutoGenerateValue = arDefault
      FieldName = 'OPERATION'
      Origin = 'OPERATION'
      ProviderFlags = []
      ReadOnly = True
    end
    object FDLancementsOFLANCEMENT: TStringField
      FieldName = 'OFLANCEMENT'
      Origin = 'OFLANCEMENT'
      Size = 24
    end
    object FDLancementsDATE_LIV: TDateField
      FieldName = 'DATE_LIV'
      Origin = 'DATE_LIV'
    end
    object FDLancementsLANCEMENT: TStringField
      FieldName = 'LANCEMENT'
      Origin = 'LANCEMENT'
      Size = 24
    end
    object FDLancementsFIN_FABS: TDateField
      FieldName = 'FIN_FABS'
      Origin = 'FIN_FABS'
    end
    object FDLancementsQTE: TIntegerField
      FieldName = 'QTE'
      Origin = 'QTE'
    end
    object FDLancementsQTERELIQUAT: TLargeintField
      FieldName = 'QTERELIQUAT'
      Origin = 'QTERELIQUAT'
    end
    object FDLancementsARTICLE: TStringField
      FieldName = 'ARTICLE'
      Origin = 'ARTICLE'
      Size = 17
    end
    object FDLancementsDESCRIPTION: TStringField
      FieldName = 'DESCRIPTION'
      Origin = 'DESCRIPTION'
      Size = 60
    end
    object FDLancementsCLIENT: TStringField
      FieldName = 'CLIENT'
      Origin = 'CLIENT'
      FixedChar = True
      Size = 4
    end
    object FDLancementsNOMCLIENT: TStringField
      FieldName = 'NOMCLIENT'
      Origin = 'NOMCLIENT'
      Size = 30
    end
    object FDLancementsLIBELLE: TStringField
      AutoGenerateValue = arDefault
      FieldName = 'LIBELLE'
      Origin = 'LIBELLE'
      ProviderFlags = []
      ReadOnly = True
      Size = 30
    end
    object FDLancementsNUMERO: TSmallintField
      AutoGenerateValue = arDefault
      FieldName = 'NUMERO'
      Origin = 'NUMERO'
      ProviderFlags = [pfInKey]
      ReadOnly = True
    end
    object FDLancementsETAPE: TLargeintField
      AutoGenerateValue = arDefault
      FieldName = 'ETAPE'
      Origin = 'ETAPE'
      ProviderFlags = []
      ReadOnly = True
    end
    object FDLancementsATELIER: TStringField
      AutoGenerateValue = arDefault
      FieldName = 'ATELIER'
      Origin = 'ATELIER'
      ProviderFlags = []
      ReadOnly = True
      Size = 11
    end
    object FDLancementsFOURNCHOISI: TStringField
      FieldName = 'FOURNCHOISI'
      Origin = 'FOURNCHOISI'
      FixedChar = True
      Size = 4
    end
  end
  object BindSourceDB1: TBindSourceDB
    DataSet = FDLancements
    ScopeMappings = <>
    Left = 304
    Top = 224
  end
  object BindingsList1: TBindingsList
    Methods = <>
    OutputConverters = <>
    Left = 500
    Top = 21
  end
end

le même ou plutôt ce qui change (lignes 230 à 241) avec ControlStyle = Platform qui est mon contournement au problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
     object LabelSaisie: TLabel
        ControlType = Platform
        Position.X = 144.000000000000000000
        Position.Y = 24.000000000000000000
        Size.Width = 265.000000000000000000
        Size.Height = 17.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'labelstyle'
        Text = 'Saisie'
        TabOrder = 1
        TabStop = False
      end

Ce matin je me demande si cet effet n'est pas du à l'utilisation du TMSFMXTreeview qui contiendrai en ressource un style 'labelstyle' mais bien évidement je ne vais pas pouvoir faire cet essai sur ce morceau de programme (maintenant que cela fonctionne correctement )
je vais ajouter une forme test pour vérifier ce point

**SergioMaster** · 28/08/2018, 09h39

Bonjour,

J'ai découvert l'origine du problème, enfin !

Cela vient du container parent qui est un TScaledLayout

Envoyé par SergioMaster

J'ai une application avec plusieurs formes que je traite à la manière d'une forme MDI

Cette manière de faire, j'en discute ici desktop-tokyo-10-2-3-docking-formes/ et là frame-docking-forme/
Jusqu'à ce problème la cible de la forme principale était toujours un TLayout, j'ai l'impression que dans le cas d'un TScaledLayout il y a une instruction de plus à mettre dans cette routine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure TFormMain.EmbeddedForm(AParent: TControl; AForm: TCustomForm);
begin
 // libère la forme en cours 
 if Assigned(CurrentForm) then CurrentForm.Free;
 AForm.Children[0].Parent:=AParent;
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ici je pense  un invalidateRect 
 // mémorise 
 CurrentForm:=AForm;
end;

comme je le faisais dans ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  Layout1.DeleteChildren;    // efface bien les enfants 
  Layout1.InvalidateRect(Layout1.BoundsRect);

à moins qu'une instruction ou une propriété pour forcer le dessin plus simple existe
C'est la première piste que je vais explorer maintenant.

"By the way" comme dirait les anglophones une idée de comment je pourrais mettre le focus sur une zone de AParent dans cette même procédure ?
je voudrais que le composant pointé par AForm.ActiveControl devienne le contrôle actif de AParent
bien évidemment la forme principale ne "connait" pas le nom du composant donc un simple MainForm.ActiveContol:=AParent.ActiveControl ne semble pas fonctionner

[Edit]
pour vous permettre de comprendre et faire des essais je joint un petit projet que j'espère complet

j'ai testé InvalidateRect, BeginUpdate et EndUpdate sans succès

Il est à remarquer que :

si je retaille la fenêtre le TLabel s'affiche normalement
le phénomène (encadré) se fait non seulement sur un TLabel mais aussi sur les TButtons (quoique uniquement avec la forme1)

**SergioMaster** · 29/08/2018, 15h26

Envoyé par SergioMaster

"By the way" comme dirait les anglophones une idée de comment je pourrais mettre le focus sur une zone de AParent dans cette même procédure ?

Je vous livre ma solution provisoire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TMainForm.EmbeddedForm(AParent: TControl; AForm: TCustomForm);
var AControl : TFMXObject;
begin
 AParent.DeleteChildren;
 if Assigned(CurrentForm) then CurrentForm.Free;
 MainLayout.BeginUpdate;
 AForm.Children[0].Parent:=AParent;
 MainLayout.EndUpdate;
 CurrentForm:=AForm;
 if Assigned(AForm.ActiveControl) then    // contrôle actif de la forme à l'ouverture
     for AControl in AParent.Controls[0].Children do // recherche du contrôle 
       if Sametext(AControl.Name,AForm.ActiveControl.Name)
           then TControl(AControl).SetFocus;                        // focalisation
end;

Bon bien sûr, pour l'instant mon postulat de départ est un seul enfant.

**SergioMaster** · 05/09/2018, 11h04

Bonjour,

Toujours pas de piste à me fournir ? J'ai également poser la question sur les forums Embarcadero, s'il y a eu réponse il y a par contre même constatation.
Donc est-ce bug ? La question se pose.

En attendant j'ai une solution "sale" mais efficace.
Constatant que dès qu'il y a "retaille" de la fenêtre les éléments fantômes disparaissaient j'ai tenté diverses solutions négatives allant du BeginUpdate/EndUpdate, Repaint, InvalidateRect, modification de taille (width:=width+1) etc..
au final, c'est avec un effet que je fais la meilleure affaire !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure TMainForm.EmbeddedForm(AParent: TControl; AForm: TCustomForm);
var AControl : TFMXObject;
begin
 If AParent.ChildrenCount>0 then AParent.DeleteChildren;
 if Assigned(CurrentForm) then CurrentForm:=nil;
// while AForm.ChildrenCount>0 do
// AParent.AddObject(TLayout(AForm.Children[0]));
//alternative
 AForm.Children[0].Parent:=AParent;
 CurrentForm:=AForm;  // mémoriser
 // focuscontrol
 if Assigned(AForm.ActiveControl) then
     for AControl in AParent.Controls[0].Children do
       if Sametext(AControl.Name,AForm.ActiveControl.Name)
           then TControl(AControl).SetFocus;
 //Gestion de l'effet 
  AniScaleX.StartValue:=TScaledLayout(AParent).Scale.X; 
  AniScaleX.StopValue:=TScaledLaYout(AParent).Scale.X+0.01;
  AniScaleX.Start;
  AniScaleX.Start; // revenir à l'échelle de départ  
end;

L'effet, un TFloatAnimation joue sur la propriété Scale.X du TScaleLayout parent, la propriété AutoReverse à true, de durée courte 0.01 mais pas trop sous peine que cela ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 object AniScaleX: TFloatAnimation
      AnimationType = InOut
      AutoReverse = True
      Duration = 0.001000000047497451
      PropertyName = 'Scale.X'
  end

Pas propre, mais c'est la seule solution qui me soit venu à l'esprit pour faire un rafraichissement qui soit pris en compte, je pense que par souci d'optimisation un BeginUpdate/EndUpdate bien que ne mode debug on voit que l'on passe de dedans, ne fait rien si aucune valeur ne change.

**ALWEBER** · 05/09/2018, 19h27

Est ce que cela peut répondre à ton besoin ?
Si tu veux je peux te donner plus d'explication
DockingFormesLeRetour.zip

**SergioMaster** · 06/09/2018, 08h50

Bonjour,

Envoyé par ALWEBER

Est ce que cela peut répondre à ton besoin ?

Merci de t'y intéresser.
Mais non, d'ailleurs il doit y avoir une erreur dans le zip joint. Tu fais référence dans la forme principale à des panels (panel1 et panel2) qui ne sont pas dans les formes à "docker". De toutes façons, le fait d'utiliser des panels ne change rien cf Forum Embarcadero proposition de Emailx45

Joint mes derniers essais en Zip. j'ai même pousser le vice à activer ou désactiver l'application de l'effet grâce à une case à cocher (visible ou non en fonction d'une option menu)
Ajouter l'effet m'a obligé à rajouter un TLayout (DockLayout) dans le TScaledLayout principal (MainLayout) sinon, je n'ai pas compris pourquoi, j'ai un planton.

**ALWEBER** · 06/09/2018, 10h13

Envoyé par SergioMaster

Bonjour,
Merci de t'y intéresser.
Mais non, d'ailleurs il doit y avoir une erreur dans le zip joint. Tu fais référence dans la forme principale à des panels (panel1 et panel2) qui ne sont pas dans les formes à "docker". De toutes façons, le fait d'utiliser des panels ne change rien cf Forum Embarcadero proposition de Emailx45

Joint mes derniers essais en Zip. j'ai même pousser le vice à activer ou désactiver l'application de l'effet grâce à une case à cocher (visible ou non en fonction d'une option menu)
Ajouter l'effet m'a obligé à rajouter un TLayout (DockLayout) dans le TScaledLayout principal (MainLayout) sinon, je n'ai pas compris pourquoi, j'ai un planton.

En fait au lieu d'utiliser le docking, j'utilise ce que je t'ai présenté dans cet exemple. Le résultat visuel est le même et tu n'a plus l'erreur visuelle que tu mentionnait.
J'utilise cette technique pour les application sur Androïd comme cela je n'ai qu'un seul écran. Les événements traités dans chacune des fiches (Form1, Form2) restent opérationnels

**SergioMaster** · 09/09/2018, 10h30

Bonjour

Envoyé par ALWEBER

En fait au lieu d'utiliser le docking, j'utilise ce que je t'ai présenté dans cet exemple. Le résultat visuel est le même et tu n'a plus l'erreur visuelle que tu mentionnait.

Je n'ai de pollution visuelle qu'au cas où j'ai un TScaledLayout en jeu

J'utilise cette technique pour les application sur Androïd comme cela je n'ai qu'un seul écran

Je n'ai pas testé sous Androïd l'application étant pour Windows (au plus pour desktop)
Mais, maintenant que mon "problème" de déploiement est résolu je vais faire un test. Bien sur, contrairement à une cible desktop je ne vais pas utiliser la possibilité inverse (undocking)

Problème d'affichage de simples TLabels

Composants FMX Delphi

Discussions similaires

Partager

Partager