Steema Central

Posted: **Tue Dec 20, 2011 7:47 am**

Hi,

I'm using the TPOINTSERIES to visualise when an error has occured during production.

In the attached file you'll see some red cirkels indicating an error.

How can I make the red pen non-transparent but the white interior completely transparent ??

Posted: **Tue Dec 20, 2011 3:55 pm**

Hi Friis,

I think you are looking for setting Pointer.Brush.Style to bsClear. Here it is an example:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.View3D:=false;

  Series1.FillSampleValues(10);
  with Series1.Pointer do
  begin
    Style:=psCircle;
    HorizSize:=8;
    VertSize:=8;
    Brush.Style:=bsClear;
    Pen.Color:=clPurple;
    Pen.Width:=2;
  end;
end;

Steema Central

Tpointseries and transparency

Tpointseries and transparency

Re: Tpointseries and transparency