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

rx component: fixed compilation with fpc 2.3.1 r10094 #86a36d4a2f

Browse Source 
git-svn-id: trunk@13923 -
This commit is contained in:
vincents 2008-01-30 12:03:48 +00:00
parent 7b40cf0831
commit 3a9f3361aa
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/placement.pp
View File

@ -410,13 +410,13 @@ end;
procedure TFormPlacement.Loaded;
var
Loading: Boolean;
IsLoading: Boolean;
begin
Loading := csLoading in ComponentState;
IsLoading := csLoading in ComponentState;
inherited Loaded;
if not (csDesigning in ComponentState) then
begin
if Loading then
if IsLoading then
SetEvents;
end;
end;