anchor.diff:    s.BorderTypeBottom:= s2.BorderTypeBottom;
   end;
   
  -procedure DoLocalize_FormLexerStylesMap(F: TfmLexerStyleMap);
  -const
  -  section = 'd_lex_map';
  -var
  -  ini: TIniFile;
  -  fn: string;
  -begin
  -  fn:= GetAppLangFilename;
  -  if not FileExists(fn) then exit;
  -  ini:= TIniFile.Create(fn);
  -  try
  -    with F do Caption:= ini.ReadString(section, '_', Caption);
  -    with F.ButtonPanel1.OKButton do Caption:= msgButtonOk;
  -    with F.ButtonPanel1.CancelButton do Caption:= msgButtonCancel;
  -    with F.LabelLex do Caption:= ini.ReadString(section, 'st_lex', Caption);
  -    with F.LabelTh do Caption:= ini.ReadString(section, 'st_th', Caption);
  -    with F.btnSet do Caption:= ini.ReadString(section, 'set_sel', Caption);
  -    with F.btnSetNone do Caption:= ini.ReadString(section, 'set_non', Caption);
  -    with F.btnClear do Caption:= ini.ReadString(section, 'set_un', Caption);
  -  finally
  -    FreeAndNil(ini);
  -  end;
  -end;
  -
   
   function DoApplyLexerStylesMap(an: TecSyntAnalyzer; out anNotCorrect: TecSyntAnalyzer): boolean;
   var
  
positive.code:   for i:= 0 to ItemsLex.Count-1 do
      ListLex.Items[i]:= ItemsLex[i] + cArrow + IfThen(ItemsVal[i]<>'', ItemsVal[i], '?');
    ListLex.Items.EndUpdate;
  end;
  
  
  
negative.code: 
    F:= TfmLexerStyleMap.Create(nil);
    try
      F.LexerName:= an.LexerName;
      F.Caption:= F.Caption + ' - ' + F.LexerName;
  
  