Drawing on TfrxPictureview Canvas

Tom Dalton (OSDB Worx)

Hi All,

I am new to Fast Reports and although very happy with the environment I am not getting a polygon to appear on a picture object in a report.

Typically we would call the the object:

Var Pict : TfrxPictureView;

Begin

Pict := Report1.FindComponent('Picture1') as TFrxPictureView;
Pict.Picture.Bitmap.Canvas.Polygon([Point(30,200),Point(230,200),Point(100,100)]);
Report1.showReport;
End;

I get a blank page with no triangle on the page. I have tried to add pen, brush, and other odd stuff with no joy.

Regards Tom

gpi

Try

var Pict : TfrxPictureView;
    Image: TImage;
begin
   Pict := frxreport1.FindComponent('Picture1') as TfrxPictureView;
   Image := TImage.Create(nil);
   Image.Canvas.Pen.Color := clBlack;
   Image.Canvas.Brush.Color := clRed;
   Image.Canvas.Polygon([Point(30,200),Point(130,200),Point(80,89)]);
   Pict.Picture := Image.Picture;
   Image.Free;
   frxReport1.ShowReport(True);
end;