View Issue Details

IDProjectCategoryView StatusLast Update
0003959JEDI VCL00 JVCL Componentspublic2007-01-04 05:23
ReporterNazgulAssigned Toobones 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product Version3.20 
Target VersionFixed in Version3.30 
Summary0003959: TJvScrollingWindow ignores the value of ScrollAmount property
DescriptionWhen using scroll buttons on a TJvScrollingWindow, the content of the window always moves by 16 pixels, regardless of the value ScrollAmount.

Additional InformationI fixed this issue, check the attached patch.
TagsNo tags attached.

Activities

2006-10-16 06:41

 

jvScrollPanel.pas.patch (1,456 bytes)
--- //Fsc17/vyvoj (e)/BDS4/Imports/jvcl/run/JvScrollPanel.pas	Mon Jun 27 01:15:28 2005
+++ E:/bds4/Imports/jvcl/run/JvScrollPanel.pas	Mon Oct 16 12:42:38 2006
@@ -119,6 +119,7 @@
     procedure UpdateVisible;
     procedure ArrangeChildren;
     procedure SetupArrows;
+    procedure SetScrollAmount(const Value: Word);
   protected
     procedure VisibleChanged; override;
     procedure EnabledChanged; override;
@@ -129,7 +130,7 @@
     property AutoArrange: Boolean read FAutoArrange write SetAutoArrange default False;
     property Flat: Boolean read FFlat write SetFlat;
     property ScrollDirection: TJvScrollDirection read FScrollDirection write SetScrollDirection;
-    property ScrollAmount: Word read FScrollAmount write FScrollAmount default 16;
+    property ScrollAmount: Word read FScrollAmount write SetScrollAmount default 16;
     property OnScrolling: TJvScrollingEvent read FOnScrolling write FOnScrolling;
     property OnScrolled: TJvScrolledEvent read FOnScrolled write FOnScrolled;
   public
@@ -569,6 +570,18 @@
     FAutoHide := Value;
     UpdateVisible;
     Invalidate;
+  end;
+end;
+
+procedure TJvCustomScrollPanel.SetScrollAmount(const Value: Word);
+begin
+  if FScrollAmount <> Value then
+  begin
+    FScrollAmount := Value;
+    if Assigned(FUpLeft) then
+      FUpLeft.Increment := Value;
+    if Assigned(FDownRight) then
+      FDownRight.Increment := Value;
   end;
 end;
 
jvScrollPanel.pas.patch (1,456 bytes)

obones

2007-01-04 05:22

administrator   ~0010529

This is now fixed in SVN.

Issue History

Date Modified Username Field Change
2006-10-16 06:41 Nazgul New Issue
2006-10-16 06:41 Nazgul File Added: jvScrollPanel.pas.patch
2007-01-04 05:22 obones Status new => resolved
2007-01-04 05:22 obones Fixed in Version => Daily / SVN
2007-01-04 05:22 obones Resolution open => fixed
2007-01-04 05:22 obones Assigned To => obones
2007-01-04 05:22 obones Note Added: 0010529