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