You've already forked lazarus-ccr
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:
@ -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);
|
||||||
|
Reference in New Issue
Block a user