Values ranges corrected

This commit is contained in:
utak3r 2005-09-11 20:28:13 +00:00
parent 8de3008fde
commit 81d7acf723
2 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -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