pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix compile on Lazarus 1.8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6181 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-02-06 13:59:28 +00:00
parent 13e90fd562
commit 383d872db7
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/trunk/rxdb/rxlookup.pas
View File

@ -410,7 +410,7 @@ type
end; end;
implementation implementation
uses rxlclutils, Math, rxdconst; uses rxlclutils, Math, rxdconst, LCLVersion;
type type
{ TDbGridAccess = class(TDbGrid) { TDbGridAccess = class(TDbGrid)
@ -1533,7 +1533,11 @@ begin
begin begin
if Enabled then if Enabled then
begin begin
{$IF lcl_fullversion >= 1090000}
if MouseInClient then if MouseInClient then
{$ELSE}
if MouseEntered then
{$ENDIF}
begin begin
if FMouseDown then if FMouseDown then
begin begin