Changeset 56
- Timestamp:
- Jul 26, 2016, 2:13:41 PM (8 years ago)
- Location:
- trunk
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormAbout.lfm
r50 r56 29 29 Align = alTop 30 30 BorderSpacing.Around = 20 31 Caption = 'Simple tool for quick search of meaning for various acronyms and abbreviations.'31 Caption = 'Simple tool for quick searching of meaning for various acronyms and abbreviations.' 32 32 ParentColor = False 33 33 WordWrap = True … … 73 73 EmailContact = 'robie@centrum.cz' 74 74 AppName = 'Acronym Decoder' 75 ReleaseDate = 425 6575 ReleaseDate = 42577 76 76 RegistryKey = '\Software\' 77 77 RegistryRoot = rrKeyCurrentUser -
trunk/Forms/UFormAbout.lrt
r28 r56 1 1 TFORMABOUT.CAPTION=About 2 2 TFORMABOUT.LABELAPPNAME.CAPTION=Acronym Decoder 3 TFORMABOUT.LABELDESCRIPTION.CAPTION=Simple tool for quick search of meaning for various acronyms and abbreviations.3 TFORMABOUT.LABELDESCRIPTION.CAPTION=Simple tool for quick searching of meaning for various acronyms and abbreviations. 4 4 TFORMABOUT.BUTTONCLOSE.CAPTION=Close 5 5 TFORMABOUT.LABELCONTENT.CAPTION= -
trunk/Forms/UFormImportSources.pas
r52 r56 162 162 begin 163 163 if Assigned(ListView1.Selected) then begin 164 FormMain.AcronymDb.AddedCount := 0; 164 165 JobProgressView1.AddJob(SProcessSelectedSource, ProcessImportJob); 165 166 JobProgressView1.Start; 166 ShowMessage(Format(SAddedCount, [TImportSource(ListView1.Selected.Data).ItemCount ]));167 ShowMessage(Format(SAddedCount, [TImportSource(ListView1.Selected.Data).ItemCount, FormMain.AcronymDb.AddedCount])); 167 168 end; 168 169 end; -
trunk/Forms/UFormMain.lfm
r55 r56 66 66 ViewStyle = vsReport 67 67 OnData = ListViewAcronymsData 68 OnResize = ListViewAcronymsResize 68 69 OnSelectItem = ListViewAcronymsSelectItem 69 70 end -
trunk/Forms/UFormMain.pas
r51 r56 110 110 procedure LastOpenedList1Change(Sender: TObject); 111 111 procedure ListViewAcronymsData(Sender: TObject; Item: TListItem); 112 procedure ListViewAcronymsResize(Sender: TObject); 112 113 procedure ListViewAcronymsSelectItem(Sender: TObject; Item: TListItem; 113 114 Selected: Boolean); … … 140 141 141 142 resourcestring 142 SAddedCount = 'Imported %d acronyms ';143 SAddedCount = 'Imported %d acronyms. Added %d new.'; 143 144 SProcessImportSources = 'Process import sources'; 144 145 … … 277 278 begin 278 279 ImportTotalItemCount := 0; 280 AcronymDb.AddedCount := 0; 279 281 JobProgressView1.AddJob(SProcessImportSources, ProcessImportsJob); 280 282 JobProgressView1.Start; 281 ShowMessage(Format(SAddedCount, [ImportTotalItemCount ]));283 ShowMessage(Format(SAddedCount, [ImportTotalItemCount, AcronymDb.AddedCount])); 282 284 UpdateAcronymsList; 283 285 UpdateInterface; … … 393 395 Item.SubItems.Add(Categories.GetString); 394 396 end; 397 end; 398 399 procedure TFormMain.ListViewAcronymsResize(Sender: TObject); 400 begin 401 ListViewFilter1.UpdateFromListView(ListViewAcronyms); 395 402 end; 396 403 -
trunk/Languages/AcronymDecoder.cs.po
r52 r56 5 5 "POT-Creation-Date: \n" 6 6 "PO-Revision-Date: \n" 7 "Last-Translator: \n"7 "Last-Translator: Chronos <robie@centrum.cz>\n" 8 8 "Language-Team: \n" 9 9 "MIME-Version: 1.0\n" … … 626 626 msgstr "Popis" 627 627 628 #: uacronym.sfilenotfound 629 msgid "File %s not found" 630 msgstr "Soubor %s nenalezen" 631 628 632 #: uacronym.smeaning 629 633 msgctxt "uacronym.smeaning" … … 781 785 #: uformimportsources.sprocessselectedsource 782 786 msgid "Process selected import source" 783 msgstr " "787 msgstr "Zpracovat vybrané zdroje importu" 784 788 785 789 #: uformimportsources.sremoveimportsource … … 794 798 795 799 #: uformmain.saddedcount 796 msgid "Imported %d acronyms "797 msgstr "Importováno %d zkratek "800 msgid "Imported %d acronyms. Added %d new." 801 msgstr "Importováno %d zkratek. Přidáno %d nových." 798 802 799 803 #: uformmain.sappexit … … 812 816 msgid "Process import sources" 813 817 msgstr "Zpracovat zdroje importu" 814 -
trunk/Languages/AcronymDecoder.po
r52 r56 616 616 msgstr "" 617 617 618 #: uacronym.sfilenotfound 619 msgid "File %s not found" 620 msgstr "" 621 618 622 #: uacronym.smeaning 619 623 msgctxt "uacronym.smeaning" … … 784 788 785 789 #: uformmain.saddedcount 786 msgid "Imported %d acronyms "790 msgid "Imported %d acronyms. Added %d new." 787 791 msgstr "" 788 792 -
trunk/UAcronym.pas
r52 r56 216 216 ImportFormats: TImportFormats; 217 217 Modified: Boolean; 218 AddedCount: Integer; 218 219 constructor Create; 219 220 destructor Destroy; override; … … 250 251 SRemoveOnStart = 'Remove on start'; 251 252 SUnsupportedAuthMethod = 'Unsupported HTTP authorization method'; 253 SFileNotFound = 'File %s not found'; 252 254 253 255 … … 323 325 NewAcronym.Name := SQLQuery1.FieldByName('Acronym').AsString; 324 326 NewAcronym.Meaning := SQLQuery1.FieldByName('Meaning').AsString; 325 Sources.AcronymDb.AddAcronym(NewAcronym.Name, NewAcronym.Meaning); 327 if (NewAcronym.Name <> '') and (NewAcronym.Meaning <> '') then 328 Sources.AcronymDb.AddAcronym(NewAcronym.Name, NewAcronym.Meaning); 326 329 SQLQuery1.Next; 327 330 Inc(ItemCount); … … 489 492 Delete(S, 1, P + Length(EndString) - 1); 490 493 491 if (Flag = ipfNewItem) and ( Trim(NewAcronym.Name)<> '') and492 ( Trim(NewAcronym.Meaning)<> '') then begin494 if (Flag = ipfNewItem) and (NewAcronym.Name <> '') and 495 (NewAcronym.Meaning <> '') then begin 493 496 AddedAcronym := Sources.AcronymDb.AddAcronym(NewAcronym.Name, NewAcronym.Meaning); 494 497 AddedAcronym.Description := NewAcronym.Description; … … 749 752 S.Free; 750 753 end; 751 end else ShowMessage( 'File ' + URL + ' not found');754 end else ShowMessage(SysUtils.Format(SFileNotFound, [URL])); 752 755 end; 753 756 … … 823 826 begin 824 827 Categories := TStringList.Create; 828 Name := ''; 829 Meaning := ''; 830 Description := ''; 825 831 end; 826 832 … … 1432 1438 Meaning.Acronym := Acronym; 1433 1439 Acronym.Meanings.Add(Meaning); 1440 Inc(AddedCount); 1434 1441 end; 1435 1442 Result := Meaning;
Note:
See TracChangeset
for help on using the changeset viewer.