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

 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