Print in Grayscale

[bertrod]

Hello,

I'm using the feature TeeGrayScale() in the afterDraw method, but I can't use it also to pring the chart in grayscale. Is it possible ? Thanks

[Narcís]

Hi bertrod,

You can try something like what Marjan suggested here and adding this line:

Code: Select all

      pDMode^.dmColor:=DMCOLOR_MONOCHROME;

[bertrod]

Hi Narcis,

Ok but my problem is that Monochrome is different than Grayscale :

chart.monochrome looks different than teeGrayscale(), and moreover i'm also using the reverted grayscale (white becomes black, etc.).

Seeing your answer, I should understand that you did not yet implement the printing in the "real" grayscale ?

If not, then i will use your proposition for now, and I hope printing in grayscale will be implemented in the next releases.

Regards

[Pep]

Hi bertrod,

to create a grayscale Chart you must use (as you said) the TeeGrayScale, and to be able to print it in grayscale you will have to use a Metafile and StretchDraw method to print it directly.

Code: Select all

procedure TForm1.BitBtn2Click(Sender: TObject);
var meta : TMetafile;
begin
   Chart1.BevelOuter := bvNone;
   Meta := Chart1.TeeCreateMetafile(True, Chart1.ClientRect);
   try
      Printer.Orientation := poPortrait;
      Printer.BeginDoc;
      try
         Printer.Canvas.StretchDraw(Rect(1,1,Printer.PageWidth - 1,
         Printer.PageHeight - 1),Meta);
      finally
         Printer.EndDoc;
      end;
   finally
      Meta.Free;
      Chart1.BevelOuter := bvRaised;
   end;
end;

[bertrod]

Hi Pep,

Thanks for the answer but your solution doesn't work. I'm using the filter right before creating the Metafile, and then I'm using it to print, but the chart is still not in grayscale.

Code: Select all

TeeGrayScale((Chart.Canvas as TTeeCanvas3D).Bitamp, true, 0) ;
MetaChart := Chart.TeeCreateMetaFile(True, Chart.ClientRect) ;
...

Do you have maybe another solution ?

[johnnix]

Hello,

Try this:

var bit: TBitmap;
begin
bit := Chart.TeeCreateBitmap(clwhite, Chart.ClientRect);
TeeGrayScale(bit, false, 0) ;
MetaChart := Chart.TeeCreateMetaFile(True, Chart.ClientRect) ;
bit.free;
..............
end;

[bertrod]

Hi johnnix,

I don't see the point in your solution. The Metachart is still in color and bit is never used

[johnnix]

Hello,

Use the bitmap for printing and not the metafile.

Regards

[bertrod]

Ok, well yes it does work, but the quality of the bitmap is far not as good as the MetaFile when stretched, zoomed, etc. I'll try to see if I can improve it.

[johnnix]

Hello,

I use that portion of code to place my plots inside FastReports and works pretty nice. You may try to double the size of the bitmap in order to get more details...

Regards