[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