Problem when changing rectangle colour
I have 4 rectangles that overlay a graphic. I change the colours according to a radio button.
Colour01 := frxReportPermit.FindObject('Shape2') as TfrxShapeView;
Colour02 := frxReportPermit.FindObject('Shape3') as TfrxShapeView;
Colour03 := frxReportPermit.FindObject('Shape4') as TfrxShapeView;
Colour04 := frxReportPermit.FindObject('Shape5') as TfrxShapeView;
if (radiogroup1.ItemIndex = 0 )then
begin
Colour01.Color := clNone;
Colour02.Color := clNone;
Colour03.Color := clNone;
Colour04.Color := clNone;
end;
if (radiogroup1.ItemIndex = 1 )then
begin
Colour01.Color := clRed;
Colour02.Color := clRed;
Colour03.Color := clRed;
Colour04.Color := clRed;
end;
if (radiogroup1.ItemIndex = 2 )then
begin
Colour01.Color := clBlue;
Colour02.Color := clBlue;
Colour03.Color := clBlue;
Colour04.Color := clBlue;
end;
The problem is when I print I get a white border around the rectangles. There is border set or showing within the report.
Colour01 := frxReportPermit.FindObject('Shape2') as TfrxShapeView;
Colour02 := frxReportPermit.FindObject('Shape3') as TfrxShapeView;
Colour03 := frxReportPermit.FindObject('Shape4') as TfrxShapeView;
Colour04 := frxReportPermit.FindObject('Shape5') as TfrxShapeView;
if (radiogroup1.ItemIndex = 0 )then
begin
Colour01.Color := clNone;
Colour02.Color := clNone;
Colour03.Color := clNone;
Colour04.Color := clNone;
end;
if (radiogroup1.ItemIndex = 1 )then
begin
Colour01.Color := clRed;
Colour02.Color := clRed;
Colour03.Color := clRed;
Colour04.Color := clRed;
end;
if (radiogroup1.ItemIndex = 2 )then
begin
Colour01.Color := clBlue;
Colour02.Color := clBlue;
Colour03.Color := clBlue;
Colour04.Color := clBlue;
end;
The problem is when I print I get a white border around the rectangles. There is border set or showing within the report.