paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 00:40:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: don't store Color property if Parent=nil but ParentColor = False - this causes ancestor frames which have no parent to load wrong clWindow color

Browse Source 
git-svn-id: trunk@22933 -
This commit is contained in:
paul 2009-12-03 07:47:02 +00:00
parent 8b7563686a
commit 0f2bfd7211
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/controls.pp
View File

@ -972,7 +972,6 @@ type
function IsAnchorsStored: boolean;
function IsBiDiModeStored: boolean;
function IsCaptionStored: Boolean;
function IsColorStored: Boolean;
function IsEnabledStored: Boolean;
function IsFontStored: Boolean;
function IsHintStored: Boolean;

7
lcl/include/control.inc
View File

@ -888,7 +888,7 @@ end;
------------------------------------------------------------------------------}
function TControl.ColorIsStored: boolean;
begin
Result := not ParentColor or (Parent = nil);
Result := not ParentColor;
end;
{------------------------------------------------------------------------------
@ -2823,11 +2823,6 @@ begin
MouseCapture := False;
end;
function TControl.IsColorStored: Boolean;
begin
Result := not ParentColor;
end;
function TControl.IsEnabledStored: Boolean;
begin
Result := (ActionLink = nil) or not ActionLink.IsEnabledLinked;