Changeset 10 for trunk/Forms/UFormSettings.pas

Timestamp:

Mar 14, 2013, 11:35:29 PM (11 years ago)

Author:

chronos

Message:

• Opraveno: České znaky v názvu ukládaných výpisů.
• Opraveno: Název exportu CVS na CSV.

File:

• trunk/Forms/UFormSettings.pas (modified) (2 diffs)

trunk/Forms/UFormSettings.pas

@@ -68 +68 @@
 begin
   LabeledEditToken.Text := Core.Token;
-  ComboBox1.ItemIndex := Integer(Core.Format);
+  ComboBox1.ItemIndex := Integer(Core.DataFormat);
   LabeledEditFolder.Text := Core.TargetDirectory;
 end;
@@ -75 +75 @@
 begin
   Core.Token := LabeledEditToken.Text;
-  Core.Format := TFioDataFormat(ComboBox1.ItemIndex);
+  Core.DataFormat := TFioDataFormat(ComboBox1.ItemIndex);
   Core.TargetDirectory := LabeledEditFolder.Text;
 end;