Changeset 491
- Timestamp:
- Dec 11, 2023, 1:07:49 PM (13 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Settings.pas
r473 r491 60 60 SettingsDlg: TSettingsDlg; 61 61 62 const 63 DpiMin = 100; 64 DpiMax = 500; 65 {$IFDEF DEBUG} 66 DpiStep = 25; 67 {$ELSE} 68 DpiStep = 100; 69 {$ENDIF} 70 62 71 63 72 implementation … … 168 177 procedure TSettingsDlg.ButtonDpiDownClick(Sender: TObject); 169 178 begin 170 if LocalDpi >= 105 then 171 begin 172 Dec(LocalDpi, 5); 173 Invalidate; 174 end; 179 Dec(LocalDpi, DpiStep); 180 if LocalDpi < DpiMin then LocalDpi := DpiMin; 181 Invalidate; 175 182 end; 176 183 … … 182 189 procedure TSettingsDlg.ButtonDpiUpClick(Sender: TObject); 183 190 begin 184 if LocalDpi <= 495 then begin 185 Inc(LocalDpi, 5); 186 Invalidate; 187 end; 191 Inc(LocalDpi, DpiStep); 192 if LocalDpi > DpiMax then LocalDpi := DpiMax; 193 Invalidate; 188 194 end; 189 195
Note:
See TracChangeset
for help on using the changeset viewer.