anchor.diff:    SetPlatform;
   end;
   
  +procedure Fill(cb: TComboBox; const a: array of string);
  +var
  +  s: string;
  +  n: Integer;
  +begin
  +  n := cb.ItemIndex;
  +  cb.Clear;
  +  cb.Items.BeginUpdate;
  +  for s in a do
  +    cb.Items.Add(s);
  +  cb.Items.EndUpdate;
  +  if (n < cb.Items.Count) and (n > 0)
  +    then cb.ItemIndex := n
  +    else cb.ItemIndex := 0;
  +end;
  +
   procedure TfrmDebugStatus_Platform.EnableControlsAndSetValues;
   var
     e: Boolean;
  
positive.code: end;
  
  procedure TfrmDebugStatus_Platform.FormCreate(Sender: TObject);
    procedure Fill(cb: TComboBox; const a: array of string);
    var
      s: string;
    begin
      cb.Clear;
      cb.Items.BeginUpdate;
      for s in a do
        cb.Items.Add(s);
      cb.Items.EndUpdate;
      cb.ItemIndex := 0;
    end;
  begin
    inherited;
    Fill(cbPlatformOS, PlatformOS);
    Fill(cbPlatformUI, PlatformUI);
    Fill(cbPlatformFormFactor, PlatformFormFactor);
    Fill(cbPlatformApplication, PlatformApplication);
    Fill(cbPlatformBrowser, PlatformBrowser);
  end;
  
negative.code:     begin
        cbPlatformUI.ItemIndex := PLATFORM_UI_HARDWARE;
        cbPlatformUI.Enabled := False;
        Fill(cbPlatformFormFactor, PlatformFormFactor_Desktop);
        cbPlatformFormFactor.ItemIndex := PLATFORM_FF_DESKTOP_DESKTOP;
        cbPlatformFormFactor.Enabled := False;
      end;
      PLATFORM_OS_IOS:
      begin
        cbPlatformUI.ItemIndex := PLATFORM_UI_TOUCH;
        cbPlatformUI.Enabled := False;
        Fill(cbPlatformFormFactor, PlatformFormFactor_NonDesktop);
        if cbPlatformFormFactor.ItemIndex < 0 then
          cbPlatformFormFactor.ItemIndex := PLATFORM_FF_NONDESKTOP_TABLET;
        cbPlatformFormFactor.Enabled := True;
      end;
      PLATFORM_OS_ANDROID:
      begin
        cbPlatformUI.Enabled := True;
        Fill(cbPlatformFormFactor, PlatformFormFactor_NonDesktop);
        if cbPlatformFormFactor.ItemIndex < 0 then
          cbPlatformFormFactor.ItemIndex := PLATFORM_FF_NONDESKTOP_TABLET;
        cbPlatformFormFactor.Enabled := True;
      end;
    end;
  