Values ranges corrected
This commit is contained in:
parent
8de3008fde
commit
81d7acf723
@ -173,7 +173,7 @@ object AdjustForm: TAdjustForm
|
|||||||
Top = 133
|
Top = 133
|
||||||
Width = 390
|
Width = 390
|
||||||
Height = 131
|
Height = 131
|
||||||
ActivePage = TabSheet1
|
ActivePage = TabSheet2
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object TabSheet1: TTabSheet
|
object TabSheet1: TTabSheet
|
||||||
@ -406,7 +406,7 @@ object AdjustForm: TAdjustForm
|
|||||||
Width = 257
|
Width = 257
|
||||||
Height = 15
|
Height = 15
|
||||||
LargeChange = 100
|
LargeChange = 100
|
||||||
Max = 1000
|
Max = 10000
|
||||||
PageSize = 0
|
PageSize = 0
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
OnChange = scrollBrightnessChange
|
OnChange = scrollBrightnessChange
|
||||||
|
@ -477,7 +477,7 @@ var
|
|||||||
i: integer;
|
i: integer;
|
||||||
strx, stry, strw, strh: string;
|
strx, stry, strw, strh: string;
|
||||||
begin
|
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 }
|
{ Read posution from registry }
|
||||||
Registry := TRegistry.Create;
|
Registry := TRegistry.Create;
|
||||||
try
|
try
|
||||||
|
Loading…
Reference in New Issue
Block a user