Hello, Aha, now it works! =D
The default style is bsClear, just changing to bsSolid works. (although the default should probably be bsSolid) procedure TCDGroupBoxDrawerWinCE.DrawToIntfImage(ADest: TFPImageCanvas; CDGroupBox: TCDGroupBox); begin ADest.Brush.FPColor := colRed; ADest.Brush.Style:=bsSolid; ADest.Rectangle(0, 0, CDGroupBox.Width, CDGroupBox.height); end; No idea how it works exactly, probably it only uses the brush functions if it isn't the trivial case: bsSolid I've been having issues with the debugger, so I couldn't properly step into ... Very good that 2.4.2 rc2 is being built by the way =) The broken generics in rc1 made it problematic =( thanks, -- Felipe Monteiro de Carvalho _______________________________________________ fpc-devel maillist - [email protected] http://lists.freepascal.org/mailman/listinfo/fpc-devel
