Changeset 15 for trunk/Forms/UFormMain.pas
- Timestamp:
- Mar 19, 2013, 8:52:43 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r14 r15 17 17 ButtonNew: TButton; 18 18 ButtonNew1: TButton; 19 ButtonGetState: TButton; 19 20 ButtonSettings: TButton; 20 21 ButtonInterval: TButton; … … 38 39 SpinEditYear: TSpinEdit; 39 40 SpinEditId: TSpinEdit; 41 procedure ButtonGetStateClick(Sender: TObject); 40 42 procedure ButtonIntervalClick(Sender: TObject); 41 43 procedure ButtonMonthlyClick(Sender: TObject); … … 82 84 procedure TFormMain.ComboBoxAccountsChange(Sender: TObject); 83 85 begin 86 Core.SelectedAccountIndex := ComboBoxAccounts.ItemIndex; 84 87 if ComboBoxAccounts.ItemIndex <> -1 then 85 88 Core.CurrentAccount := TAccount(Core.Accounts[ComboBoxAccounts.ItemIndex]) 86 89 else Core.CurrentAccount := nil; 87 90 LoadInterface; 88 Core.SelectedAccountIndex := ComboBoxAccounts.ItemIndex;89 91 end; 90 92 … … 105 107 SaveInterface; 106 108 Core.ADownloadInterval.Execute; 109 end; 110 111 procedure TFormMain.ButtonGetStateClick(Sender: TObject); 112 begin 113 if Assigned(Core.CurrentAccount) then begin 114 Core.LoadAccount(Core.CurrentAccount); 115 LoadInterface; 116 end; 107 117 end; 108 118
Note:
See TracChangeset
for help on using the changeset viewer.