[fpc-devel] fcl-image lacking brush and pen?

Felipe Monteiro de Carvalho felipemonteiro.carvalho at gmail.com
Thu Nov 4 18:12:34 CET 2010

I also found where it draws. It seams that TFPPixelCanvas doesn't use
the brush routines at all:

procedure TFPPixelCanvas.DoRectangleFill (const Bounds:TRect);
var b : TRect;
  b := Bounds;
  SortRect (b);
  if clipping then
    CheckRectClipping (ClipRect, B);
  with b do
    case Brush.style of
      bsSolid : FillRectangleColor (self, left,top, right,bottom);
      bsPattern : FillRectanglePattern (self, left,top, right,bottom,
      bsImage :
        if assigned (brush.image) then
          if FRelativeBI then
            FillRectangleImageRel (self, left,top, right,bottom, brush.image)
            FillRectangleImage (self, left,top, right,bottom, brush.image)
          raise PixelCanvasException.Create (sErrNoImage);
      bsBDiagonal : FillRectangleHashDiagonal (self, b, FHashWidth);
      bsFDiagonal : FillRectangleHashBackDiagonal (self, b, FHashWidth);
      bsCross :

Felipe Monteiro de Carvalho

More information about the fpc-devel mailing list