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

[Michael Van Canneyt]

You must create an instance of TFPCustomDrawBrush and assign it to the
canvas.

Same with pen.

Michael.

On Thu, 4 Nov 2010, Felipe Monteiro de Carvalho wrote:

> 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
> _______________________________________________
> fpc-devel maillist  -  fpc-devel at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel
>