anchor.diff:          OpenFile(lFilename, '', true);
       end;
     end;
  +  // This is just for fun! ;-)
  +  {$IFDEF ABOUT_SYSMENU}
  +  hSysMenu := GetSystemMenu(self.WinHandle, false);
  +  AppendMenu(hSysMenu, MF_SEPARATOR, 0, nil);
  +  AppendMenu(hSysMenu, MF_STRING, ID_ABOUT, PChar('&About fpGUI Toolkit...'));
  +  {$ENDIF}
   end;
   
   procedure TMainForm.MainFormDestroy(Sender: TObject);
  
positive.code: procedure TMainForm.MainFormShow(Sender: TObject);
  var
    lFilename: TfpgString;
  begin
    bvlBody.Realign;
  
  
negative.code:     // Used in loading contents
      procedure   AddChildNodes(AHelpFile: THelpFile; AParentNode: TfpgTreeNode; ALevel: longint; var ATopicIndex: longint );
      procedure   ClearIndexComponents;
      procedure   ProcessAboutMsg(var Msg: TfpgMessageRec); message FPGM_ABOUT;
  
      // Note manipulations --------------------------------
      // make sure that note insert positions are not in
  