/packages/fcl-image/src/fpbrush.inc

https://github.com/slibre/freepascal · Pascal · 44 lines · 22 code · 7 blank · 15 comment · 0 complexity · 673dca2282615d747f0b6cd6b9ffa364 MD5 · raw file

  1. {
  2. This file is part of the Free Pascal run time library.
  3. Copyright (c) 2003 by the Free Pascal development team
  4. TFPCustomBrush implementation.
  5. See the file COPYING.FPC, included in this distribution,
  6. for details about the copyright.
  7. This program is distributed in the hope that it will be useful,
  8. but WITHOUT ANY WARRANTY; without even the implied warranty of
  9. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  10. **********************************************************************}
  11. { TFPCustomBrush }
  12. procedure TFPCustomBrush.SetStyle (AValue : TFPBrushStyle);
  13. begin
  14. FStyle := AValue
  15. end;
  16. procedure TFPCustomBrush.SetImage (AValue : TFPCustomImage);
  17. begin
  18. FImage := AValue;
  19. end;
  20. procedure TFPCustomBrush.DoCopyProps (From:TFPCanvasHelper);
  21. begin
  22. with From as TFPCustomBrush do
  23. begin
  24. self.Style := Style;
  25. self.Image := Image;
  26. end;
  27. inherited DoCopyProps(From);
  28. end;
  29. function TFPCustomBrush.CopyBrush : TFPCustomBrush;
  30. begin
  31. result := TFPCustomBrush(self.ClassType.Create);
  32. result.DoCopyProps (self);
  33. end;