Changeset 54

Timestamp:

Jul 26, 2016, 12:33:14 PM (8 years ago)

Author:

chronos

Message:

• Added: Translation for progress dialog.

Location:

trunk

Files:

• Languages (modified) (1 prop)
• Languages/UJobProgressView.cs.po (added)
• Languages/UJobProgressView.po (added)
• Packages/Common/Common.lpk (modified) (2 diffs)
• Packages/Common/Languages (modified) (1 prop)
• Packages/Common/Languages/UJobProgressView.cs.po (added)
• Packages/Common/Languages/UJobProgressView.po (modified) (1 diff)
• Packages/Common/UJobProgressView.lfm (modified) (1 diff)
• Packages/Common/UJobProgressView.lrt (modified) (1 diff)
• Packages/Common/UJobProgressView.pas (modified) (1 diff)
• Packages/Common/UXMLUtils.pas (modified) (3 diffs)

trunk/Packages/Common/Common.lpk

@@ -4 +4 @@
     <PathDelim Value="\"/>
     <Name Value="Common"/>
+    <Type Value="RunAndDesignTime"/>
     <AddToProjectUsesSection Value="True"/>
     <Author Value="Chronos (robie@centrum.cz)"/>
@@ -109 +110 @@
       <EnableI18N Value="True"/>
       <OutDir Value="Languages"/>
+      <EnableI18NForLFM Value="True"/>
     </i18n>
-    <Type Value="RunAndDesignTime"/>
-    <RequiredPkgs Count="2">
+    <RequiredPkgs Count="3">
       <Item1>
-        <PackageName Value="TemplateGenerics"/>
+        <PackageName Value="LCL"/>
       </Item1>
       <Item2>
+        <PackageName Value="TemplateGenerics"/>
+      </Item2>
+      <Item3>
         <PackageName Value="FCL"/>
         <MinVersion Major="1" Valid="True"/>
-      </Item2>
+      </Item3>
     </RequiredPkgs>
     <UsageOptions>

trunk/Packages/Common/Languages/UJobProgressView.po

@@ -14 +14 @@
 msgstr ""
 
+#: ujobprogressview.soperations
+msgid "Operations"
+msgstr ""
+
 #: ujobprogressview.spleasewait
 msgid "Please wait..."

trunk/Packages/Common/UJobProgressView.lfm

@@ -14 +14 @@
   OnDestroy = FormDestroy
   Position = poScreenCenter
-  LCLVersion = '1.1'
+  LCLVersion = '1.6.0.4'
   object PanelOperationsTitle: TPanel
     Left = 0

trunk/Packages/Common/UJobProgressView.lrt

@@ -1 @@
-TJOBPROGRESSVIEW.LABELOPERATION.CAPTION=Operations:
-TJOBPROGRESSVIEW.LABELESTIMATEDTIMEPART.CAPTION=Estimated time:
-TJOBPROGRESSVIEW.LABELESTIMATEDTIMETOTAL.CAPTION=Total estimated time:
+TFORMJOBPROGRESSVIEW.LABELOPERATION.CAPTION=Operations:
+TFORMJOBPROGRESSVIEW.LABELESTIMATEDTIMEPART.CAPTION=Estimated time:
+TFORMJOBPROGRESSVIEW.LABELESTIMATEDTIMETOTAL.CAPTION=Total estimated time:

trunk/Packages/Common/UJobProgressView.pas

@@ -166 +166 @@
   STotalEstimatedTime = 'Total estimated time: %s';
   SFinished = 'Finished';
+  SOperations = 'Operations';
 
 procedure Register;

trunk/Packages/Common/UXMLUtils.pas

@@ -12 +12 @@
 function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;
 procedure WriteInteger(Node: TDOMNode; Name: string; Value: Integer);
+procedure WriteInt64(Node: TDOMNode; Name: string; Value: Int64);
 procedure WriteBoolean(Node: TDOMNode; Name: string; Value: Boolean);
 procedure WriteString(Node: TDOMNode; Name: string; Value: string);
 procedure WriteDateTime(Node: TDOMNode; Name: string; Value: TDateTime);
 function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer;
+function ReadInt64(Node: TDOMNode; Name: string; DefaultValue: Int64): Int64;
 function ReadBoolean(Node: TDOMNode; Name: string; DefaultValue: Boolean): Boolean;
 function ReadString(Node: TDOMNode; Name: string; DefaultValue: string): string;
@@ -142 +144 @@
 end;
 
+procedure WriteInt64(Node: TDOMNode; Name: string; Value: Int64);
+var
+  NewNode: TDOMNode;
+begin
+  NewNode := Node.OwnerDocument.CreateElement(Name);
+  NewNode.TextContent := IntToStr(Value);
+  Node.AppendChild(NewNode);
+end;
+
 procedure WriteBoolean(Node: TDOMNode; Name: string; Value: Boolean);
 var
@@ -177 +188 @@
   if Assigned(NewNode) then
     Result := StrToInt(NewNode.TextContent);
+end;
+
+function ReadInt64(Node: TDOMNode; Name: string; DefaultValue: Int64): Int64;
+var
+  NewNode: TDOMNode;
+begin
+  Result := DefaultValue;
+  NewNode := Node.FindNode(Name);
+  if Assigned(NewNode) then
+    Result := StrToInt64(NewNode.TextContent);
 end;