Changeset 524
- Timestamp:
- Jan 8, 2024, 11:31:20 PM (12 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Settings.pas
r521 r524 52 52 procedure UpdateShortCutItem; 53 53 function GetLocalCustomDpiEnabled: Boolean; 54 procedure UpdateInterface; 54 55 public 55 56 procedure LoadData; … … 113 114 procedure TSettingsDlg.ButtonResetClick(Sender: TObject); 114 115 begin 116 // TODO: Better to have default values on single place 115 117 ListLanguages.ItemIndex := 0; 116 118 ButtonFullscreen.ButtonIndex := 3; 119 ButtonCustomDpi.ButtonIndex := 2; 120 LocalDpi := 100; 117 121 LocalGamma := 100; 118 122 ListKeyBindings.ItemIndex := -1; … … 120 124 LocalKeyBindings.ResetToDefault; 121 125 LocalKeyBindings.LoadToStrings(ListKeyBindings.Items); 126 UpdateInterface; 122 127 Repaint; 123 128 end; … … 181 186 begin 182 187 ButtonCustomDpi.ButtonIndex := ButtonCustomDpi.ButtonIndex xor 1; 183 ButtonDpiUp.Enabled := GetLocalCustomDpiEnabled; 184 ButtonDpiDown.Enabled := GetLocalCustomDpiEnabled; 188 UpdateInterface; 185 189 end; 186 190 … … 258 262 ButtonDpiUp.Visible := False; 259 263 {$ENDIF} 264 UpdateInterface; 260 265 end; 261 266 … … 321 326 end; 322 327 328 procedure TSettingsDlg.UpdateInterface; 329 begin 330 ButtonDpiUp.Enabled := GetLocalCustomDpiEnabled; 331 ButtonDpiDown.Enabled := GetLocalCustomDpiEnabled; 332 end; 333 323 334 procedure TSettingsDlg.LoadData; 324 335 begin
Note:
See TracChangeset
for help on using the changeset viewer.