From d42ba252f3c9fdcfee94a22e4c94adb15babd689 Mon Sep 17 00:00:00 2001 From: alexs75 Date: Sun, 18 Dec 2016 15:53:06 +0000 Subject: [PATCH] RxFPC:fix compile after 53713 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5539 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/rx/trunk/rxmdi.pas | 3 ++- components/rx/trunk/rxversinfo.pas | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/components/rx/trunk/rxmdi.pas b/components/rx/trunk/rxmdi.pas index d109ea117..c39225afc 100644 --- a/components/rx/trunk/rxmdi.pas +++ b/components/rx/trunk/rxmdi.pas @@ -751,7 +751,8 @@ begin FNavPanel.ChildWindowsShowLast; FNavPanel.ShowHiddenBtnOnResize; CloseAction:=caFree; - Owner.RemoveComponent(Self); + if Assigned(Owner) then + Owner.RemoveComponent(Self); FNavPanel.FMainPanel.RemoveControl(Sender as TCustomForm); Application.ReleaseComponent(Self); end; diff --git a/components/rx/trunk/rxversinfo.pas b/components/rx/trunk/rxversinfo.pas index 213af3fe4..90805cc4e 100644 --- a/components/rx/trunk/rxversinfo.pas +++ b/components/rx/trunk/rxversinfo.pas @@ -111,7 +111,8 @@ type implementation -uses FileUtil, resource, resreader, InterfaceBase, rxconst, LazFileUtils, LazUTF8 +uses FileUtil, resource, resreader, InterfaceBase, rxconst, LazFileUtils, + LazUTF8, LCLPlatformDef {$IFDEF WINDOWS} , winpeimagereader {$ENDIF}