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

LCL: Remove TPageControl.DoChange. OnChange handler was run twice. Issue #20758, patch from Marcos Douglas

Browse Source 
git-svn-id: trunk@33805 -
This commit is contained in:
juha 2011-11-26 19:24:03 +00:00
parent 8b6ff4489c
commit 2383449ad9
2 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -515,7 +515,6 @@ type
State: TDragState; var Accept: Boolean); override; State: TDragState; var Accept: Boolean); override;
procedure DoRemoveDockClient(Client: TControl); override; procedure DoRemoveDockClient(Client: TControl); override;
function DoUndockClientMsg(NewTarget, Client: TControl):boolean; override; function DoUndockClientMsg(NewTarget, Client: TControl):boolean; override;
procedure DoChange; override;
function ChildClassAllowed(ChildClass: TClass): boolean; override; function ChildClassAllowed(ChildClass: TClass): boolean; override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;

7
lcl/include/pagecontrol.inc
View File

@ -108,13 +108,6 @@ begin
Result := inherited DoUndockClientMsg(NewTarget, Client); Result := inherited DoUndockClientMsg(NewTarget, Client);
end; end;
procedure TPageControl.DoChange;
begin
inherited DoChange;
if Assigned(OnChange) then
OnChange(Self);
end;
function TPageControl.ChildClassAllowed(ChildClass: TClass): boolean; function TPageControl.ChildClassAllowed(ChildClass: TClass): boolean;
begin begin
Result:=(ChildClass<>nil) and (ChildClass.InheritsFrom(PageClass)); Result:=(ChildClass<>nil) and (ChildClass.InheritsFrom(PageClass));