2
*****************************************************************************
3
* CustomDrawnWSArrow.pp *
7
*****************************************************************************
9
*****************************************************************************
11
* This file is part of the Lazarus Component Library (LCL) *
13
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
14
* for details about the copyright. *
16
* This program is distributed in the hope that it will be useful, *
17
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
18
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
20
*****************************************************************************
22
unit CustomDrawnWSArrow;
33
SysUtils, Controls, LCLType, LCLProc, Graphics, Arrow,
35
WSArrow, WSLCLClasses;
41
// The default implementation is good enough, but we need to register this
42
// class anyway because otherwise we get crashes
43
TCDWSArrow = class(TWSArrow)
45
{class function CreateHandle(const AWinControl: TWinControl;
46
const AParams: TCreateParams): TLCLIntfHandle; override;
47
class procedure SetType(const AArrow: TArrow; const AArrowType: TArrowType;
48
const AShadowType: TShadowType); override;
49
class procedure DrawArrow(const AArrow: TArrow; const ACanvas: TCanvas);