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

jvcllaz: Avoid using Windows-specific units. Some cleanup.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6259 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-03-19 08:47:50 +00:00
parent bcc69621fb
commit 9d3f64653b
21 changed files with 44 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/jvcllaz/run/JvDB/JvDBTreeView.pas
View File

@ -59,9 +59,7 @@ interface
uses
LCLIntf, LCLType, LMessages,
Messages, CommCtrl,
Classes, Controls, ExtCtrls, ComCtrls, DB;
// JvExtComponent;
type
TJvDBTreeNode = class;
@ -106,7 +104,7 @@ type
procedure SetStartMasterValue(Value: string);
function GetDataSource: TDataSource;
procedure SetDataSource(Value: TDataSource);
procedure CMGetDataLink(var Msg: TMessage); message CM_GETDATALINK;
procedure CMGetDataLink(var Msg: TLMessage); message CM_GETDATALINK;
{ wp -- removed
procedure SetMirror(Value: Boolean);
}
@ -577,7 +575,7 @@ begin
Value.FreeNotification(Self);
end;
procedure TJvCustomDBTreeView.CMGetDataLink(var Msg: TMessage);
procedure TJvCustomDBTreeView.CMGetDataLink(var Msg: TLMessage);
begin
Msg.Result := LRESULT(FDataLink);
end;
@ -1397,10 +1395,10 @@ end;
procedure TJvCustomDBTreeView.TimerDnDTimer(Sender: TObject);
begin
if YDragPos < DnDScrollArea then
Perform(WM_VSCROLL, SB_LINEUP, 0)
Perform(LM_VSCROLL, SB_LINEUP, 0)
else
if YDragPos > ClientHeight - DnDScrollArea then
Perform(WM_VSCROLL, SB_LINEDOWN, 0);
Perform(LM_VSCROLL, SB_LINEDOWN, 0);
end;
procedure TJvCustomDBTreeView.DragOver(Source: TObject; X, Y: Integer;