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 302

Summary:	[TV52015765] Code below doesn't render custom drawing in GDI+unless Pen.Mode:=pmNo...
Product:	VCL TeeChart	Reporter:	narcís calvet <narcis>
Component:	Other Components	Assignee:	Steema Issue Manager <issuemanager>
Status:	CONFIRMED ---
Severity:	major
Priority:	Normal
Version:	unspecified
Target Milestone:	---
Hardware:	All
OS:	All
Chart Series:	---	Delphi / C++ Builder RAD IDE Version:

Description narcís calvet 2013-11-20 10:37:20 EST

Code below doesn't render custom drawing in GDI+unless Pen.Mode:=pmNotXor. This works fine in GDI.
uses Series, TeeGDIPlus;

procedure TForm1.FormCreate(Sender: TObject);
begin
 X0:=-1;
 Y0:=-1;

 Chart1.AddSeries(TLineSeries.Create(Self)).FillSampleValues;

 Chart1.Zoom.Allow:=false;
 Chart1.Canvas:=TGDIPlusCanvas.Create;
end;

procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 X0:=X;
 Y0:=Y;
end;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 if (X0 &lt;> -1) and (Y0 &lt;> -1) then
 begin
 Chart1.Canvas.Pen.Color:=clRed;
 //Chart1.Canvas.Pen.Mode:=pmNotXor;
 Chart1.Canvas.Rectangle(X0, Y0, X, Y);
 Chart1.Repaint;
 end;
end;

procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 X0:=-1;
 Y0:=-1;
 Chart1.Repaint;
end; [created:2011-09-30T13:48:12.000+01:00 reported by:narcis@steema.com reported in version:2011.03.30407 (TeeChart VCL)]