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 - Dragging a component over a chart doesn't show the icon of the operation set at DragOver event
Summary: Dragging a component over a chart doesn't show the icon of the operation set ...
Status: RESOLVED FIXED
Alias: None
Product: FireMonkey TeeChart
Classification: Unclassified
Component: Chart (show other bugs)
Version: 33.210915
Hardware: PC Windows
: --- enhancement
Target Milestone: ---
Assignee: yeray alonso
URL: https://www.steema.com/support/viewto...
Keywords:
Depends on:
Blocks:
 
Reported: 2021-12-15 17:12 EST by yeray alonso
Modified: 2021-12-15 17:12 EST (History)
1 user (show)

See Also:
Chart Series: ---
Delphi / C++ Builder RAD IDE Version:

Attachments
Add an attachment (proposed patch, testcase, etc.)

Note You need to log in before you can comment on or make changes to this bug.
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