pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Avoid drawing artefacts when JvTimeLine is resized.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6995 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-06-01 23:14:41 +00:00
parent b29a66f612
commit c2853e1f44
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/jvcllaz/run/JvCustomControls/jvtimeline.pas
View File

@ -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