apply patch for compile rx with fpc 2.6 - thx Daniel Simões de Almeida - close issue 21598

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2373 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-03-31 15:49:40 +00:00
parent acfeafbd7d
commit 2ae6517c57
3 changed files with 9 additions and 8 deletions

View File

@ -454,6 +454,7 @@ begin
FDataSource:=TDataSource.Create(Self);
FPopUpFormOptions:=APopUpFormOptions;
FFieldList:=AFieldList;
OnClose := @FormClose;
{$IFDEF LINUX}
PopupOrigin:=TCustomControl(AOwner).Parent.ControlToScreen(Point(TCustomControl(AOwner).Left, TCustomControl(AOwner).Height + TCustomControl(AOwner).Top));