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

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