From c2853e1f44c374b1718550d9935763807adeb577 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 1 Jun 2019 23:14:41 +0000
Subject: [PATCH] jvcllaz: Avoid drawing artefacts when JvTimeLine is resized.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6995 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/jvcllaz/run/JvCustomControls/jvtimeline.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/jvcllaz/run/JvCustomControls/jvtimeline.pas b/components/jvcllaz/run/JvCustomControls/jvtimeline.pas
index 0437bc491..cddc9187a 100644
--- a/components/jvcllaz/run/JvCustomControls/jvtimeline.pas
+++ b/components/jvcllaz/run/JvCustomControls/jvtimeline.pas
@@ -330,6 +330,7 @@ type
     procedure HorzScroll(ScrollCode: TScrollCode; var ScrollPos: Integer); virtual;
     procedure ItemClick(Item: TJvTimeItem); virtual;
     procedure ItemDblClick(Item: TJvTimeItem); virtual;
+    procedure Resize; override;
     procedure Size; virtual;
     procedure SaveItem(Item: TJvTimeItem; Stream: TStream); virtual;
     procedure LoadItem(Item: TJvTimeItem; Stream: TStream); virtual;
@@ -2085,6 +2086,12 @@ begin
     FOnItemClick(Self, Item);
 end;
 
+procedure TJvCustomTimeLine.Resize;
+begin
+  inherited;
+  Invalidate;
+end;
+
 procedure TJvCustomTimeLine.Size;
 begin
   if Assigned(FOnSize) then