2
*****************************************************************************
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
*****************************************************************************
33
SysUtils, Controls, LCLType, LCLProc, Graphics, Arrow,
35
WSArrow, WSLCLClasses;
41
TCocoaWSArrow = class(TWSArrow)
43
{class function CreateHandle(const AWinControl: TWinControl;
44
const AParams: TCreateParams): TLCLIntfHandle; override;
45
class procedure SetType(const AArrow: TArrow; const AArrowType: TArrowType;
46
const AShadowType: TShadowType); override;
47
class procedure DrawArrow(const AArrow: TArrow; const ACanvas: TCanvas);