Changeset 17
- Timestamp:
- May 4, 2016, 12:12:25 PM (9 years ago)
- Location:
- trunk
- Files:
-
- 3 added
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/AcronymDecoder.lpi
r15 r17 92 92 </Item5> 93 93 </RequiredPackages> 94 <Units Count=" 8">94 <Units Count="9"> 95 95 <Unit0> 96 96 <Filename Value="AcronymDecoder.lpr"/> … … 98 98 </Unit0> 99 99 <Unit1> 100 <Filename Value="UFormMain.pas"/> 101 <IsPartOfProject Value="True"/> 102 <ComponentName Value="FormMain"/> 103 <HasResources Value="True"/> 104 <ResourceBaseClass Value="Form"/> 100 <Filename Value="UAcronym.pas"/> 101 <IsPartOfProject Value="True"/> 105 102 </Unit1> 106 103 <Unit2> 107 <Filename Value="UAcronym.pas"/> 108 <IsPartOfProject Value="True"/> 104 <Filename Value="Forms\UFormCategorySelect.pas"/> 105 <IsPartOfProject Value="True"/> 106 <ComponentName Value="FormCategorySelect"/> 107 <HasResources Value="True"/> 108 <ResourceBaseClass Value="Form"/> 109 109 </Unit2> 110 110 <Unit3> 111 <Filename Value=" UFormImport.pas"/>112 <IsPartOfProject Value="True"/> 113 <ComponentName Value="Form Import"/>111 <Filename Value="Forms\UFormCategories.pas"/> 112 <IsPartOfProject Value="True"/> 113 <ComponentName Value="FormCategories"/> 114 114 <HasResources Value="True"/> 115 115 <ResourceBaseClass Value="Form"/> 116 116 </Unit3> 117 117 <Unit4> 118 <Filename Value=" UFormAcronym.pas"/>118 <Filename Value="Forms\UFormAcronym.pas"/> 119 119 <IsPartOfProject Value="True"/> 120 120 <ComponentName Value="FormAcronym"/> … … 123 123 </Unit4> 124 124 <Unit5> 125 <Filename Value="UFormSettings.pas"/> 126 <IsPartOfProject Value="True"/> 127 <ComponentName Value="FormSettings"/> 128 <HasResources Value="True"/> 129 <ResourceBaseClass Value="Form"/> 125 <Filename Value="Forms\UFormImport.pas"/> 126 <IsPartOfProject Value="True"/> 127 <HasResources Value="True"/> 130 128 </Unit5> 131 129 <Unit6> 132 <Filename Value="Forms\UForm CategorySelect.pas"/>133 <IsPartOfProject Value="True"/> 134 <ComponentName Value="Form CategorySelect"/>130 <Filename Value="Forms\UFormMain.pas"/> 131 <IsPartOfProject Value="True"/> 132 <ComponentName Value="FormMain"/> 135 133 <HasResources Value="True"/> 136 134 <ResourceBaseClass Value="Form"/> 137 135 </Unit6> 138 136 <Unit7> 139 <Filename Value="Forms\UFormCategories.pas"/> 140 <IsPartOfProject Value="True"/> 141 <ComponentName Value="FormCategories"/> 142 <HasResources Value="True"/> 143 <ResourceBaseClass Value="Form"/> 137 <Filename Value="Forms\UFormSettings.pas"/> 138 <IsPartOfProject Value="True"/> 139 <HasResources Value="True"/> 144 140 </Unit7> 141 <Unit8> 142 <Filename Value="Forms\UFormAcronyms.pas"/> 143 <IsPartOfProject Value="True"/> 144 <ComponentName Value="FormAcronyms"/> 145 <HasResources Value="True"/> 146 <ResourceBaseClass Value="Form"/> 147 </Unit8> 145 148 </Units> 146 149 </ProjectOptions> … … 184 187 </Linking> 185 188 <Other> 189 <CompilerMessages> 190 <IgnoredMessages idx5024="True"/> 191 </CompilerMessages> 186 192 <CustomOptions Value="-dDEBUG"/> 187 193 </Other> -
trunk/AcronymDecoder.lpr
r14 r17 8 8 {$ENDIF}{$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset 10 Forms, U FormMain, UAcronym, synapse, UFormImport, Common, SysUtils, TemplateGenerics,11 UFormAcronym, CoolTranslator, UFormSettings, UFormCategorySelect,12 UFormCategories10 Forms, UAcronym, synapse, Common, SysUtils, TemplateGenerics, UFormImport, 11 CoolTranslator, UFormCategorySelect, UFormMain, UFormAcronym, UFormSettings, 12 UFormCategories, UFormAcronyms 13 13 { you can add units after this }; 14 14 … … 32 32 Application.Initialize; 33 33 Application.CreateForm(TFormMain, FormMain); 34 Application.CreateForm(TFormImport, FormImport); 34 Application.CreateForm(TFormCategorySelect, FormCategorySelect); 35 Application.CreateForm(TFormCategories, FormCategories); 36 Application.CreateForm(TFormAcronyms, FormAcronyms); 35 37 Application.CreateForm(TFormAcronym, FormAcronym); 36 38 Application.CreateForm(TFormSettings, FormSettings); 37 Application.CreateForm(TFormCategorySelect, FormCategorySelect); 38 Application.CreateForm(TFormCategories, FormCategories); 39 Application.CreateForm(TFormImport, FormImport); 39 40 Application.Run; 40 41 end. -
trunk/Forms/UFormAcronym.lfm
r16 r17 10 10 OnKeyUp = FormKeyUp 11 11 OnShow = FormShow 12 LCLVersion = '1. 7'12 LCLVersion = '1.6.0.4' 13 13 object Label1: TLabel 14 14 Left = 8 15 Height = 2 415 Height = 20 16 16 Top = 16 17 Width = 5617 Width = 43 18 18 Caption = 'Name:' 19 19 ParentColor = False … … 21 21 object EditAcronym: TEdit 22 22 Left = 136 23 Height = 3423 Height = 28 24 24 Top = 15 25 25 Width = 361 … … 30 30 object Label2: TLabel 31 31 Left = 8 32 Height = 2 432 Height = 20 33 33 Top = 49 34 Width = 7934 Width = 61 35 35 Caption = 'Meaning:' 36 36 ParentColor = False … … 38 38 object EditMeaning: TEdit 39 39 Left = 136 40 Height = 3440 Height = 28 41 41 Top = 49 42 42 Width = 361 … … 69 69 object Label3: TLabel 70 70 Left = 8 71 Height = 2 471 Height = 20 72 72 Top = 88 73 Width = 10373 Width = 79 74 74 Caption = 'Description:' 75 75 ParentColor = False … … 86 86 object Label4: TLabel 87 87 Left = 12 88 Height = 2 488 Height = 20 89 89 Top = 208 90 Width = 9690 Width = 74 91 91 Caption = 'Categories:' 92 92 ParentColor = False … … 104 104 ScrollWidth = 358 105 105 TabOrder = 5 106 TopIndex = -1107 106 end 108 107 object Button1: TButton -
trunk/Forms/UFormMain.lfm
r16 r17 1 1 object FormMain: TFormMain 2 Left = 7692 Left = 394 3 3 Height = 446 4 Top = 3 424 Top = 395 5 5 Width = 631 6 6 Caption = 'Acronym Decoder' 7 ClientHeight = 4 147 ClientHeight = 421 8 8 ClientWidth = 631 9 9 Menu = MainMenu1 … … 13 13 OnDestroy = FormDestroy 14 14 OnShow = FormShow 15 LCLVersion = '1. 7'15 LCLVersion = '1.6.0.4' 16 16 object ListViewAcronyms: TListView 17 17 Left = 8 18 Height = 3 6518 Height = 372 19 19 Top = 40 20 20 Width = 613 … … 46 46 object EditSearch: TEdit 47 47 Left = 8 48 Height = 3448 Height = 28 49 49 Top = 8 50 50 Width = 611 … … 4424 4424 OnExecute = AShowCategoriesExecute 4425 4425 end 4426 object AShowAcronyms: TAction 4427 Caption = 'Acronyms' 4428 OnExecute = AShowAcronymsExecute 4429 end 4426 4430 end 4427 4431 object PersistentForm1: TPersistentForm … … 4479 4483 object MenuItem20: TMenuItem 4480 4484 Caption = 'View' 4485 object MenuItem22: TMenuItem 4486 Action = AShowAcronyms 4487 end 4481 4488 object MenuItem21: TMenuItem 4482 4489 Action = AShowCategories -
trunk/Forms/UFormMain.lrt
r16 r17 17 17 TFORMMAIN.ASETTINGS.CAPTION=Settings 18 18 TFORMMAIN.ASHOWCATEGORIES.CAPTION=Categories 19 TFORMMAIN.ASHOWACRONYMS.CAPTION=Acronyms 19 20 TFORMMAIN.MENUITEM8.CAPTION=File 20 21 TFORMMAIN.MENUITEMOPENRECENT.CAPTION=Open recent -
trunk/Forms/UFormMain.pas
r16 r17 19 19 AAcronymRemove: TAction; 20 20 AAcronymRemoveAll: TAction; 21 AShowAcronyms: TAction; 21 22 AShowCategories: TAction; 22 23 ASettings: TAction; … … 48 49 MenuItem20: TMenuItem; 49 50 MenuItem21: TMenuItem; 51 MenuItem22: TMenuItem; 50 52 MenuItemOpenRecent: TMenuItem; 51 53 MenuItem2: TMenuItem; … … 75 77 procedure AImportExecute(Sender: TObject); 76 78 procedure ASettingsExecute(Sender: TObject); 79 procedure AShowAcronymsExecute(Sender: TObject); 77 80 procedure AShowCategoriesExecute(Sender: TObject); 78 81 procedure AShowExecute(Sender: TObject); … … 116 119 117 120 uses 118 UFormImport, UFormAcronym, UFormSettings, UFormCategories ;121 UFormImport, UFormAcronym, UFormSettings, UFormCategories, UFormAcronyms; 119 122 120 123 resourcestring … … 335 338 end; 336 339 340 procedure TFormMain.AShowAcronymsExecute(Sender: TObject); 341 begin 342 FormAcronyms.ShowModal; 343 end; 344 337 345 procedure TFormMain.AShowCategoriesExecute(Sender: TObject); 338 346 begin -
trunk/Languages/AcronymDecoder.cs.po
r16 r17 52 52 msgstr "Kategorie:" 53 53 54 #: tformacronyms.caption 55 msgctxt "tformacronyms.caption" 56 msgid "Acronyms" 57 msgstr "Zkratky" 58 59 #: tformacronyms.listviewacronyms.columns[0].caption 60 #, fuzzy 61 msgctxt "tformacronyms.listviewacronyms.columns[0].caption" 62 msgid "Name" 63 msgstr "Název" 64 65 #: tformacronyms.listviewacronyms.columns[1].caption 66 #, fuzzy 67 msgctxt "tformacronyms.listviewacronyms.columns[1].caption" 68 msgid "Description" 69 msgstr "Popis" 70 71 #: tformacronyms.listviewacronyms.columns[2].caption 72 msgctxt "tformacronyms.listviewacronyms.columns[2].caption" 73 msgid "Categories" 74 msgstr "Kategorie" 75 54 76 #: tformcategories.aadd.caption 55 77 msgctxt "tformcategories.aadd.caption" … … 172 194 msgstr "Ukázat" 173 195 196 #: tformmain.ashowacronyms.caption 197 msgctxt "tformmain.ashowacronyms.caption" 198 msgid "Acronyms" 199 msgstr "Zkratky" 200 174 201 #: tformmain.ashowcategories.caption 175 202 msgctxt "tformmain.ashowcategories.caption" 176 203 msgid "Categories" 177 msgstr " "204 msgstr "Kategorie" 178 205 179 206 #: tformmain.caption … … 187 214 188 215 #: tformmain.listviewacronyms.columns[1].caption 216 msgctxt "tformmain.listviewacronyms.columns[1].caption" 189 217 msgid "Description" 190 218 msgstr "Popis" … … 270 298 #: uformcategories.sremovecategory 271 299 msgid "Remove category" 272 msgstr " "300 msgstr "Odebrat kategorii" 273 301 274 302 #: uformcategories.sremovecategoryquery 275 303 msgid "Do you really want to remove category?" 276 msgstr " "304 msgstr "Opravdu chcete odebrat kategorii?" 277 305 278 306 #: uformimport.simportednewacronyms -
trunk/Languages/AcronymDecoder.po
r15 r17 42 42 msgstr "" 43 43 44 #: tformacronyms.caption 45 msgctxt "tformacronyms.caption" 46 msgid "Acronyms" 47 msgstr "" 48 49 #: tformacronyms.listviewacronyms.columns[0].caption 50 msgctxt "TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[0].CAPTION" 51 msgid "Name" 52 msgstr "" 53 54 #: tformacronyms.listviewacronyms.columns[1].caption 55 msgctxt "TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[1].CAPTION" 56 msgid "Description" 57 msgstr "" 58 59 #: tformacronyms.listviewacronyms.columns[2].caption 60 msgctxt "TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[2].CAPTION" 61 msgid "Categories" 62 msgstr "" 63 44 64 #: tformcategories.aadd.caption 45 65 msgctxt "TFORMCATEGORIES.AADD.CAPTION" … … 162 182 msgstr "" 163 183 184 #: tformmain.ashowacronyms.caption 185 msgctxt "TFORMMAIN.ASHOWACRONYMS.CAPTION" 186 msgid "Acronyms" 187 msgstr "" 188 164 189 #: tformmain.ashowcategories.caption 165 190 msgctxt "tformmain.ashowcategories.caption" … … 177 202 178 203 #: tformmain.listviewacronyms.columns[1].caption 204 msgctxt "tformmain.listviewacronyms.columns[1].caption" 179 205 msgid "Description" 180 206 msgstr "" -
trunk/Packages/Common/UListViewSort.pas
r3 r17 73 73 procedure UpdateFromListView(ListView: TListView); 74 74 function TextEntered: Boolean; 75 function TextEnteredCount: Integer; 75 76 function TextEnteredColumn(Index: Integer): Boolean; 76 77 function GetColValue(Index: Integer): string; … … 120 121 var 121 122 I: Integer; 122 NewColumn: TGridColumn;123 123 begin 124 124 with FStringGrid1 do begin 125 Columns.Clear;125 //Columns.Clear; 126 126 while Columns.Count > ListView.Columns.Count do Columns.Delete(Columns.Count - 1); 127 while Columns.Count < ListView.Columns.Count do NewColumn :=Columns.Add;127 while Columns.Count < ListView.Columns.Count do Columns.Add; 128 128 for I := 0 to ListView.Columns.Count - 1 do begin 129 129 Columns[I].Width := ListView.Columns[I].Width; … … 133 133 134 134 function TListViewFilter.TextEntered: Boolean; 135 begin 136 Result := TextEnteredCount > 0; 137 end; 138 139 function TListViewFilter.TextEnteredCount: Integer; 135 140 var 136 141 I: Integer; 137 142 begin 138 Result := False;143 Result := 0; 139 144 for I := 0 to FStringGrid1.ColCount - 1 do begin 140 145 if FStringGrid1.Cells[I, 0] <> '' then begin 141 Result := True; 142 Break; 146 Inc(Result); 143 147 end; 144 148 end; -
trunk/UAcronym.pas
r15 r17 6 6 7 7 uses 8 Classes, SysUtils, Contnrs, XMLConf, XMLRead, XMLWrite, DOM, UXMLUtils; 8 Classes, SysUtils, Contnrs, XMLConf, XMLRead, XMLWrite, DOM, UXMLUtils, 9 SpecializedList; 9 10 10 11 type … … 92 93 procedure AssignToStrings(Strings: TStrings); 93 94 procedure AssignFromStrings(Strings: TStrings); 95 function GetString: string; 94 96 end; 95 97 … … 122 124 function AddAcronym(AcronymName, MeaningName: string): TAcronymMeaning; 123 125 procedure RemoveAcronym(AcronymName, MeaningName: string); 126 procedure AssignToList(List: TListObject); 124 127 end; 125 128 … … 403 406 Add(TAcronymCategory(Strings.Objects[I])); 404 407 end; 408 end; 409 410 function TAcronymCategories.GetString: string; 411 var 412 I: Integer; 413 begin 414 Result := ''; 415 for I := 0 to Count - 1 do 416 Result := Result + TAcronymCategory(Items[I]).Name + ','; 417 System.Delete(Result, Length(Result), 1); 405 418 end; 406 419 … … 704 717 end; 705 718 719 procedure TAcronymDb.AssignToList(List: TListObject); 720 var 721 I: Integer; 722 J: Integer; 723 begin 724 List.Clear; 725 for I := 0 to Acronyms.Count - 1 do 726 with TAcronym(Acronyms[I]) do begin 727 for J := 0 to Meanings.Count - 1 do 728 with TAcronymMeaning(Meanings[J]) do begin 729 List.Add(TAcronymMeaning(Meanings[J])) 730 end; 731 end; 732 end; 733 706 734 end. 707 735
Note:
See TracChangeset
for help on using the changeset viewer.