From 81d7acf723730e19760bd6be3da345a5981040e5 Mon Sep 17 00:00:00 2001 From: utak3r Date: Sun, 11 Sep 2005 20:28:13 +0000 Subject: [PATCH] Values ranges corrected --- 2.10/Source/Adjust.dfm | 4 ++-- 2.10/Source/Adjust.pas | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/2.10/Source/Adjust.dfm b/2.10/Source/Adjust.dfm index 59e4b29..9d3271f 100644 --- a/2.10/Source/Adjust.dfm +++ b/2.10/Source/Adjust.dfm @@ -173,7 +173,7 @@ object AdjustForm: TAdjustForm Top = 133 Width = 390 Height = 131 - ActivePage = TabSheet1 + ActivePage = TabSheet2 Align = alBottom TabOrder = 1 object TabSheet1: TTabSheet @@ -406,7 +406,7 @@ object AdjustForm: TAdjustForm Width = 257 Height = 15 LargeChange = 100 - Max = 1000 + Max = 10000 PageSize = 0 TabOrder = 2 OnChange = scrollBrightnessChange diff --git a/2.10/Source/Adjust.pas b/2.10/Source/Adjust.pas index b603a14..bdebb84 100644 --- a/2.10/Source/Adjust.pas +++ b/2.10/Source/Adjust.pas @@ -477,7 +477,7 @@ var i: integer; strx, stry, strw, strh: string; begin - if LimitVibrancy then scrollVibrancy.Max := 1000 else scrollVibrancy.Max := 3000; + if LimitVibrancy then scrollVibrancy.Max := 100 else scrollVibrancy.Max := 3000; { Read posution from registry } Registry := TRegistry.Create; try