Changeset 64
- Timestamp:
- Jul 26, 2016, 5:48:35 PM (8 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.lfm
r56 r64 793 793 ImageIndex = 8 794 794 OnExecute = AFileOpenExecute 795 ShortCut = 16463 795 796 end 796 797 object AFileNew: TAction … … 798 799 ImageIndex = 16 799 800 OnExecute = AFileNewExecute 801 ShortCut = 16462 800 802 end 801 803 object AFileSave: TAction … … 803 805 ImageIndex = 10 804 806 OnExecute = AFileSaveExecute 807 ShortCut = 16467 805 808 end 806 809 object AFileClose: TAction … … 813 816 ImageIndex = 10 814 817 OnExecute = AFileSaveAsExecute 818 ShortCut = 24659 815 819 end 816 820 object ASettings: TAction … … 818 822 ImageIndex = 6 819 823 OnExecute = ASettingsExecute 824 ShortCut = 121 820 825 end 821 826 object AShowCategories: TAction … … 823 828 ImageIndex = 11 824 829 OnExecute = AShowCategoriesExecute 830 ShortCut = 116 825 831 end 826 832 object AShowAcronyms: TAction … … 828 834 ImageIndex = 15 829 835 OnExecute = AShowAcronymsExecute 836 ShortCut = 115 830 837 end 831 838 object AShowImportSources: TAction … … 833 840 ImageIndex = 13 834 841 OnExecute = AShowImportSourcesExecute 842 ShortCut = 117 835 843 end 836 844 object AShowAbout: TAction … … 843 851 ImageIndex = 14 844 852 OnExecute = AShowImportFormatsExecute 853 ShortCut = 118 845 854 end 846 855 object AProcessImports: TAction … … 848 857 ImageIndex = 5 849 858 OnExecute = AProcessImportsExecute 859 ShortCut = 119 850 860 end 851 861 end -
trunk/Forms/UFormMain.pas
r63 r64 119 119 procedure TrayIcon1Click(Sender: TObject); 120 120 private 121 Initialized: Boolean; 121 122 FAlwaysOnTop: Boolean; 122 123 RegistryContext: TRegistryContext; 123 124 ProjectClosed: Boolean; 124 125 ImportTotalItemCount: Integer; 126 procedure Initialize; 125 127 procedure ProcessImportsJob(Job: TJob); 126 128 procedure SetAlwaysOnTop(AValue: Boolean); … … 166 168 167 169 procedure TFormMain.FormCreate(Sender: TObject); 170 var 171 I: Integer; 168 172 begin 169 173 AcronymDb := TAcronymDb.Create; 174 Initialized := False; 175 for I := 0 to ToolBar1.ButtonCount - 1 do 176 ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption; 170 177 end; 171 178 … … 362 369 363 370 procedure TFormMain.FormShow(Sender: TObject); 364 var 365 I: Integer; 366 begin 367 LoadConfig; 371 begin 372 Initialize; 373 368 374 PersistentForm1.Load(Self); 369 370 if ParamCount > 0 then begin 371 AcronymDB.LoadFromFile(ParamStr(1)); 372 LastOpenedList1.AddItem(OpenDialog1.FileName); 373 end else 374 if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then 375 AcronymDB.LoadFromFile(LastOpenedList1.Items[0]); 376 UpdateAcronymsList; 377 ListViewFilter1.UpdateFromListView(ListViewAcronyms); 378 UpdateInterface; 379 for I := 0 to ToolBar1.ButtonCount - 1 do 380 ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption; 375 UpdateInterface; 381 376 end; 382 377 … … 444 439 Visible := not Visible; 445 440 if Visible then BringToFront; 441 end; 442 443 procedure TFormMain.Initialize; 444 begin 445 if not Initialized then begin 446 Initialized := True; 447 LoadConfig; 448 449 if ParamCount > 0 then begin 450 AcronymDB.LoadFromFile(ParamStr(1)); 451 LastOpenedList1.AddItem(OpenDialog1.FileName); 452 end else 453 if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then 454 AcronymDB.LoadFromFile(LastOpenedList1.Items[0]); 455 UpdateAcronymsList; 456 ListViewFilter1.UpdateFromListView(ListViewAcronyms); 457 end; 446 458 end; 447 459 -
trunk/Languages/AcronymDecoder.cs.po
r57 r64 457 457 #: tformmain.aexit.caption 458 458 msgid "Exit" 459 msgstr " Odejít"459 msgstr "Ukončit" 460 460 461 461 #: tformmain.afileclose.caption
Note:
See TracChangeset
for help on using the changeset viewer.