Changeset 97 for trunk/Forms/UFormMain.pas
- Timestamp:
- Aug 22, 2016, 1:16:56 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r96 r97 35 35 CheckBoxExactMath: TCheckBox; 36 36 ImageList1: TImageList; 37 JobProgressView1: TJobProgressView;38 37 LastOpenedList1: TLastOpenedList; 39 38 ListViewAcronyms: TListView; … … 104 103 procedure AShowImportSourcesExecute(Sender: TObject); 105 104 procedure CheckBoxExactMathChange(Sender: TObject); 106 procedure CoolTranslator1Translate(Sender: TObject);107 105 procedure EditSearchChange(Sender: TObject); 108 106 procedure FormHide(Sender: TObject); … … 298 296 ImportTotalItemCount := 0; 299 297 Core.AcronymDb.AddedCount := 0; 300 JobProgressView1.AddJob(SProcessImportSources, ProcessImportsJob);301 JobProgressView1.Start;298 Core.JobProgressView1.AddJob(SProcessImportSources, ProcessImportsJob); 299 Core.JobProgressView1.Start; 302 300 ShowMessage(Format(SAddedCount, [ImportTotalItemCount, Core.AcronymDb.AddedCount])); 303 301 UpdateAcronymsList; … … 403 401 begin 404 402 UpdateAcronymsList; 405 end;406 407 procedure TFormMain.CoolTranslator1Translate(Sender: TObject);408 begin409 UAcronym.Translate;410 403 end; 411 404
Note:
See TracChangeset
for help on using the changeset viewer.