Changeset 14 for trunk/Forms/UFormMain.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/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -43 +43 @@
     procedure ButtonNewClick(Sender: TObject);
     procedure ComboBoxAccountsChange(Sender: TObject);
+    procedure DateEditStartAcceptDate(Sender: TObject; var ADate: TDateTime;
+      var AcceptDate: Boolean);
+    procedure DateEditToAcceptDate(Sender: TObject; var ADate: TDateTime;
+      var AcceptDate: Boolean);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -82 +86 @@
     else Core.CurrentAccount := nil;
   LoadInterface;
+  Core.SelectedAccountIndex := ComboBoxAccounts.ItemIndex;
+end;
+
+procedure TFormMain.DateEditStartAcceptDate(Sender: TObject;
+  var ADate: TDateTime; var AcceptDate: Boolean);
+begin
+  AcceptDate := (ADate <= Now) and (ADate <= DateEditTo.Date);
+end;
+
+procedure TFormMain.DateEditToAcceptDate(Sender: TObject; var ADate: TDateTime;
+  var AcceptDate: Boolean);
+begin
+  AcceptDate := (ADate <= Now) and (ADate >= DateEditStart.Date);
 end;
 
@@ -115 +132 @@
 begin
   Core.Accounts.LoadToStrings(ComboBoxAccounts.Items);
+  if (Core.SelectedAccountIndex >= 0) and
+    (Core.SelectedAccountIndex < ComboBoxAccounts.Items.Count) then
+    ComboBoxAccounts.ItemIndex := Core.SelectedAccountIndex;
   DateEditStart.Date := Core.ReportTimeFrom;
   DateEditTo.Date := Core.ReportTimeTo;
   SpinEditYear.Value := Core.ReportYear;
+  SpinEditYear.MaxValue := YearOf(Now);
   SpinEditId.Value := Core.ReportId;
   ButtonInterval.Enabled := Assigned(Core.CurrentAccount);
   ButtonMonthly.Enabled := Assigned(Core.CurrentAccount);
   ButtonNew.Enabled := Assigned(Core.CurrentAccount);
+  Core.ADownloadInterval.Enabled := Assigned(Core.CurrentAccount);
+  Core.ADownloadMonthly.Enabled := Assigned(Core.CurrentAccount);
+  Core.ADownloadNew.Enabled := Assigned(Core.CurrentAccount);
   if ComboBoxAccounts.ItemIndex <> -1 then begin
     LabelBalance.Caption := FloatToStr(TAccount(ComboBoxAccounts.Items.Objects[