Changeset 14 for trunk/Forms/UFormSettings.pas

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.pas (modified) (3 diffs)

trunk/Forms/UFormSettings.pas

@@ -19 +19 @@
     ComboBox1: TComboBox;
     Label1: TLabel;
+    Label2: TLabel;
     LabeledEditFolder: TLabeledEdit;
+    LabeledEditFileNameFormat: TLabeledEdit;
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -66 +68 @@
 procedure TFormSettings.Load;
 begin
+  LabeledEditFileNameFormat.Text := Core.OutputFormat;
   ComboBox1.ItemIndex := Integer(Core.DataFormat);
   LabeledEditFolder.Text := Core.TargetDirectory;
@@ -72 +75 @@
 procedure TFormSettings.Save;
 begin
+  Core.OutputFormat := LabeledEditFileNameFormat.Text;
   Core.DataFormat := TFioDataFormat(ComboBox1.ItemIndex);
   Core.TargetDirectory := LabeledEditFolder.Text;