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

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

Browse Source 
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
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jvcllaz/run/JvPageComps/jvpagelist.pas
View File

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