paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-05 08:19:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: PageControl, set tab index to widgetset. This was skipped if handle-creation was forced (by other controls) during csLoading. issue #0025555

Browse Source 
git-svn-id: trunk@44469 -
This commit is contained in:
martin 2014-03-18 21:37:10 +00:00
parent ef91216989
commit 401ad24b64
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -411,6 +411,7 @@ type
procedure CNNotify(var Message: TLMNotify); message CN_NOTIFY; procedure CNNotify(var Message: TLMNotify); message CN_NOTIFY;
class procedure WSRegisterClass; override; class procedure WSRegisterClass; override;
procedure CreateWnd; override; procedure CreateWnd; override;
procedure Loaded; override;
procedure DoChange; virtual; procedure DoChange; virtual;
procedure InitializeWnd; override; procedure InitializeWnd; override;
procedure Change; virtual; procedure Change; virtual;

7
lcl/include/customnotebook.inc
View File

@ -306,6 +306,13 @@ begin
end; end;
end; end;
procedure TCustomTabControl.Loaded;
begin
inherited Loaded;
if HandleAllocated then
DoSendPageIndex;
end;
procedure TCustomTabControl.DoChange; procedure TCustomTabControl.DoChange;
begin begin
if Assigned(OnChange) then if Assigned(OnChange) then