anchor.diff:  end;
   
   procedure TfrmDebugStatus_Options.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);
  +  // cbPlatformFormFactor is filled based on state of cbPlatformOS
     Fill(cbPlatformApplication, PlatformApplication);
     Fill(cbPlatformBrowser, PlatformBrowser);
   end;
  
positive.code:   SetPlatform;
  end;
  
  procedure TfrmDebugStatus_Options.EnableControlsAndSetValues;
  begin
    // Here we enable the specific allowable combinations of various
  
negative.code:   PLATFORM_OS_ANDROID = 3;
    PLATFORM_OS_IOS = 4;
  
    PlatformFormFactor_Desktop: array[0..0] of string = (
      'Desktop'
    );
    PLATFORM_FF_DESKTOP_DESKTOP = 0;
  
    PlatformFormFactor_NonDesktop: array[0..1] of string = (
      'Tablet',
      'Phone'
    );
    PLATFORM_FF_NONDESKTOP_TABLET = 1;
    PLATFORM_FF_NONDESKTOP_PHONE = 2;
  
    PlatformApplication: array[0..1] of string = (
      'Native',
  