Changeset 10 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormSettings.pas (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -111 +111 @@
     Height = 65
     Top = 168
-    Width = 489
+    Width = 499
+    Anchors = [akTop, akLeft, akRight]
     Caption = 'Selected mothly report'
     ClientHeight = 46
-    ClientWidth = 485
+    ClientWidth = 495
     TabOrder = 3
     object ButtonMonthly: TButton

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;