diff --git a/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm b/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
index 9b52e7403..7fb3af912 100644
--- a/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
+++ b/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
@@ -1,7 +1,7 @@
 object MainForm: TMainForm
-  Left = 568
+  Left = 577
   Height = 613
-  Top = 55
+  Top = 179
   Width = 477
   Caption = 'UTF Demo 1: PhotoOp'
   ClientHeight = 613
@@ -22,9 +22,9 @@ object MainForm: TMainForm
     Height = 515
     Top = 73
     Width = 477
-    ActivePage = TabSheet1
+    ActivePage = TabSheet3
     Align = alClient
-    TabIndex = 0
+    TabIndex = 2
     TabOrder = 0
     object TabSheet1: TTabSheet
       Caption = 'Day View'
@@ -1207,6 +1207,7 @@ object MainForm: TMainForm
   object GlanceTextViewer1: TJvTFGlanceTextViewer
     ShowStartEndTimeInHint = False
     LineSpacing = 2
+    ShowLineDDButton = False
     left = 304
     top = 136
   end
@@ -1214,6 +1215,7 @@ object MainForm: TMainForm
     ShowStartEndTimeInHint = False
     LineSpacing = 2
     ShowStartEnd = False
+    ShowLineDDButton = False
     left = 304
     top = 192
   end
diff --git a/components/jvcllaz/run/JvTimeFramework/jvtfglance.pas b/components/jvcllaz/run/JvTimeFramework/jvtfglance.pas
index 16f3311cf..c5b9452ec 100644
--- a/components/jvcllaz/run/JvTimeFramework/jvtfglance.pas
+++ b/components/jvcllaz/run/JvTimeFramework/jvtfglance.pas
@@ -1490,8 +1490,6 @@ begin
   end;
 end;
 
-
-
 function TJvTFCustomGlance.DateIsSelected(ADate: TDate): Boolean;
 begin
   Result := Sel.IndexOf(ADate) <> -1;
diff --git a/components/jvcllaz/run/JvTimeFramework/jvtfglancetextviewer.pas b/components/jvcllaz/run/JvTimeFramework/jvtfglancetextviewer.pas
index 00e077071..0a3a06199 100644
--- a/components/jvcllaz/run/JvTimeFramework/jvtfglancetextviewer.pas
+++ b/components/jvcllaz/run/JvTimeFramework/jvtfglancetextviewer.pas
@@ -121,6 +121,10 @@ type
     procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState;
       var Accept: Boolean); override;
 
+    // mouse wheel support
+    function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override ;
+    function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
+
     property Replicating: Boolean read FReplicating;
     procedure Paint; override;
     procedure DrawDDButton(ACanvas: TCanvas);
@@ -737,6 +741,25 @@ begin
   Result := Rel - TopLine;
 end;
 
+function TJvTFGVTextControl.DoMouseWheelDown(Shift: TShiftState;
+  MousePos: TPoint): Boolean;
+begin
+  Result := inherited;
+  if not Result then begin
+    Scroll(+1);
+    Result := true;
+  end;
+end;
+
+function TJvTFGVTextControl.DoMouseWheelUp(Shift: TShiftState;
+  MousePos: TPoint): Boolean;
+begin
+  Result := inherited;
+  if not Result then begin
+    Scroll(-1);
+  end;
+end;
+
 procedure TJvTFGVTextControl.DoViewerDblClick;
 begin
   if FHasScrolled then