Brush Pattern...

[User (Legacy)]

I'd like to draw Series Legend on Other Place.

But I can't get Brush Info only When Schema is 'BW Pattern' or 'Color

Pattern'.

How can I get All of Brush Information ??

procedure ChartFX1PrePaintMarker(Sender: TObject;

  nSerie: Smallint; nPoint: Integer; var nRes: Smallint);

var

  hDeviceC, hOldBrush : HDC;

  nHBrush :HBRUSH;

  nLogBrush: TLOGBRUSH;

begin

  inherited;

  hDeviceC := ChartFX1.PaintInfo(CPI_GETDC);

  hOldBrush := SelectObject(hDeviceC, GetStockObject(NULL_BRUSH));

  GetObject(hOldBrush, SizeOf(nLogBrush), @nLogBrush );

  if HBRUSHArray[nSerie] <> 0 then DeleteObject(HBRUSHArray[nSerie]);

  HBRUSHArray[nSerie] := CreateBrushIndirect( nLogBrush );

  SelectObject(hDeviceC, hOldBrush);

end;

[Software FX]

Sorry but this type of low-level information is not exposed.

-- 

FP

Software FX, Inc.