Changeset 9 for trunk/Forms

Timestamp:

Mar 14, 2013, 10:59:07 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Systém pro překládání angličtiny do češtiny.

Location:

trunk/Forms

Files:

• UFormAbout.lfm (modified) (3 diffs)
• UFormAbout.lrt (added)
• UFormMain.lfm (modified) (16 diffs)
• UFormMain.lrt (added)
• UFormMain.pas (modified) (2 diffs)
• UFormSettings.lfm (modified) (5 diffs)
• UFormSettings.lrt (added)
• UFormSettings.pas (modified) (2 diffs)

trunk/Forms/UFormAbout.lfm

@@ -1 +1 @@
 object FormAbout: TFormAbout
   Left = 475
-  Height = 251
+  Height = 281
   Top = 161
-  Width = 327
-  BorderStyle = bsDialog
+  Width = 356
   Caption = 'About'
-  ClientHeight = 251
-  ClientWidth = 327
+  ClientHeight = 281
+  ClientWidth = 356
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
@@ -16 +15 @@
   object Panel1: TPanel
     Left = 8
-    Height = 198
+    Height = 228
     Top = 8
-    Width = 313
+    Width = 342
     Anchors = [akTop, akLeft, akRight, akBottom]
     BevelInner = bvRaised
     BevelOuter = bvLowered
-    ClientHeight = 198
-    ClientWidth = 313
+    ClientHeight = 228
+    ClientWidth = 342
     TabOrder = 0
     object Memo1: TMemo
       Left = 8
-      Height = 183
+      Height = 213
       Top = 8
-      Width = 295
+      Width = 324
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderStyle = bsNone
@@ -38 +37 @@
   end
   object ButtonOk: TButton
-    Left = 111
+    Left = 136
     Height = 25
-    Top = 218
+    Top = 248
     Width = 75
     Anchors = [akLeft, akBottom]

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 364
-  Height = 368
+  Height = 390
   Top = 183
-  Width = 510
+  Width = 519
   Caption = 'FioInfo'
-  ClientHeight = 368
-  ClientWidth = 510
+  ClientHeight = 390
+  ClientWidth = 519
   OnClose = FormClose
   OnCreate = FormCreate
+  OnShow = FormShow
+  Position = poScreenCenter
   LCLVersion = '1.1'
   object ButtonSettings: TButton
-    Left = 376
+    Left = 384
     Height = 25
-    Top = 336
+    Top = 358
     Width = 112
     Action = Core.ASettings
-    Anchors = [akTop, akBottom]
+    Anchors = [akBottom]
     TabOrder = 0
   end
@@ -23 +25 @@
     Height = 57
     Top = 8
-    Width = 489
+    Width = 498
     Anchors = [akTop, akLeft, akRight]
-    Caption = 'Nové platby od posledního staşení'
+    Caption = 'New transaction from last check'
     ClientHeight = 38
-    ClientWidth = 485
+    ClientWidth = 494
     TabOrder = 1
     object ButtonNew: TButton
@@ -34 +36 @@
       Top = 7
       Width = 112
-      Caption = 'Stáhnout'
+      Caption = 'Download'
       OnClick = ButtonNewClick
       TabOrder = 0
@@ -43 +45 @@
     Height = 72
     Top = 80
-    Width = 489
+    Width = 498
     Anchors = [akTop, akLeft, akRight]
-    Caption = 'Transakce v zadaném časovém rozpětí'
+    Caption = 'Transactions from defined time interval'
     ClientHeight = 53
-    ClientWidth = 485
+    ClientWidth = 494
     TabOrder = 2
     object ButtonInterval: TButton
@@ -54 +56 @@
       Top = 7
       Width = 112
-      Caption = 'Stáhnout'
+      Caption = 'Download'
       OnClick = ButtonIntervalClick
       TabOrder = 0
@@ -61 +63 @@
       Left = 54
       Height = 27
-      Top = 5
+      Top = 7
       Width = 80
       CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
@@ -74 +76 @@
     end
     object DateEditTo: TDateEdit
-      Left = 230
+      Left = 238
       Height = 27
-      Top = 9
+      Top = 7
       Width = 80
       CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
@@ -89 +91 @@
     end
     object Label1: TLabel
-      Left = 22
+      Left = 6
       Height = 17
-      Top = 9
-      Width = 22
-      Caption = 'Od:'
+      Top = 12
+      Width = 36
+      Caption = 'From:'
       ParentColor = False
     end
@@ -99 +101 @@
       Left = 174
       Height = 17
-      Top = 15
-      Width = 22
-      Caption = 'Do:'
+      Top = 12
+      Width = 18
+      Caption = 'To:'
       ParentColor = False
     end
@@ -110 +112 @@
     Top = 168
     Width = 489
-    Caption = 'Měsíční vÃœpis'
+    Caption = 'Selected mothly report'
     ClientHeight = 46
     ClientWidth = 485
@@ -119 +121 @@
       Top = 7
       Width = 112
-      Caption = 'Stáhnout'
+      Caption = 'Download'
       OnClick = ButtonMonthlyClick
       TabOrder = 0
@@ -134 +136 @@
     end
     object SpinEditId: TSpinEdit
-      Left = 230
+      Left = 238
       Height = 27
       Top = 7
@@ -144 +146 @@
     end
     object Label2: TLabel
-      Left = 20
+      Left = 6
       Height = 17
-      Top = 15
-      Width = 28
-      Caption = 'Rok:'
+      Top = 12
+      Width = 31
+      Caption = 'Year:'
       ParentColor = False
     end
@@ -154 +156 @@
       Left = 174
       Height = 17
-      Top = 15
-      Width = 36
-      Caption = 'Číslo:'
+      Top = 12
+      Width = 56
+      Caption = 'Number:'
       ParentColor = False
     end
@@ -163 +165 @@
     Left = 16
     Height = 25
-    Top = 336
+    Top = 358
     Width = 112
     Action = Core.AExit
@@ -172 +174 @@
     Left = 136
     Height = 25
-    Top = 336
+    Top = 358
     Width = 112
     Action = Core.AAbout

trunk/Forms/UFormMain.pas

@@ -37 +37 @@
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -81 +82 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+end;
+
+procedure TFormMain.FormShow(Sender: TObject);
+begin
   LoadInterface;
+  Core.CoolTranslator1.Translate;
 end;
 

trunk/Forms/UFormSettings.lfm

@@ -4 +4 @@
   Top = 127
   Width = 550
-  Caption = 'Nastavení'
+  Caption = 'Settings'
   ClientHeight = 273
   ClientWidth = 550
   OnCreate = FormCreate
+  Position = poScreenCenter
   LCLVersion = '1.1'
   object LabeledEditToken: TLabeledEdit
@@ -33 +34 @@
     Width = 75
     Anchors = [akRight, akBottom]
-    Caption = 'Zrušit'
+    Caption = 'Cancel'
     ModalResult = 2
     TabOrder = 1
@@ -61 +62 @@
     Height = 17
     Top = 64
-    Width = 99
-    Caption = 'DatovÜ formát:'
+    Width = 83
+    Caption = 'Data format:'
     ParentColor = False
   end
@@ -79 +80 @@
     EditLabel.Top = 116
     EditLabel.Width = 440
-    EditLabel.Caption = 'CílovÜ sloşka:'
+    EditLabel.Caption = 'Destination folder:'
     EditLabel.ParentColor = False
     TabOrder = 4
@@ -89 +90 @@
     Width = 75
     Anchors = [akTop, akRight]
-    Caption = 'Vybrat'
+    Caption = 'Select'
     OnClick = Button1Click
     TabOrder = 5

trunk/Forms/UFormSettings.pas

@@ -40 +40 @@
   UFioAPI, UCore;
 
+resourcestring
+  SSelectFolder = 'Select destination folder';
+
 { TFormSettings }
 
@@ -58 +61 @@
   Output: string;
 begin
-  if SelectDirectory('Vyberte sloÅŸku', LabeledEditFolder.Text, Output) then
+  if SelectDirectory(SSelectFolder, LabeledEditFolder.Text, Output) then
     LabeledEditFolder.Text := Output;
 end;