anchor.diff:    inherited Create(AOwner);
     FHelpType     := htKeyword;
     FHelpContext  := 0;
  +  FHelpKeyword  := '';
     FTagPointer   := nil;
   end;
   
  
positive.code:   // If you have to convert this to an Integer, mrNone = 0 etc.
    TfpgModalResult = (mrNone, mrOK, mrCancel, mrYes, mrNo, mrAbort, mrRetry,
        mrIgnore, mrAll, mrNoToAll, mrYesToAll);
  
  const
    MOUSE_LEFT       = 1;
  
negative.code:   FPGM_POPUPCLOSE  = 17;
    FPGM_HINTTIMER   = 18;
    FPGM_FREEME      = 19;
    FPGM_DROPACTIVE  = 20;
    FPGM_DROPINACTIVE = 21;
    FPGM_USER        = 50000;
    FPGM_KILLME      = MaxInt;
  
  