On Fri, Oct 21, 2011 at 10:43 AM, Felipe Monteiro de Carvalho <[email protected]> wrote: > function TControl.GetColorResolvingParent: TColor; > begin > if Color = clDefault then > Result := GetDefaultColor(dctBrush) > else > Result := Color; > end; > > function TControl.GetRGBColor: TColor; > begin > Result := ColorToRGB(GetColorResolvingParent); > end;
These now exist in rev 33093 -- Felipe Monteiro de Carvalho -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
