1 {
2  /***************************************************************************
3                                   rubberband.pas
4                                   ----------
5                 Component Library TCustomRubberBand, TRubberBand Controls
6                    Initial Revision  : Wed Aug 5 09:27:00 GMT+07 2007
7 
8 
9  ***************************************************************************/
10 
11  *****************************************************************************
12   This file is part of the Lazarus Component Library (LCL)
13 
14   See the file COPYING.modifiedLGPL.txt, included in this distribution,
15   for details about the license.
16  *****************************************************************************
17 }
18 
19 unit RubberBand;
20 
21 {$mode objfpc}{$H+}
22 
23 interface
24 
25 uses
26   Classes, Controls;
27 
28 type
29   TRubberBandShape =
30   (
31     rbsLine,
32     rbsRectangle
33   );
34 
35   { TCustomRubberBand }
36 
37   TCustomRubberBand = class(TWinControl)
38   private
39     FShape: TRubberBandShape;
GetShapenull40     function GetShape: TRubberBandShape;
41     procedure SetShape(const AValue: TRubberBandShape);
42   protected
43     class procedure WSRegisterClass; override;
44   public
45     constructor Create(AOwner: TComponent); override;
46     property Shape: TRubberBandShape read GetShape write SetShape default rbsLine;
47   end;
48 
49   TRubberBand = class(TCustomRubberBand)
50   end;
51 
52 implementation
53 
54 uses
55   WSDesigner;
56 
57 {$I rubberband.inc}
58 
59 end.
60 
61