PageRenderTime 49ms CodeModel.GetById 9ms app.highlight 7ms RepoModel.GetById 0ms app.codeStats 0ms

/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
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