delphi des contrôles firemoneky lors de l'exécution

Question

Je crée FMX contrôle à la volée lors de l'exécution de modifier les données dans un ListBox:

Il fonctionne très bien pour la plupart des composants, à l'exception des TComboTrackBar et TSpinBox, pour dont aucune valeur n'est affichée malgré le code suivant.

Voici le SpinBox:

// Create the SpinBox 
SpinBox:= TSpinBox.Create(InternalLayout); 
With SpinBox do 
begin 
    Parent:= InternalLayout; 
    Name:= 'sb' + ASubParameter.Name; 
    BeginUpdate; 
    Align:= TAlignLayout.Client; 
    Size.PlatformDefault:= False; 
    HitTest:= True; 
    Margins.Top:= 1; 
    Margins.Bottom:= 1; 
    Min:= ASubParameter.Minimum; 
    Max:= ASubParameter.Maximum; 
    DecimalDigits:= 3; 
    KeyboardType:= TVirtualKeyboardType.NumberPad; 
    case AParameter.ParamType of 
     TParameterType.ptShortInt, TParameterType.ptInteger: 
     begin 
      ValueType:= TNumValueType.Integer; 
      Value:= ASubParameter.ValueDefault.ToInteger; 
     end; 
     TParameterType.ptSingle, TParameterType.ptDouble: 
     begin 
      ValueType:= TNumValueType.Float; 
      Value:= ASubParameter.ValueDefault.ToSingle; 
     end; 
     end; 
    Enabled:= not(ASubParameter.ReadOnly); 
    OnChange:= ASubParameter.OnChanged; 
    EndUpdate; 
end; 

Dans ce cas, tous les spinbox sont censés afficher 0 comme valeur par défaut. Si j'appuie sur la flèche droite, j'obtiens 1. Si je tape ensuite la flèche gauche, j'obtiens 0. Donc le comportement est correct, mais les contrôles n'affichent pas correctement la valeur de départ.

Une idée de ce qui pourrait être faux ou manquant dans mon code?

Sur Windows, cela fonctionne bien. Sur Android, cela ne fonctionne pas correctement.

Answer 1

Ceci est corrigé en 10.2, en 10.1 ressemble à 0 est une valeur spéciale, ce qui a fonctionné pour moi est de l'assigner à une autre valeur en premier, par ex.

SpinBox.Value := 1; 
SpinBox.Value := 0; 

cette valeur de cas apparaît