RxFPC:fix compile after 53713

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5539 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-12-18 15:53:06 +00:00
parent b00af54bb9
commit d42ba252f3
2 changed files with 4 additions and 2 deletions

View File

@ -751,6 +751,7 @@ begin
FNavPanel.ChildWindowsShowLast;
FNavPanel.ShowHiddenBtnOnResize;
CloseAction:=caFree;
if Assigned(Owner) then
Owner.RemoveComponent(Self);
FNavPanel.FMainPanel.RemoveControl(Sender as TCustomForm);
Application.ReleaseComponent(Self);

View File

@ -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}