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;

16
components/jvcllaz/run/JvDB/jvdblookuptreeview.pas
View File

@ -36,6 +36,19 @@ History:
- support for BiDi mode
(thanks to Oussama Al-Rifai);
Usage:
- Attach main table to "DataSource"
- Attach lookup table to "ListSource"
- Assign ID field of the main table to "DataField"; this is a unique ID of
the current record in the dataset.
- Assign ID field of the lookup dataset which matches the ID field of the
main table to the "KeyField"
- Assign the field of the lookup table with the lookup text to "ListField"
- MasterField and DetailField establish the links for the tree:
- "MasterField" is the ID of a record in the lookup table (usually the
same as "Keyfield")
- "DetailField" is the ID of the parent record for the current record
Known Issues:
-----------------------------------------------------------------------------}
// $Id$
@ -1225,7 +1238,8 @@ begin
if PtInRect(FDataList.ClientRect, ListPos) then
begin
StopTracking;
MousePos := PointToSmallPoint(ListPos);
MousePos.X := ListPos.X;
MousePos.Y := ListPos.Y;
SendMessage(FDataList.FTree.Handle, WM_LBUTTONDOWN, 0, {$IFDEF RTL230_UP}PointToLParam{$ELSE}LPARAM{$ENDIF RTL230_UP}(MousePos));
Exit;
end;