paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 04:09:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* CamelCase for Top/Left properties (bug ID 30413)

Browse Source 
git-svn-id: trunk@34905 -
This commit is contained in:
michael 2016-11-16 07:57:57 +00:00
parent 3f072b3e29
commit d55ed2a3fd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/compon.inc
View File

@ -227,9 +227,9 @@ begin
Temp:=0; Temp:=0;
Ancestor:=TComponent(Filer.Ancestor); Ancestor:=TComponent(Filer.Ancestor);
If Assigned(Ancestor) then Temp:=Ancestor.FDesignInfo; If Assigned(Ancestor) then Temp:=Ancestor.FDesignInfo;
Filer.Defineproperty('left',@readleft,@writeleft, Filer.Defineproperty('Left',@readleft,@writeleft,
(longrec(FDesignInfo).Lo<>Longrec(temp).Lo)); (longrec(FDesignInfo).Lo<>Longrec(temp).Lo));
Filer.Defineproperty('top',@readtop,@writetop, Filer.Defineproperty('Top',@readtop,@writetop,
(longrec(FDesignInfo).Hi<>Longrec(temp).Hi)); (longrec(FDesignInfo).Hi<>Longrec(temp).Hi));
end; end;