Changeset 164 for trunk/Forms
- Timestamp:
- Jun 30, 2023, 10:51:35 PM (17 months ago)
- Location:
- trunk/Forms
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
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;
Note:
See TracChangeset
for help on using the changeset viewer.