Monochrome Points

Andy · Post by **Andy** » Mon Feb 04, 2008 10:53 am

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

Post by **Pep** » Fri Feb 08, 2008 5:41 pm

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;

Andy · Post by **Andy** » Mon Feb 11, 2008 9:40 am

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.

Thank you for the tip.