anchor.diff:    end;
   
     ACanvas.Font := oldfont;
  -  newfont.Free;
   //  writeln('------');
   end;
   
  
positive.code:   ALineIndex: Integer; ACanvas: TfpgCanvas; ATextRect: TfpgRect;
    var AllowSelfDraw: Boolean);
  var
    oldfont, newfont: TfpgFont;
    s: TfpgString;  // copy of ALineText we work with
    i, j, c: integer;  // i = position of reserved word; c = last character pos
    iLength: integer; // length of reserved word
  
negative.code:     miRecentProjects: TfpgMenuItem;
      FRecentFiles: TfpgMRU;
      FRegex: TRegExpr;
      FKeywordFont: TfpgFont;
      procedure   FormShow(Sender: TObject);
      procedure   FormClose(Sender: TObject; var CloseAction: TCloseAction);
      procedure   btnQuitClicked(Sender: TObject);
  