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

Felipe Monteiro de Carvalho felipemonteiro.carvalho at gmail.com
Thu Nov 4 16:38:03 CET 2010


Hello,

It is just me or is a brush and pen implementation for pixel canvas
missing? The standard brush does nothing:

function TFPPixelCanvas.DoCreateDefaultBrush : TFPCustomBrush;
begin
  result := TFPEmptyBrush.Create;
  with result do
    begin
    Style := bsClear;
    end;
end;

And I couldn't find any class descending from TFPCustomDrawBrush which
implements a pixel brush.

The final issue that I am trying to solve is that this paints nothing:

procedure TCDGroupBoxDrawerWinCE.DrawToIntfImage(ADest: TFPImageCanvas;
  CDGroupBox: TCDGroupBox);
begin
  ADest.Brush.FPColor := colRed;
  ADest.Rectangle(0, 0, CDGroupBox.Width, CDGroupBox.height);
end;

thanks,
-- 
Felipe Monteiro de Carvalho



More information about the fpc-devel mailing list