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

lcl: revert some Luiz changed regards removing redundant FParentSomething := True changes. They are not redundant!

Browse Source 
git-svn-id: trunk@23251 -
This commit is contained in:
paul 2009-12-24 07:16:27 +00:00
parent f71903390f
commit 52d15f47b8
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/control.inc
View File

@ -755,7 +755,10 @@ begin
if csLoading in ComponentState then Exit;
if FParentColor then
begin
Color := FParent.Color;
FParentColor := True;
end;
end;
{------------------------------------------------------------------------------
@ -768,7 +771,10 @@ begin
if csLoading in ComponentState then exit;
if FParentFont then
begin
Font := FParent.Font;
FParentFont := True;
end;
//call here for compatibility with older LCL code
ParentFontChanged;
end;
@ -783,7 +789,10 @@ begin
if csLoading in ComponentState then Exit;
if FParentShowHint then
begin
ShowHint := FParent.ShowHint;
FParentShowHint := True;
end;
end;
{------------------------------------------------------------------------------}
@ -4921,7 +4930,10 @@ begin
if csLoading in ComponentState then exit;
if ParentBidiMode then
begin
BidiMode := FParent.BidiMode;
FParentBiDiMode := True;
end;
end;
{------------------------------------------------------------------------------

1
lcl/include/customform.inc
View File

@ -621,6 +621,7 @@ begin
BidiMode := Parent.BidiMode
else
BidiMode := Application.BidiMode;
ParentBidiMode := True;
end;
end;