Changeset 14 for trunk/Forms/UFormSettings.lfm

Timestamp:

Mar 19, 2013, 8:38:28 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Možnost nastavit si formát jména výstupního souboru.
• Opraveno: Omezení nastavení časového intervalu na povolené hodnoty.

File:

• trunk/Forms/UFormSettings.lfm (modified) (6 diffs)

trunk/Forms/UFormSettings.lfm

@@ -1 +1 @@
 object FormSettings: TFormSettings
   Left = 420
-  Height = 273
+  Height = 281
   Top = 127
-  Width = 550
+  Width = 558
   Caption = 'Settings'
-  ClientHeight = 273
-  ClientWidth = 550
+  ClientHeight = 281
+  ClientWidth = 558
   OnCreate = FormCreate
   Position = poScreenCenter
   LCLVersion = '1.1'
   object ButtonCancel: TButton
-    Left = 376
+    Left = 384
     Height = 25
-    Top = 242
+    Top = 250
     Width = 75
     Anchors = [akRight, akBottom]
@@ -21 +21 @@
   end
   object ButtonOk: TButton
-    Left = 464
+    Left = 472
     Height = 25
-    Top = 242
+    Top = 249
     Width = 75
     Anchors = [akRight]
@@ -52 +52 @@
     Height = 27
     Top = 88
-    Width = 440
+    Width = 448
     Anchors = [akTop, akLeft, akRight]
     EditLabel.AnchorSideLeft.Control = LabeledEditFolder
@@ -61 +61 @@
     EditLabel.Height = 17
     EditLabel.Top = 68
-    EditLabel.Width = 440
+    EditLabel.Width = 448
     EditLabel.Caption = 'Destination folder:'
     EditLabel.ParentColor = False
@@ -67 +67 @@
   end
   object Button1: TButton
-    Left = 464
+    Left = 472
     Height = 25
     Top = 88
@@ -76 +76 @@
     TabOrder = 4
   end
+  object LabeledEditFileNameFormat: TLabeledEdit
+    Left = 11
+    Height = 27
+    Top = 144
+    Width = 448
+    Anchors = [akTop, akLeft, akRight]
+    EditLabel.AnchorSideLeft.Control = LabeledEditFileNameFormat
+    EditLabel.AnchorSideRight.Control = LabeledEditFileNameFormat
+    EditLabel.AnchorSideRight.Side = asrBottom
+    EditLabel.AnchorSideBottom.Control = LabeledEditFileNameFormat
+    EditLabel.Left = 11
+    EditLabel.Height = 17
+    EditLabel.Top = 124
+    EditLabel.Width = 448
+    EditLabel.Caption = 'Output file name format:'
+    EditLabel.ParentColor = False
+    TabOrder = 5
+  end
+  object Label2: TLabel
+    Left = 11
+    Height = 38
+    Top = 176
+    Width = 532
+    Anchors = [akTop, akLeft, akRight]
+    Caption = '%f - data format, %d - date, %t - time, %a - account number, %n - account name, %% - percent symbol'
+    ParentColor = False
+    WordWrap = True
+  end
 end