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

jvcllaz: Add usage of TDBLookupTreeview to header of unit. Fix remaining Linux compilation issue.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6876 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-04-27 22:42:21 +00:00
parent bacb830e28
commit 6b1e91198c
2 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/jvcllaz/run/JvDB/jvdblookup.pas
View File

@ -3176,11 +3176,8 @@ begin
if PtInRect(FDataListForm.FList.ClientRect, ListPos) then
begin
StopTracking;
{$IFDEF CPU64}
MousePos := ListPos;
{$ELSE}
MousePos := PointToSmallPoint(ListPos);
{$ENDIF}
MousePos.X := ListPos.X;
MousePos.Y := ListPos.Y;
SendMessage(FDataListForm.FList.Handle, LM_LBUTTONDOWN, 0, LPARAM(MousePos));
Exit;
end;