paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix close lookup

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1032 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2009-12-05 06:48:21 +00:00
parent 792b30e2a1
commit 7ed85a3234
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/rx/rxlookup.pas
View File

@ -1006,10 +1006,11 @@ begin
FRxPopUpForm:=ShowRxDBPopUpForm(Self, FLookupDataLink.DataSet, @OnClosePopup, FRxPopUpForm:=ShowRxDBPopUpForm(Self, FLookupDataLink.DataSet, @OnClosePopup,
FPopUpFormOptions, FLookupDisplay, LookupDisplayIndex, 0 {ButtonWidth}, Font); FPopUpFormOptions, FLookupDisplay, LookupDisplayIndex, 0 {ButtonWidth}, Font);
{$IFDEF LINUX} {$IFDEF LINUX}
TempF:=FRxPopUpForm; TempF:=FRxPopUpForm;
if FRxPopUpForm.ShowModal = mrOk then if FRxPopUpForm.ShowModal = mrOk then
OnClosePopup(true); OnClosePopup(true);
TempF.Free; TempF.Free;
FRxPopUpForm:=nil
{$ENDIF} {$ENDIF}
end end
end; end;