anchor.diff:  
   procedure TWidgetDemoForm.CreateTopMenu;
   var
  -  mi: TMenuItem;
  -begin
  -  MainMenu := TMenuBar.Create(self);
  +  mi: TFMenuItem;
  +begin
  +  MainMenu := TFMenuBar.Create(self);
     mi := MainMenu.AddMenu('File');
     mi.SubMenu.AddMenu('Exit', '', @btnExitClick);
     MainMenu.AddMenu('Edit');
  
positive.code: 
  procedure TWidgetDemoForm.CreateTopRightGroupBox;
  begin
    topRightGroupBox := TGroupBox.Create('Group Box 2', self);
    topRightGroupBox.CanExpandWidth     := True;
    topRightGroupBox.CanExpandHeight    := True;
  
    topRightGroupBoxLayout := TBoxLayout.Create(self);
    topRightGroupBoxLayout.Orientation  := Vertical;
    topRightGroupBoxLayout.VertAlign    := vertCenter;
    topRightGroupBoxLayout.Spacing      := 8;
  
    Button1 := TButton.Create('Normal Button', self);
    Button1.CanExpandWidth := True;
  
    Button2 := TButton.Create('Embedded Button', self);
    Button2.CanExpandWidth := True;
    Button2.Embedded := True;
  
  
negative.code: 
  procedure TWidgetDemoForm.CreateTopCheckboxLine;
  begin
    topCheckboxLayout := TFBoxLayout.Create(self);
  
    chkStdPalette := TFCheckBox.Create('Standard color palette', self);
    chkStdPalette.CanExpandWidth  := True;
    chkStdPalette.Checked         := True;
  
    chkDisable := TFCheckBox.Create('Disable widgets', self);
    chkDisable.OnClick := @chkDisableClick;
  
    topCheckboxLayout.InsertChild(chkStdPalette);
  