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