paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 18:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: Simplify procedure TPackageEditorForm.ItemsTreeViewDragOver.

Browse Source 
git-svn-id: trunk@56637 -
This commit is contained in:
juha 2017-12-05 21:30:42 +00:00
parent cb534b2dc3
commit f1fb8c1d13
1 changed files with 4 additions and 13 deletions

17
packager/packageeditor.pas
View File

@ -926,20 +926,11 @@ var
TargetTVType: TTreeViewInsertMarkType;
begin
//debugln(['TPackageEditorForm.ItemsTreeViewDragOver ',DbgSName(Source),' State=',ord(State),' FromSelf=',Source=ItemsTreeView]);
if not PackageEditors.OnDragOverTreeView(Sender, Source, X, Y,
TargetTVNode, TargetTVType)
then begin
ItemsTreeView.SetInsertMark(nil,tvimNone);
Accept:=false;
exit;
end;
if State=dsDragLeave then
ItemsTreeView.SetInsertMark(nil,tvimNone)
Accept:=PackageEditors.OnDragOverTreeView(Sender,Source,X,Y,TargetTVNode,TargetTVType);
if Accept and (State<>dsDragLeave) then
ItemsTreeView.SetInsertMark(TargetTVNode,TargetTVType)
else
ItemsTreeView.SetInsertMark(TargetTVNode,TargetTVType);
Accept:=true;
ItemsTreeView.SetInsertMark(nil,tvimNone);
end;
procedure TPackageEditorForm.MorePopupMenuPopup(Sender: TObject);