/packages/fcl-image/src/fpbrush.inc
Pascal | 44 lines | 22 code | 7 blank | 15 comment | 0 complexity | 673dca2282615d747f0b6cd6b9ffa364 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1{ 2 This file is part of the Free Pascal run time library. 3 Copyright (c) 2003 by the Free Pascal development team 4 5 TFPCustomBrush implementation. 6 7 See the file COPYING.FPC, included in this distribution, 8 for details about the copyright. 9 10 This program is distributed in the hope that it will be useful, 11 but WITHOUT ANY WARRANTY; without even the implied warranty of 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 13 14 **********************************************************************} 15{ TFPCustomBrush } 16 17procedure TFPCustomBrush.SetStyle (AValue : TFPBrushStyle); 18begin 19 FStyle := AValue 20end; 21 22procedure TFPCustomBrush.SetImage (AValue : TFPCustomImage); 23begin 24 FImage := AValue; 25end; 26 27procedure TFPCustomBrush.DoCopyProps (From:TFPCanvasHelper); 28begin 29 with From as TFPCustomBrush do 30 begin 31 self.Style := Style; 32 self.Image := Image; 33 end; 34 inherited DoCopyProps(From); 35end; 36 37function TFPCustomBrush.CopyBrush : TFPCustomBrush; 38begin 39 result := TFPCustomBrush(self.ClassType.Create); 40 result.DoCopyProps (self); 41end; 42 43 44