procedure TfrmPalette lbObjectsStartDrag Sender TObject var DragObject

1
2
3
4
5
6
7
procedure TfrmPalette.lbObjectsStartDrag(Sender: TObject;
var DragObject: TDragObject);
begin
// BeginDrag();
__DragObject := TLayerDragObject.Create(TListView(Sender).Selected);
DragObject := __DragObject
end;