Page 1 of 1

Monochrome Points

Posted: Mon Feb 04, 2008 10:53 am
by 9244864
Hello !

I found a problem when I print a chart to a monochrome printer.
This problem occurs in a monochrome chart on screen, too.

All points in a lineseries are filled with white color
(real white not background) independet which color is set!

The only way to print points in monochrome I found is to set its gradient.

Is this a bug or a feature :-)

Best regards
Andreas

Posted: Fri Feb 08, 2008 5:41 pm
by Pep
Hi Andreas,

maybe you're trying to get the Chart in grayScale mode ?
If so, you can use the following code :

Code: Select all

uses TeCanvas, TeeFilters;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
     TeeGrayScale( (Chart1.Canvas as TTeeCanvas3D).Bitmap,
                    false, 0);
end;

Posted: Mon Feb 11, 2008 9:40 am
by 9244864
Pep wrote:Hi Andreas,

maybe you're trying to get the Chart in grayScale mode ?
If so, you can use the following code :

Code: Select all

uses TeCanvas, TeeFilters;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
     TeeGrayScale( (Chart1.Canvas as TTeeCanvas3D).Bitmap,
                    false, 0);
end;
Fine ! That is what I wanted. :lol:
Thank you for the tip.