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

jvcllaz: Fix TJvNavigationPaine issues at designtime.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5397 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-30 16:21:48 +00:00
parent 78c08bdc4d
commit 1a983b8ada
2 changed files with 45 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/jvcllaz/run/JvNavigationPane.pas
View File

@ -954,6 +954,7 @@ type
procedure Loaded; override;
procedure DoDropDownMenu(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
function InternalGetPageClass: TJvCustomPageClass; override;
procedure Paint; override;
property NavPages[Index: Integer]: TJvNavPanelPage read GetNavPage;
public
constructor Create(AOwner: TComponent); override;
@ -1618,6 +1619,16 @@ begin
UpdatePositions;
end;
procedure TJvCustomNavigationPane.Paint;
begin
if (csDesigning in ComponentState) or (PageCount = 0) then
begin
Canvas.Brush.Color := Color;
Canvas.FillRect(0, 0, Width, Height);
end;
inherited;
end;
procedure TJvCustomNavigationPane.SetActivePage(Page: TJvCustomPage);
begin
inherited SetActivePage(Page);