jvcllaz: Make sure that JvPageList has an ActivePage at designtime after adding a page. Patch by Michal Gawrycki.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7421 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-30 20:12:06 +00:00
parent 4211ddfee3
commit 6ce8bb2328

View File

@ -562,8 +562,8 @@ begin
end; end;
procedure TJvCustomPageList.CMDesignHitTest(var Msg: TCMDesignHitTest); procedure TJvCustomPageList.CMDesignHitTest(var Msg: TCMDesignHitTest);
var //var
Pt: TPoint; // Pt: TPoint;
begin begin
inherited; inherited;
//Pt := SmallPointToPoint(Msg.Pos); //Pt := SmallPointToPoint(Msg.Pos);
@ -963,6 +963,8 @@ begin
Page.Caption := ACaption; Page.Caption := ACaption;
Page.Name := GetUniqueName(Owner, Copy(Page.ClassName, 2, MaxInt)); Page.Name := GetUniqueName(Owner, Copy(Page.ClassName, 2, MaxInt));
Page.PageList := Self; Page.PageList := Self;
if (csDesigning in ComponentState) and (ActivePage = nil) then
ActivePage := Page;
end; end;
procedure TJvCustomPageList.MovePage(CurIndex, NewIndex: Integer); procedure TJvCustomPageList.MovePage(CurIndex, NewIndex: Integer);