- Timestamp:
- Jun 30, 2023, 10:51:35 PM (17 months ago)
- Location:
- trunk
- Files:
-
- 14 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Core.pas
r162 r164 6 6 Classes, SysUtils, FileUtil, Controls, ActnList, Forms, Dialogs, ExtCtrls, 7 7 LastOpenedList, ApplicationInfo, PersistentForm, ScaleDPI, Common, 8 Translator, DataFile, VCard, Menus, RegistryEx, Theme, 8 Translator, DataFile, VCard, Menus, RegistryEx, Theme, FormMain, 9 9 Registry, VCardFile; 10 10 … … 81 81 ProfilePhotoFileName: string; 82 82 RecentFileRegistryContext: TRegistryContext; 83 FormMain: TForm ;83 FormMain: TFormMain; 84 84 procedure FileModified(Sender: TObject); 85 85 function FindFirstNonOption: string; … … 130 130 131 131 uses 132 Form Main, FormSettings, FormFindDuplicity, FormCompare, TestCase, FormNormalize,132 FormSettings, FormFindDuplicity, FormCompare, TestCase, FormNormalize, 133 133 FormGenerate, FormError, FormFind, FormSource, TestCases, FormExport, FormEx, 134 134 FormAbout, FormTests; … … 337 337 if ShowModal = mrOK then begin 338 338 SaveData; 339 //ThemeManager1.UseTheme(FormMain); 340 //ThemeManager1.UseTheme(FormContacts); 339 FormMain.SettingsChanged; 341 340 end; 342 341 finally … … 461 460 TFormEx.PersistentForm := PersistentForm1; 462 461 462 Initialize; 463 463 464 FormMain := TFormMain.Create(nil); 464 // FormMain.Translator.POFilesFolder := 'Languages;Packages/Common/Languages';465 465 FormMain.Show; 466 466 end; -
trunk/Forms/FormMain.lfm
r162 r164 1 1 object FormMain: TFormMain 2 Left = 5343 Height = 9934 Top = 2235 Width = 14912 Left = 0 3 Height = 1360 4 Top = 40 5 Width = 2560 6 6 AllowDropFiles = True 7 7 Caption = 'vCard Studio' 8 ClientHeight = 9599 ClientWidth = 14918 ClientHeight = 1330 9 ClientWidth = 2560 10 10 DesignTimePPI = 144 11 11 Menu = MainMenu1 … … 18 18 OnShow = FormShow 19 19 LCLVersion = '2.2.6.0' 20 WindowState = wsMaximized 20 21 object CoolBar1: TCoolBar 21 22 Left = 0 22 23 Height = 43 23 24 Top = 0 24 Width = 149125 Width = 2560 25 26 AutoSize = True 26 27 Bands = < -
trunk/Forms/FormMain.pas
r162 r164 75 75 FormContacts: TFormContacts; 76 76 procedure UpdateInterface; 77 procedure SettingsChanged; 77 78 end; 78 79 … … 137 138 try 138 139 SetToolbarHints; 139 Core.Core.Initialize;140 Translator.TranslateComponentRecursive(Self);141 ThemeManager.UseTheme(Self);142 PersistentForm.Load(Self);143 140 ScaleDPI.ScaleControl(CoolBar1, Core.Core.ScaleDPI1.DesignDPI); 144 141 CoolBar1.AutosizeBands; … … 245 242 end; 246 243 244 procedure TFormMain.SettingsChanged; 245 begin 246 ThemeManager.UseTheme(Self); 247 Translator.TranslateComponentRecursive(Self); 248 FormContacts.ThemeManager.UseTheme(FormContacts); 249 FormContacts.Translator.TranslateComponentRecursive(FormContacts); 250 end; 251 247 252 end. 248 253 -
trunk/Forms/FormSettings.lfm
r162 r164 1 1 object FormSettings: TFormSettings 2 Left = 7982 Left = 851 3 3 Height = 613 4 Top = 2044 Top = 413 5 5 Width = 857 6 6 Caption = 'Settings' … … 42 42 Width = 845 43 43 HorzScrollBar.Page = 520 44 VertScrollBar.Page = 4 9144 VertScrollBar.Page = 481 45 45 Anchors = [akTop, akLeft, akRight, akBottom] 46 ClientHeight = 53 847 ClientWidth = 84 346 ClientHeight = 536 47 ClientWidth = 841 48 48 TabOrder = 2 49 49 object Label1: TLabel 50 50 Left = 24 51 Height = 2 651 Height = 25 52 52 Top = 24 53 Width = 8 853 Width = 81 54 54 Caption = 'Language:' 55 55 ParentColor = False … … 58 58 object ComboBoxLanguage: TComboBox 59 59 Left = 240 60 Height = 4260 Height = 33 61 61 Top = 16 62 62 Width = 264 63 ItemHeight = 063 ItemHeight = 25 64 64 ParentFont = False 65 65 Style = csDropDownList … … 68 68 object CheckBoxAutomaticDPI: TCheckBox 69 69 Left = 24 70 Height = 3070 Height = 29 71 71 Top = 416 72 Width = 14 872 Width = 145 73 73 Caption = 'Automatic DPI' 74 74 OnChange = CheckBoxAutomaticDPIChange … … 79 79 object SpinEditDPI: TSpinEdit 80 80 Left = 241 81 Height = 4381 Height = 33 82 82 Top = 448 83 83 Width = 145 … … 91 91 object LabelDPI: TLabel 92 92 Left = 56 93 Height = 2 693 Height = 25 94 94 Top = 456 95 Width = 3 595 Width = 32 96 96 Caption = 'DPI:' 97 97 ParentColor = False … … 101 101 object CheckBoxReopenLastFileOnStart: TCheckBox 102 102 Left = 24 103 Height = 30103 Height = 29 104 104 Top = 368 105 Width = 2 26105 Width = 217 106 106 Caption = 'Reopen last file on start' 107 107 ParentFont = False … … 110 110 object Label2: TLabel 111 111 Left = 24 112 Height = 2 6112 Height = 25 113 113 Top = 72 114 Width = 63114 Width = 57 115 115 Caption = 'Theme:' 116 116 ParentColor = False … … 119 119 object ComboBoxTheme: TComboBox 120 120 Left = 240 121 Height = 42121 Height = 33 122 122 Top = 64 123 123 Width = 264 124 ItemHeight = 0124 ItemHeight = 25 125 125 ParentFont = False 126 126 Style = csDropDownList … … 129 129 object Label3: TLabel 130 130 Left = 24 131 Height = 2 6131 Height = 25 132 132 Top = 120 133 Width = 1 86133 Width = 174 134 134 Caption = 'Default vCard version:' 135 135 ParentColor = False … … 137 137 object EditDefaultVcardVersion: TEdit 138 138 Left = 240 139 Height = 43139 Height = 33 140 140 Top = 112 141 141 Width = 144 … … 144 144 object Label4: TLabel 145 145 Left = 24 146 Height = 2 6146 Height = 25 147 147 Top = 165 148 Width = 1 33148 Width = 126 149 149 Caption = 'Map query URL:' 150 150 ParentColor = False … … 152 152 object EditMapUrl: TEdit 153 153 Left = 240 154 Height = 43154 Height = 33 155 155 Top = 160 156 Width = 58 8156 Width = 586 157 157 Anchors = [akTop, akLeft, akRight] 158 158 TabOrder = 6 … … 160 160 object Label5: TLabel 161 161 Left = 24 162 Height = 2 6162 Height = 25 163 163 Top = 212 164 Width = 1 20164 Width = 114 165 165 Caption = 'Compare tool:' 166 166 ParentColor = False … … 168 168 object EditCompareTool: TEdit 169 169 Left = 241 170 Height = 43170 Height = 33 171 171 Top = 208 172 Width = 46 4172 Width = 462 173 173 Anchors = [akTop, akLeft, akRight] 174 174 TabOrder = 7 175 175 end 176 176 object ButtonBrowse: TButton 177 Left = 71 5177 Left = 713 178 178 Height = 38 179 179 Top = 210 … … 186 186 object Label6: TLabel 187 187 Left = 24 188 Height = 2 6188 Height = 25 189 189 Top = 264 190 Width = 2 48190 Width = 231 191 191 Caption = 'Default phone country prefix:' 192 192 ParentColor = False … … 194 194 object EditDefaultPhoneCountryPrefix: TEdit 195 195 Left = 376 196 Height = 43196 Height = 33 197 197 Top = 260 198 198 Width = 144 … … 201 201 object Label7: TLabel 202 202 Left = 24 203 Height = 2 6203 Height = 25 204 204 Top = 312 205 Width = 2 67205 Width = 243 206 206 Caption = 'Default international call prefix:' 207 207 ParentColor = False … … 209 209 object EditDefaultInternationalCallPrefix: TEdit 210 210 Left = 376 211 Height = 43211 Height = 33 212 212 Top = 308 213 213 Width = 144 … … 216 216 end 217 217 object OpenDialog1: TOpenDialog 218 Title = 'Otevřít existující soubor'219 218 Left = 640 220 219 Top = 72 -
trunk/Forms/FormSettings.lrj
r162 r164 13 13 {"hash":77164181,"name":"tformsettings.buttonbrowse.caption","sourcebytes":[66,114,111,119,115,101],"value":"Browse"}, 14 14 {"hash":99356634,"name":"tformsettings.label6.caption","sourcebytes":[68,101,102,97,117,108,116,32,112,104,111,110,101,32,99,111,117,110,116,114,121,32,112,114,101,102,105,120,58],"value":"Default phone country prefix:"}, 15 {"hash":112394474,"name":"tformsettings.label7.caption","sourcebytes":[68,101,102,97,117,108,116,32,105,110,116,101,114,110,97,116,105,111,110,97,108,32,99,97,108,108,32,112,114,101,102,105,120,58],"value":"Default international call prefix:"}, 16 {"hash":45680018,"name":"tformsettings.opendialog1.title","sourcebytes":[79,116,101,118,197,153,195,173,116,32,101,120,105,115,116,117,106,195,173,99,195,173,32,115,111,117,98,111,114],"value":"Otev\u0159\u00EDt existuj\u00EDc\u00ED soubor"} 15 {"hash":112394474,"name":"tformsettings.label7.caption","sourcebytes":[68,101,102,97,117,108,116,32,105,110,116,101,114,110,97,116,105,111,110,97,108,32,99,97,108,108,32,112,114,101,102,105,120,58],"value":"Default international call prefix:"} 17 16 ]} -
trunk/Forms/FormSettings.pas
r162 r164 40 40 procedure CheckBoxStartOnLogonChange(Sender: TObject); 41 41 procedure FormShow(Sender: TObject); 42 private43 { private declarations }44 42 public 45 43 procedure LoadData; -
trunk/Languages/vCardStudio.cs.po
r162 r164 1346 1346 msgstr "DPI:" 1347 1347 1348 #: tformsettings.opendialog1.title1349 msgctxt "tformsettings.opendialog1.title"1350 msgid "Otevřít existující soubor"1351 msgstr ""1352 1353 1348 #: tformsource.acopy.caption 1354 1349 msgctxt "tformsource.acopy.caption" -
trunk/Languages/vCardStudio.pot
r162 r164 1336 1336 msgstr "" 1337 1337 1338 #: tformsettings.opendialog1.title1339 msgctxt "tformsettings.opendialog1.title"1340 msgid "Otevřít existující soubor"1341 msgstr ""1342 1343 1338 #: tformsource.acopy.caption 1344 1339 msgctxt "tformsource.acopy.caption" -
trunk/Languages/vCardStudio.sv.po
r162 r164 1356 1356 msgstr "DPI:" 1357 1357 1358 #: tformsettings.opendialog1.title1359 msgctxt "tformsettings.opendialog1.title"1360 msgid "Otevřít existující soubor"1361 msgstr ""1362 1363 1358 #: tformsource.acopy.caption 1364 1359 msgctxt "tformsource.acopy.caption" -
trunk/Packages/Common/Common.pas
r158 r164 65 65 function GetFileFilterItemExt(Filter: string; Index: Integer): string; 66 66 function IntToBin(Data: Int64; Count: Byte): string; 67 function Implode(Separator: Char; List: TList<string>): string;68 function Implode(Separator: Char; List: TStringList; Around: string = ''): string;67 function Implode(Separator: string; List: TList<string>): string; 68 function Implode(Separator: string; List: TStringList; Around: string = ''): string; 69 69 function LastPos(const SubStr: String; const S: String): Integer; 70 70 function LoadFileToStr(const FileName: TFileName): AnsiString; … … 207 207 end;*) 208 208 209 function Implode(Separator: Char; List: TStringList; Around: string = ''): string;209 function Implode(Separator: string; List: TStringList; Around: string = ''): string; 210 210 var 211 211 I: Integer; … … 326 326 end; 327 327 328 function Implode(Separator: Char; List: TList<string>): string;328 function Implode(Separator: string; List: TList<string>): string; 329 329 var 330 330 I: Integer; -
trunk/Packages/Common/Languages/FormAbout.cs.po
r163 r164 27 27 msgstr "Verze" 28 28 29 #: tformabout.caption30 msgid "About"31 msgstr "O aplikaci" -
trunk/Packages/Common/Languages/FormAbout.pot
r163 r164 14 14 msgstr "" 15 15 16 #: tformabout.caption17 msgid "About"18 msgstr ""19 -
trunk/Packages/VCard/Languages/QuotedPrintable.cs.po
r157 r164 16 16 msgid "Decode error" 17 17 msgstr "Chyba dekódování" 18 -
trunk/Packages/VCard/Languages/VCard.cs.po
r157 r164 447 447 msgid "YouTube" 448 448 msgstr "YouTube" 449
Note:
See TracChangeset
for help on using the changeset viewer.