anchor.diff:      Result:= F.IsChangedLexer;
       if Result then
       begin
  -      //an.LexerName:= F.edName.Text; //read-only
  -      an.Extentions:= F.edTypes.Text;
  -      an.LineComment:= F.edCmtLine.Text;
  -      //an.Notes.Clear;
  -      //an.Notes.AddStrings(F.edNotes.Lines);
  +      //An.LexerName:= F.edName.Text; //read-only
  +      An.Extentions:= F.edTypes.Text;
  +      An.LineComment:= F.edCmtLine.Text;
  +      //An.Notes.Clear;
  +      //An.Notes.AddStrings(F.edNotes.Lines);
       end;
     finally
       F.Free;
  
positive.code: end;
  
  
  function DoShowDialogLexerProp(an: TecSyntAnalyzer; const AFontName: string;
    AFontSize: integer): boolean;
  var
    F: TfmLexerProp;
    anIncorrect: TecSyntAnalyzer;
  begin
    Result:= false;
    if an=nil then exit;
  
    F:= TfmLexerProp.Create(nil);
    try
      DoApplyLexerStylesMap(an, anIncorrect);
      EditorApplyTheme(F.edSample);
  
      F.FAnalyzer:= an;
      F.edName.Text:= an.LexerName;
      F.edTypes.Text:= an.Extentions;
      F.edCmtLine.Text:= an.LineComment;
      F.edNotes.Lines.AddStrings(an.Notes);
  
      F.edSample.Font.Name:= AFontName;
      F.edSample.Font.Size:= AFontSize;
  
negative.code:   fmLexerProp: TfmLexerProp;
  
  function DoShowDialogLexerProp(
    An: TecSyntAnalyzer;
    const AFontName: string;
    AFontSize: integer): boolean;
  
  