Steema Issues Database

Note: This database is for bugs and wishes only. For technical support help, if you are a customer please visit our online forums;
otherwise you can use StackOverflow.
Before using this bug-tracker we recommend a look at this document, Steema Bug Fixing Policy.

Bug 2493

Summary:	Dragging a component over a chart doesn't show the icon of the operation set at DragOver event
Product:	FireMonkey TeeChart	Reporter:	yeray alonso <yeray>
Component:	Chart	Assignee:	yeray alonso <yeray>
Status:	RESOLVED FIXED
Severity:	enhancement	CC:	yeray
Priority:	---
Version:	33.210915
Target Milestone:	---
Hardware:	PC
OS:	Windows
URL:	https://www.steema.com/support/viewtopic.php?f=17&t=17580
Chart Series:	---	Delphi / C++ Builder RAD IDE Version:

Description yeray alonso 2021-12-15 17:12:34 EST

As the customer says in the forums:

> In the DragOver event, if you set the operation, it does not reflect the operation of the drag/drop. For example, setting it to TDragOperation.None should result it the "not accept" icon.

> I can see in the FMXTee.Chart code, procedure TCustomChart.DragOver, the Operation is ignored. Clearly we are trying to make this work the VCK version which only has 2 states.

> Fix:
> the line that says: tmpB:=True;
> should read: tmpB := Operation <> TDragOperation.None;

> and then after the broadcast, the line that says: if tmpB then Operation:=TDragOperation.Move;
> should read: if not tmpB then Operation:=TDragOperation.None;

To reproduce the issue, add a TChart and a TImage in a new form. Set the TImage DragMode to dmAutomatic and set the TChart OnDragOver event:

procedure TForm1.Chart1DragOver(Sender: TObject; const Data: TDragObject;
  const Point: TPointF; var Operation: TDragOperation);
begin
  Operation:=TDragOperation.Move;
end;

Now try to drag the TImage over the TChart