anchor.diff:    MsgFileNotText: string = 'File is maybe not text:';
     MsgFileTooBig: string = 'File is too big to edit:';
   
  -procedure DoLocalize_FormConfirmBinary(F: TfmConfirmBinary);
  -const
  -  section = 'd_cfm_op';
  -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.btnEdit do Caption:= ini.ReadString(section, 'edit', Caption);
  -    with F.btnViewText do Caption:= ini.ReadString(section, 'text', Caption);
  -    with F.btnViewBinary do Caption:= ini.ReadString(section, 'bin', Caption);
  -    with F.btnViewHex do Caption:= ini.ReadString(section, 'hex', Caption);
  -    with F.btnViewUnicode do Caption:= ini.ReadString(section, 'uni', Caption);
  -    with F.btnCancel do Caption:= msgButtonCancel;
  -    with F do MsgFileNotText:= ini.ReadString(section, 'ntxt', MsgFileNotText);
  -    with F do MsgFileTooBig:= ini.ReadString(section, 'big', MsgFileTooBig);
  -  finally
  -    FreeAndNil(ini);
  -  end;
  -end;
  -
   function DoDialogConfirmBinaryFile(const AFilename: string; ATooBig: boolean): TAppConfirmBinary;
   var
     F: TfmConfirmBinary;
  
positive.code:     procedure btnViewUnicodeClick(Sender: TObject);
      procedure FormShow(Sender: TObject);
    private
    public
    end;
  
  
negative.code: 
  procedure TfmConfirmBinary.FormShow(Sender: TObject);
  begin
    Localize;
    ClientHeight:= btnCancel.Top+btnCancel.Height+10;
  end;
  
  procedure TfmConfirmBinary.Localize;
  const
    section = 'd_cfm_op';
  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 btnEdit do Caption:= ini.ReadString(section, 'edit', Caption);
      with btnViewText do Caption:= ini.ReadString(section, 'text', Caption);
      with btnViewBinary do Caption:= ini.ReadString(section, 'bin', Caption);
      with btnViewHex do Caption:= ini.ReadString(section, 'hex', Caption);
      with btnViewUnicode do Caption:= ini.ReadString(section, 'uni', Caption);
      with btnCancel do Caption:= msgButtonCancel;
      MsgFileNotText:= ini.ReadString(section, 'ntxt', MsgFileNotText);
      MsgFileTooBig:= ini.ReadString(section, 'big', MsgFileTooBig);
    finally
      FreeAndNil(ini);
    end;
  end;
  
  end.
  