[fpc-devel] fcl-image lacking brush and pen?
Michael Van Canneyt
michael at freepascal.org
Thu Nov 4 17:16:49 CET 2010
You must create an instance of TFPCustomDrawBrush and assign it to the
Same with pen.
On Thu, 4 Nov 2010, Felipe Monteiro de Carvalho wrote:
> It is just me or is a brush and pen implementation for pixel canvas
> missing? The standard brush does nothing:
> function TFPPixelCanvas.DoCreateDefaultBrush : TFPCustomBrush;
> result := TFPEmptyBrush.Create;
> with result do
> Style := bsClear;
> 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);
> ADest.Brush.FPColor := colRed;
> ADest.Rectangle(0, 0, CDGroupBox.Width, CDGroupBox.height);
> Felipe Monteiro de Carvalho
> fpc-devel maillist - fpc-devel at lists.freepascal.org
More information about the fpc-devel