* Renamed all the VertScrollBar names that got screwed in a global Find-and-Replace a while back.

* Implemented keyboard navigation in the TFListBox (still experimental).

1 files changed, 3 insertions, 3 deletions

diff --git a/gui/fpguimemo.inc b/gui/fpguimemo.inc
index 7fec6cad..f1774c17 100644
--- a/gui/fpguimemo.inc
+++ b/gui/fpguimemo.inc
@@ -164,7 +164,7 @@ begin
   Canvas.FillRect(FScrollingSupport.ClientRect);
   Style.SetUIColor(Canvas, clWindowText);
 
-  with FScrollingSupport.VerTFScrollBar do
+  with FScrollingSupport.VertScrollBar do
   begin
     StartIndex  := Position div FItemHeight;
     EndIndex    := (Position + PageSize) div FItemHeight;
@@ -234,7 +234,7 @@ procedure TFCustomMemo.CalcSizes;
 begin
   FScrollingSupport.CalcSizes;
   FItemHeight := FindForm.Wnd.Canvas.FontCellHeight;
-  FScrollingSupport.VerTFScrollBar.SmallChange := FItemHeight;
+  FScrollingSupport.VertScrollBar.SmallChange := FItemHeight;
   RecalcWidth;
 end;
 
@@ -275,7 +275,7 @@ begin
 
   FScrollingSupport := TScrollingSupport.Create(Self);
   FScrollingSupport.HorzScrollBar.OnScroll := @FScrollingSupport.DefHorzScrollHandler;
-  FScrollingSupport.VerTFScrollBar.OnScroll := @FScrollingSupport.DefVertScrollHandler;
+  FScrollingSupport.VertScrollBar.OnScroll := @FScrollingSupport.DefVertScrollHandler;
 
   FLines := TFMemoStrings.Create(self);
 //  SetBounds(10, 10, 180, 90);