Changeset 9 for tools/Lazarus translator/UMainForm.lfm

Timestamp:

Jan 15, 2009, 9:47:30 AM (15 years ago)

Author:

george

Message:

• Upraveno: Program přepracován pro podporu více překladových souborů a hromadného sloučení s novějšími anglickými verzemi z repozitáře Lazarusu.
• Upraveno: Adresářová struktura překladových souborů přepracována tak, aby souhlasila se strukturou adresářů repozitáře Lazarusu.
• Upraveno: Překladové soubory aktualizovány na SVN verzi 0.9.27.

File:

• tools/Lazarus translator/UMainForm.lfm (modified) (1 diff)

tools/Lazarus translator/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 245
-  Height = 553
-  Top = 131
-  Width = 728
-  Caption = 'Překlad Lazarusu'
-  ClientHeight = 553
-  ClientWidth = 728
+  Left = 271
+  Height = 483
+  Top = 168
+  Width = 658
+  Caption = 'Seznam překladových souborů'
+  ClientHeight = 483
+  ClientWidth = 658
   OnCreate = FormCreate
-  OnDestroy = FormDestroy
-  OnShow = FormShow
   ParentFont = False
-  Position = poScreenCenter
   LCLVersion = '0.9.26'
   object ListView1: TListView
-    Left = 8
-    Height = 512
+    Left = 9
+    Height = 440
     Top = 8
-    Width = 712
-    Anchors = [akTop, akLeft, akRight, akBottom]
+    Width = 632
     Columns = <    
       item
-        Caption = 'Identifikace'
-        Width = 200
-      end    
-      item
-        Caption = 'Původní text'
-        Width = 240
-      end    
-      item
-        Caption = 'Přeložený text'
-        Width = 240
+        Caption = 'Název souboru'
+        Width = 400
       end>
     RowSelect = True
     TabOrder = 0
     ViewStyle = vsReport
-    OnColumnClick = ListView1ColumnClick
-    OnCompare = ListView1Compare
     OnDblClick = ListView1DblClick
-    OnKeyPress = ListView1KeyPress
   end
-  object ProgressBar1: TProgressBar
-    Left = 160
-    Height = 20
-    Top = 528
-    Width = 558
-    Anchors = [akLeft, akRight, akBottom]
-    Max = 100
+  object Button1: TButton
+    Left = 10
+    Height = 25
+    Top = 456
+    Width = 198
+    Caption = 'Aktualizovat podle anglické verze'
+    OnClick = Button1Click
     TabOrder = 1
   end
-  object ComboBox1: TComboBox
-    Left = 8
-    Height = 21
-    Top = 527
-    Width = 144
-    ItemHeight = 13
-    ItemIndex = 0
-    Items.Strings = (
-      'lazaruside.cz.po'
-      'objinspstrconsts.cz.po'
-      'installerstrconsts.cz.po'
-      'cgimodules.cz.po'
-      'codetoolsstrconsts.cz.po'
-      'h2passtrconsts.cz.po'
-      'lclstrconsts.cz.po'
-      'iputils.cz.po'
-    )
-    OnChange = ComboBox1Change
-    Style = csDropDownList
-    TabOrder = 2
-    Text = 'lazaruside.cz.po'
-  end
 end