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 - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
