Changeset 45
- Timestamp:
- Jul 15, 2016, 12:38:46 AM (8 years ago)
- Location:
- trunk
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormAcronyms.lfm
r34 r45 8 8 ClientWidth = 740 9 9 OnShow = FormShow 10 LCLVersion = '1. 6.0.4'10 LCLVersion = '1.7' 11 11 object ListViewAcronyms: TListView 12 12 Left = 8 … … 21 21 end 22 22 item 23 Caption = ' Description'23 Caption = 'Meaning' 24 24 Width = 300 25 25 end -
trunk/Forms/UFormAcronyms.lrt
r27 r45 1 1 TFORMACRONYMS.CAPTION=Acronyms 2 2 TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[0].CAPTION=Name 3 TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[1].CAPTION= Description3 TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[1].CAPTION=Meaning 4 4 TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[2].CAPTION=Categories 5 5 TFORMACRONYMS.AADD.CAPTION=Add -
trunk/Forms/UFormAcronyms.pas
r34 r45 62 62 SRemoveAcronym = 'Remove acronym'; 63 63 SRemoveAcronymQuery = 'Do you want to remove selected acronym?'; 64 STotal = 'Total'; 65 SFiltered = 'Filtered'; 64 66 65 67 … … 248 250 ListViewSort1.Refresh; 249 251 UpdateInterface; 250 StatusBar1.Panels[0].Text := 'Total: ' + IntToStr(MeaningCount);251 StatusBar1.Panels[1].Text := 'Filtered: ' + IntToStr(ListViewAcronyms.Items.Count);252 StatusBar1.Panels[0].Text := STotal + ': ' + IntToStr(MeaningCount); 253 StatusBar1.Panels[1].Text := SFiltered + ': ' + IntToStr(ListViewAcronyms.Items.Count); 252 254 end; 253 255 -
trunk/Forms/UFormImportPattern.lfm
r28 r45 9 9 OnCreate = FormCreate 10 10 OnShow = FormShow 11 LCLVersion = '1. 6.0.4'11 LCLVersion = '1.7' 12 12 object Label8: TLabel 13 13 Left = 24 14 Height = 2 014 Height = 24 15 15 Top = 13 16 Width = 7516 Width = 101 17 17 Caption = 'Start string:' 18 18 ParentColor = False … … 20 20 object Label9: TLabel 21 21 Left = 24 22 Height = 2 022 Height = 24 23 23 Top = 53 24 Width = 6924 Width = 92 25 25 Caption = 'End string:' 26 26 ParentColor = False … … 28 28 object EditBlockEnd: TEdit 29 29 Left = 183 30 Height = 2830 Height = 34 31 31 Top = 48 32 32 Width = 461 … … 36 36 object EditBlockStart: TEdit 37 37 Left = 183 38 Height = 2838 Height = 34 39 39 Top = 8 40 40 Width = 461 … … 64 64 object Label10: TLabel 65 65 Left = 24 66 Height = 2 066 Height = 24 67 67 Top = 88 68 Width = 4668 Width = 60 69 69 Caption = 'Action:' 70 70 ParentColor = False … … 72 72 object Label11: TLabel 73 73 Left = 24 74 Height = 2 074 Height = 24 75 75 Top = 120 76 Width = 5876 Width = 74 77 77 Caption = 'Variable:' 78 78 ParentColor = False … … 80 80 object ComboBoxAction: TComboBox 81 81 Left = 183 82 Height = 2882 Height = 38 83 83 Top = 87 84 84 Width = 461 85 85 Anchors = [akTop, akLeft, akRight] 86 ItemHeight = 2086 ItemHeight = 0 87 87 Style = csDropDownList 88 88 TabOrder = 4 … … 90 90 object ComboBoxVariable: TComboBox 91 91 Left = 183 92 Height = 2892 Height = 38 93 93 Top = 120 94 94 Width = 461 95 95 Anchors = [akTop, akLeft, akRight] 96 ItemHeight = 2096 ItemHeight = 0 97 97 Items.Strings = ( 98 98 '' … … 103 103 object CheckBoxRepetition: TCheckBox 104 104 Left = 24 105 Height = 2 4105 Height = 28 106 106 Top = 160 107 Width = 93107 Width = 112 108 108 Caption = 'Repetition' 109 109 TabOrder = 6 -
trunk/Forms/UFormImportPattern.pas
r28 r45 45 45 procedure TFormImportPattern.FormShow(Sender: TObject); 46 46 begin 47 InitControls; 47 48 end; 48 49 … … 56 57 I: TImportPatternFlag; 57 58 J: TImportVariable; 59 Index: Integer; 58 60 begin 61 Index := ComboBoxAction.ItemIndex; 59 62 while ComboBoxAction.Items.Count > 0 do 60 63 ComboBoxAction.Items.Delete(ComboBoxAction.Items.Count - 1); … … 63 66 for I := Low(TImportPatternFlag) to High(TImportPatternFlag) do 64 67 ComboBoxAction.Items[Integer(I)] := ImportPatternFlagString[I]; 68 ComboBoxAction.ItemIndex := Index; 65 69 70 Index := ComboBoxVariable.ItemIndex; 66 71 ComboBoxVariable.Items.Clear; 67 72 while ComboBoxVariable.Items.Count > 0 do … … 71 76 for J := Low(TImportVariable) to High(TImportVariable) do 72 77 ComboBoxVariable.Items[Integer(J)] := ImportVariableString[J]; 78 ComboBoxVariable.ItemIndex := Index; 73 79 end; 74 80 -
trunk/Forms/UFormMain.lfm
r39 r45 5 5 Width = 631 6 6 Caption = 'Acronym Decoder' 7 ClientHeight = 4 217 ClientHeight = 414 8 8 ClientWidth = 631 9 9 Menu = MainMenu1 … … 13 13 OnDestroy = FormDestroy 14 14 OnShow = FormShow 15 LCLVersion = '1. 6.0.4'15 LCLVersion = '1.7' 16 16 object Panel1: TPanel 17 17 Left = 0 18 Height = 3 9518 Height = 388 19 19 Top = 26 20 20 Width = 631 21 21 Align = alClient 22 22 BevelOuter = bvNone 23 ClientHeight = 3 9523 ClientHeight = 388 24 24 ClientWidth = 631 25 25 TabOrder = 0 26 26 object CheckBoxExactMath: TCheckBox 27 27 Left = 8 28 Height = 2 428 Height = 28 29 29 Top = 3 30 Width = 1 0430 Width = 129 31 31 Caption = 'Exact match' 32 32 OnChange = CheckBoxExactMathChange … … 43 43 object ListViewAcronyms: TListView 44 44 Left = 8 45 Height = 3 2345 Height = 316 46 46 Top = 64 47 47 Width = 616 … … 1398 1398 object CoolTranslator1: TCoolTranslator 1399 1399 POFilesFolder = 'Languages' 1400 OnTranslate = CoolTranslator1Translate 1400 1401 left = 264 1401 1402 top = 176 -
trunk/Forms/UFormMain.pas
r41 r45 99 99 procedure AShowImportSourcesExecute(Sender: TObject); 100 100 procedure CheckBoxExactMathChange(Sender: TObject); 101 procedure CoolTranslator1Translate(Sender: TObject); 101 102 procedure EditSearchChange(Sender: TObject); 102 103 procedure FormShow(Sender: TObject); … … 345 346 end; 346 347 348 procedure TFormMain.CoolTranslator1Translate(Sender: TObject); 349 begin 350 UAcronym.Translate; 351 end; 352 347 353 procedure TFormMain.FormDestroy(Sender: TObject); 348 354 begin -
trunk/Languages/AcronymDecoder.cs.po
r35 r45 62 62 63 63 #: tformacronym.caption 64 msgctxt "tformacronym.caption" 64 65 msgid "Acronym" 65 66 msgstr "Zkratka" … … 108 109 109 110 #: tformacronyms.listviewacronyms.columns[0].caption 110 #, fuzzy111 #| msgid "Id"112 111 msgctxt "tformacronyms.listviewacronyms.columns[0].caption" 113 112 msgid "Name" … … 115 114 116 115 #: tformacronyms.listviewacronyms.columns[1].caption 117 #, fuzzy118 #| msgid "Name"119 116 msgctxt "tformacronyms.listviewacronyms.columns[1].caption" 120 msgid " Description"121 msgstr " Popis"117 msgid "Meaning" 118 msgstr "Význam" 122 119 123 120 #: tformacronyms.listviewacronyms.columns[2].caption 124 #, fuzzy125 #| msgid "Description"126 121 msgctxt "tformacronyms.listviewacronyms.columns[2].caption" 127 122 msgid "Categories" … … 194 189 195 190 #: tformimportformat.aadd.caption 196 #, fuzzy197 191 msgctxt "tformimportformat.aadd.caption" 198 192 msgid "Add" … … 200 194 201 195 #: tformimportformat.amodify.caption 202 #, fuzzy203 196 msgctxt "tformimportformat.amodify.caption" 204 197 msgid "Modify" … … 214 207 215 208 #: tformimportformat.aremove.caption 216 #, fuzzy217 209 msgctxt "tformimportformat.aremove.caption" 218 210 msgid "Remove" … … 239 231 240 232 #: tformimportformat.label2.caption 241 #, fuzzy242 #| msgid "Acronym start:"243 233 msgid "Item rules:" 244 msgstr " Začátek zkratky:"234 msgstr "Pravidla položky:" 245 235 246 236 #: tformimportformat.label3.caption … … 303 293 304 294 #: tformimportpattern.buttoncancel.caption 305 #, fuzzy306 295 msgctxt "tformimportpattern.buttoncancel.caption" 307 296 msgid "Cancel" … … 309 298 310 299 #: tformimportpattern.buttonok.caption 311 #, fuzzy312 300 msgctxt "tformimportpattern.buttonok.caption" 313 301 msgid "Ok" … … 340 328 341 329 #: tformimportsource.acategoryadd.caption 342 #, fuzzy343 330 msgctxt "tformimportsource.acategoryadd.caption" 344 331 msgid "Add" … … 346 333 347 334 #: tformimportsource.acategoryremove.caption 348 #, fuzzy349 335 msgctxt "tformimportsource.acategoryremove.caption" 350 336 msgid "Remove" … … 389 375 390 376 #: tformimportsource.label4.caption 391 #, fuzzy392 377 msgctxt "tformimportsource.label4.caption" 393 378 msgid "Categories:" … … 433 418 434 419 #: tformimportsources.listview1.columns[3].caption 435 #, fuzzy436 420 msgctxt "tformimportsources.listview1.columns[3].caption" 437 421 msgid "Categories" … … 542 526 543 527 #: tformmain.menuitem24.caption 544 #, fuzzy545 528 msgctxt "tformmain.menuitem24.caption" 546 529 msgid "-" … … 594 577 msgstr "Jazyk:" 595 578 579 #: uacronym.sacronym 580 msgctxt "uacronym.sacronym" 581 msgid "Acronym" 582 msgstr "Zkratka" 583 584 #: uacronym.sdescription 585 msgctxt "uacronym.sdescription" 586 msgid "Description" 587 msgstr "Popis" 588 589 #: uacronym.smeaning 590 msgctxt "uacronym.smeaning" 591 msgid "Meaning" 592 msgstr "Význam" 593 594 #: uacronym.snewitem 595 msgid "New item" 596 msgstr "Nová položka" 597 598 #: uacronym.snone 599 msgid "None" 600 msgstr "Žádný" 601 602 #: uacronym.sskip 603 msgid "Skip" 604 msgstr "Přeskočit" 605 596 606 #: uacronym.swrongfileformat 597 607 msgid "Wrong file format" … … 625 635 msgstr "Opravdu chcete odebrat vybrané kategorie?" 626 636 637 #: uformacronyms.sfiltered 638 msgid "Filtered" 639 msgstr "Filtrováno" 640 627 641 #: uformacronyms.sremoveacronym 628 642 msgctxt "uformacronyms.sremoveacronym" … … 635 649 msgstr "Chcete odebrat vybranou zkratku?" 636 650 651 #: uformacronyms.stotal 652 msgid "Total" 653 msgstr "Celkem" 654 637 655 #: uformcategories.scategory 638 656 msgctxt "uformcategories.scategory" … … 659 677 660 678 #: uformcategoryselect.scategory 661 #, fuzzy662 679 msgctxt "uformcategoryselect.scategory" 663 680 msgid "Category" … … 665 682 666 683 #: uformcategoryselect.sremovecategory 667 #, fuzzy668 684 msgctxt "uformcategoryselect.sremovecategory" 669 685 msgid "Remove categories" … … 671 687 672 688 #: uformcategoryselect.sremovecategoryquery 673 #, fuzzy674 689 msgctxt "uformcategoryselect.sremovecategoryquery" 675 690 msgid "Do you really want to remove selected categories?" 676 msgstr "Opravdu chcete odebrat vybra bé kategorie?"691 msgstr "Opravdu chcete odebrat vybrané kategorie?" 677 692 678 693 #: uformimport.simportednewacronyms -
trunk/Languages/AcronymDecoder.po
r34 r45 52 52 53 53 #: tformacronym.caption 54 msgctxt "tformacronym.caption" 54 55 msgid "Acronym" 55 56 msgstr "" … … 104 105 #: tformacronyms.listviewacronyms.columns[1].caption 105 106 msgctxt "TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[1].CAPTION" 106 msgid " Description"107 msgid "Meaning" 107 108 msgstr "" 108 109 … … 566 567 msgstr "" 567 568 569 #: uacronym.sacronym 570 msgctxt "uacronym.sacronym" 571 msgid "Acronym" 572 msgstr "" 573 574 #: uacronym.sdescription 575 msgctxt "uacronym.sdescription" 576 msgid "Description" 577 msgstr "" 578 579 #: uacronym.smeaning 580 msgctxt "uacronym.smeaning" 581 msgid "Meaning" 582 msgstr "" 583 584 #: uacronym.snewitem 585 msgid "New item" 586 msgstr "" 587 588 #: uacronym.snone 589 msgid "None" 590 msgstr "" 591 592 #: uacronym.sskip 593 msgid "Skip" 594 msgstr "" 595 568 596 #: uacronym.swrongfileformat 569 597 msgid "Wrong file format" … … 597 625 msgstr "" 598 626 627 #: uformacronyms.sfiltered 628 msgid "Filtered" 629 msgstr "" 630 599 631 #: uformacronyms.sremoveacronym 600 632 msgctxt "uformacronyms.sremoveacronym" … … 607 639 msgstr "" 608 640 641 #: uformacronyms.stotal 642 msgid "Total" 643 msgstr "" 644 609 645 #: uformcategories.scategory 610 646 msgctxt "uformcategories.scategory" -
trunk/UAcronym.pas
r34 r45 225 225 function AcronymComparer(Item1, Item2: Pointer): Integer; 226 226 227 const 228 ImportVariableString: array [TImportVariable] of string = ('None', 'Acronym', 229 'Meaning', 'Description'); 230 ImportPatternFlagString: array [TImportPatternFlag] of string = ('None', 'New item', 231 'Skip'); 232 227 var 228 ImportVariableString: array [TImportVariable] of string; 229 ImportPatternFlagString: array [TImportPatternFlag] of string; 230 231 procedure Translate; 233 232 234 233 implementation … … 236 235 resourcestring 237 236 SWrongFileFormat = 'Wrong file format'; 238 237 SDescription = 'Description'; 238 SMeaning = 'Meaning'; 239 SAcronym = 'Acronym'; 240 SNone = 'None'; 241 SNewItem = 'New item'; 242 SSkip = 'Skip'; 243 244 245 procedure Translate; 246 begin 247 ImportVariableString[ivAcronym] := SAcronym; 248 ImportVariableString[ivNone] := SNone; 249 ImportVariableString[ivMeaning] := SMeaning; 250 ImportVariableString[ivDescription] := SDescription; 251 ImportPatternFlagString[ipfNone] := SNone; 252 ImportPatternFlagString[ipfNewItem] := SNewItem; 253 ImportPatternFlagString[ipfSkip] := SSkip; 254 end; 239 255 240 256 function AcronymComparer(Item1, Item2: Pointer): Integer;
Note:
See TracChangeset
for help on using the changeset viewer.