//---------------------------------------------------------------------------

#ifndef ArrowLineH
#define ArrowLineH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
//---------------------------------------------------------------------------
enum TArKind { arNone, arSharf, arThin, arFull };
enum TAlType { alVertical, alHorizontal, alSlush, alRslush };
class PACKAGE TArrowLine : public TGraphicControl
{
private:
    TPoint Arw[10];
    int     FGap;
    TArKind FLKind;
    TArKind FRKind;
    float   FSharp;
    int     FSize;
    int     FTick;
    TAlType FLine;

    void __fastcall SetGap(int Value);
    void __fastcall SetLKind(TArKind Value);
    void __fastcall SetRKind(TArKind Value);
    void __fastcall SetSharp(float Value);
    void __fastcall SetSize(int Value);
    void __fastcall SetTick(int Value);
    void __fastcall SetLType(TAlType Value);
protected:
    int pos1, pos2;
    Extended sn, cn;

    void __fastcall Changed(void);
    virtual void __fastcall Paint(void);
public:
    __fastcall TArrowLine(TComponent* Owner);
__published:
    __property Align;
    __property Color;
    __property int Gap = {read=FGap, write=SetGap};
    __property TAlType LineType = {read=FLine, write=SetLType, default=alHorizontal};
    __property TArKind LeftKind = {read=FLKind, write=SetLKind};
    __property TArKind RightKind = {read=FRKind, write=SetRKind};
    __property float Sharpness = {read = FSharp, write=SetSharp};
    __property int Size = {read=FSize, write=SetSize};
    __property int Tickness = {read=FTick, write=SetTick};
};
//---------------------------------------------------------------------------
#endif