anchor.diff:    with PageControl1 do
     begin
       Name := 'PageControl1';
  -    SetPosition(0, 0, 222, 300);
  +    SetPosition(0, 0, 260, 328);
       ActivePageIndex := 0;
       TabOrder := 0;
       Align := alLeft;
  
positive.code:     tsContents: TfpgTabSheet;
      tsIndex: TfpgTabSheet;
      tsSearch: TfpgTabSheet;
      tsHistory: TfpgTabSheet;
      tvContents: TfpgTreeView;
      tvIndex: TfpgTreeView;
  
negative.code:     while TopicIndex < HelpFile.TopicCount do
      begin
        Topic := HelpFile.Topics[ TopicIndex ];
        if Topic.ShowInContents then
        begin
          if Topic.ContentsLevel = 1 then
          begin
            Node := tvContents.RootNode.AppendText(Topic.Title);
            Node.Data := Topic;
            inc( TopicIndex );
  