FileForums - View Single Post

felice2011 · #3 04-09-2016, 11:29

This is what I found to be translated from Czech to English ...

Code:

[Languages]
Name: "ENG"; MessagesFile: "compiler:Languages\english.isl";
[Messages]
ButtonNext=Install
ButtonCancel=Cancel
ButtonWizardBrowse=Browse

Code:

StatusLabel := TLabel.Create(WizardForm);
  with StatusLabel do begin
    Parent:=WizardForm;
    AutoSize:=True;
    Transparent:=True;
    SetBounds(ScaleX(9), ScaleY(180), ScaleX(0), ScaleY(0));
    Caption:='Completion Of...';
  end;

Code:

if CurPageID = wpWelcome then begin
    GetSpaceOnDisk(ExtractFileDrive(WizardForm.DirEdit.Text), True, FreeMB, TotalMB);
    if FreeMB<{#NeedInstallSize} then begin
      MsgBox('         Insufficient Disk Space!'#13'Required Space For Installation: '+MbOrTb({#NeedInstallSize})+#13'    Free Space: '+MbOrTb(FreeMB)+' z '+MbOrTb(TotalMB), mbError, mb_Ok);
      Result := False ;
    end;

Code:

      if ISDoneError then begin
        StatusLabel.Caption:='Uninstalling...';
        ISDoneProgressBar.Hide;
        Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
      end;