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

jvcllaz: Fix TJvTimeLine "hiding" pages in a PageControl (https://forum.lazarus.freepascal.org/index.php/topic,47499.msg344725.html#msg344725)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7215 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-01-02 13:01:42 +00:00
parent 93ebcc497e
commit c745a3cc75
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -342,9 +342,10 @@ type
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure CreateWnd; override;
function GetDragImages: TDragImageList; override;
procedure SetHint(const Value: TTranslateString); override;
property Align default alTop;
property Color default clWindow;
procedure SetHint(const Value: TTranslateString); override;
{ new properties }
property Year: Word read GetYear write SetYear;
@ -606,6 +607,8 @@ end;
procedure TJvTimeItem.Update;
begin
if not FParent.FTimeLine.HandleAllocated then
exit;
LCLIntf.InvalidateRect(FParent.FTimeLine.Handle, @FRect, True);
FParent.FTimeLine.UpdateItem(Index, FParent.FTimeLine.Canvas);
LCLIntf.InvalidateRect(FParent.FTimeLine.Handle, @FRect, True);
@ -2143,6 +2146,8 @@ procedure TJvCustomTimeLine.UpdateItems;
var
I: Integer;
begin
if not HandleAllocated then
exit;
if csDestroying in ComponentState then
Exit;
FNewHeight := 0;
@ -2954,5 +2959,4 @@ begin
end;
end;
end.