paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 20:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove DoCreateWnd. Move its code to CreateWnd

Browse Source 
Commit missing part of 41407

git-svn-id: trunk@41408 -
This commit is contained in:
blikblum 2013-05-25 23:44:01 +00:00
parent e829b31b56
commit 10a5d9c1ad
2 changed files with 4 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/comctrls.pp
View File

@ -366,11 +366,10 @@ type
procedure CNNotify(var Message: TLMNotify); message CN_NOTIFY;
class procedure WSRegisterClass; override;
procedure CreateWnd; override;
procedure DoCreateWnd; virtual;
procedure DoChange; virtual;
procedure InitializeWnd; override;
procedure Change; virtual;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure Loaded; override;
procedure ReadState(Reader: TReader); override;
function DialogChar(var Message: TLMKey): boolean; override;
procedure ShowControl(APage: TControl); override;
@ -1129,7 +1128,6 @@ type
procedure WSCreateColumns;
procedure SetItem(const AIndex: Integer; const AValue: TListColumn);
protected
function GetOwner: TPersistent; override;
public
constructor Create(AOwner: TCustomListView);
destructor Destroy; override;

19
lcl/include/customnotebook.inc
View File

@ -240,34 +240,21 @@ end;
Creates the interface object.
------------------------------------------------------------------------------}
procedure TCustomTabControl.CreateWnd;
begin
{$IFDEF NOTEBOOK_DEBUG}
DebugLn(['TCustomTabControl.CreateWnd ',dbgsName(Self),' HandleAllocated=',HandleAllocated]);
{$ENDIF}
inherited CreateWnd;
DoCreateWnd;
end;
{------------------------------------------------------------------------------
procedure TCustomTabControl.DoCreateWnd;
Creates the handles for the pages and updates the notebook handle.
------------------------------------------------------------------------------}
procedure TCustomTabControl.DoCreateWnd;
var
i: Integer;
lPage: TCustomPage;
begin
{$IFDEF NOTEBOOK_DEBUG}
DebugLn(['TCustomTabControl.DoCreateWnd ',dbgsName(Self),' HandleAllocated=',HandleAllocated]);
DebugLn(['TCustomTabControl.CreateWnd ',dbgsName(Self),' HandleAllocated=',HandleAllocated]);
{$ENDIF}
inherited CreateWnd;
DisableAlign;
try
FAddingPages := True;
for i := 0 to PageCount -1 do
begin
{$IFDEF NOTEBOOK_DEBUG}
DebugLn(['TCustomTabControl.DoCreateWnd ',dbgsName(Self),' Page.Caption=',Page[i].Caption,' pfAdded=',pfAdded in Page[i].Flags]);
DebugLn(['TCustomTabControl.CreateWnd ',dbgsName(Self),' Page.Caption=',Page[i].Caption,' pfAdded=',pfAdded in Page[i].Flags]);
{$ENDIF}
lPage := Page[i];
AddRemovePageHandle(lPage);