* UI Designer: Fixed the issue with scrolling in the property window and the active property editor doesn't scroll along.

* Added a new event OnScroll to the TfpgBaseListBox

1 files changed, 15 insertions, 0 deletions

diff --git a/examples/apps/uidesigner/newformdesigner.pas b/examples/apps/uidesigner/newformdesigner.pas
index c5fa52ef..713c6564 100644
--- a/examples/apps/uidesigner/newformdesigner.pas
+++ b/examples/apps/uidesigner/newformdesigner.pas
@@ -106,9 +106,11 @@ type
     procedure   HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override;
     procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
     procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
+    procedure   HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override;
     procedure   HandleSetFocus; override;
     procedure   HandleKillFocus; override;
     procedure   OnRowChange(Sender: TObject);
+    procedure   OnScrolling(Sender: TObject);
     procedure   OnUpdateProperty(Sender: TObject);
   public
     Props: TPropertyList;
@@ -714,6 +716,7 @@ begin
   NameWidth       := 80;
   editor          := nil;
   OnChange        := @OnRowChange;
+  OnScroll        := @OnScrolling;
   BackgroundColor := clWindowBackground;
   NameDrag        := False;
   //FontName := 'arial-10:antialias=false';
@@ -724,6 +727,11 @@ begin
   AllocateEditor;
 end;
 
+procedure TwgPropertyList.OnScrolling(Sender: TObject);
+begin
+  AllocateEditor;
+end;
+
 procedure TwgPropertyList.DrawItem(num: integer; rect: TfpgRect; flags: integer);
 var
   x,
@@ -814,6 +822,13 @@ begin
     inherited;
 end;
 
+procedure TwgPropertyList.HandleMouseScroll(x, y: integer;
+  shiftstate: TShiftState; delta: smallint);
+begin
+  inherited HandleMouseScroll(x, y, shiftstate, delta);
+  AllocateEditor;
+end;
+
 procedure TwgPropertyList.HandleSetFocus;
 begin
   inherited HandleSetFocus;