Changeset 308 for trunk/Packages/Common/UJobProgressView.pas

Timestamp:

Aug 18, 2021, 11:50:13 AM (3 years ago)

Author:

chronos

Message:

• Modified: Updated Common package to newer version.
• Modified: About dialog is now part of Common package.
• Modified: CoolTranslator is now part of Common package.

File:

• trunk/Packages/Common/UJobProgressView.pas (modified) (3 diffs)

trunk/Packages/Common/UJobProgressView.pas

@@ -6 +6 @@
 
 uses
-  LCLType, SysUtils, Variants, Classes, Graphics, Controls, Forms, Syncobjs,
+  SysUtils, Variants, Classes, Graphics, Controls, Forms, Syncobjs,
   Dialogs, ComCtrls, StdCtrls, ExtCtrls, Contnrs, UThreading, Math,
   DateUtils;
@@ -175 +175 @@
   STotalEstimatedTime = 'Total estimated time: %s';
   SFinished = 'Finished';
-  SOperations = 'Operations:';
 
 procedure Register;
@@ -199 +198 @@
     Terminate;
   end;
-end;
-
-function Scale96ToScreen(const ASize: Integer): Integer;
-begin
-  Result := MulDiv(ASize, Screen.PixelsPerInch, 96);
 end;