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

lcl: add missing checks for FControl in TControlBorderSpacing

Browse Source 
git-svn-id: trunk@39207 -
This commit is contained in:
blikblum 2012-10-31 02:44:08 +00:00
parent 70e7f9f4f3
commit 2d708f59bf
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/controls.pp
View File

@ -3235,7 +3235,10 @@ end;
function TControlBorderSpacing.IsInnerBorderStored: boolean;
begin
Result:=Control.IsBorderSpacingInnerBorderStored;
if Control <> nil then
Result:=Control.IsBorderSpacingInnerBorderStored
else
Result:=True;
end;
function TControlBorderSpacing.IsLeftStored: boolean;
@ -3402,7 +3405,8 @@ end;
procedure TControlBorderSpacing.Change(InnerSpaceChanged: Boolean);
begin
FControl.DoBorderSpacingChange(Self,InnerSpaceChanged);
if FControl <> nil then
FControl.DoBorderSpacingChange(Self,InnerSpaceChanged);
if Assigned(OnChange) then OnChange(Self);
end;