Class TDogsEar (unit DogsEar)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner : TComponent);

----------------------------------------------------------------------------- Erstellen der Class und setzen der Default-Werte -----------------------------------------------------------------------------


Functions

function CalcSizedPoly(Source : TDogsEarPoly) : TDogsEarPoly;

Im MultiPage-Modus auch noch das kleine zeichnen.

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

----------------------------------------------------------------------------- Mausabfrage je nach Klickposition -----------------------------------------------------------------------------

procedure Paint;

----------------------------------------------------------------------------- Zeichnen des Eselsohres -----------------------------------------------------------------------------

procedure SetAlign(Align : TDogsEarAlign);

----------------------------------------------------------------------------- Setzen von Properties -----------------------------------------------------------------------------

procedure SetColorBackground(Color : TColor);


procedure SetColorDogsEar(Color : TColor);


procedure SetColorFrame(Color : TColor);


procedure SetFrameStyle(Style : TDogsEarFrameStyle);


procedure SetMultiPage(MP : Boolean);


procedure SetNumPages(Pages : TDogsEarNumPages);


Properties

property AlignDogsEar : TDogsEarAlign


property ColorBackground : TColor


property ColorDogsEar : TColor


property ColorFrame : TColor


property Enabled :


property FrameStyle : TDogsEarFrameStyle


property MultiPage : Boolean


property NumPages : TDogsEarNumPages


property Visible :


Events

event OnDogsEarClick : TDogsEarNotify


Variables

FAlignDogsEar : TDogsEarAlign;


FClickEvent : TDogsEarNotify;


FColorBackground : TColor;


FColorDogsEar : TColor;


FColorFrame : TColor;


FFrameStyle : TDogsEarFrameStyle;


FMultiPage : Boolean;


FNumPages : TDogsEarNumPages;



Constructors


constructor Create(AOwner : TComponent);

----------------------------------------------------------------------------- Erstellen der Class und setzen der Default-Werte -----------------------------------------------------------------------------


Functions


function CalcSizedPoly(Source : TDogsEarPoly) : TDogsEarPoly;

Im MultiPage-Modus auch noch das kleine zeichnen. Ablauf siehe oben


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

----------------------------------------------------------------------------- Mausabfrage je nach Klickposition -----------------------------------------------------------------------------


procedure Paint;

----------------------------------------------------------------------------- Zeichnen des Eselsohres -----------------------------------------------------------------------------


procedure SetAlign(Align : TDogsEarAlign);

----------------------------------------------------------------------------- Setzen von Properties -----------------------------------------------------------------------------


procedure SetColorBackground(Color : TColor);


procedure SetColorDogsEar(Color : TColor);


procedure SetColorFrame(Color : TColor);


procedure SetFrameStyle(Style : TDogsEarFrameStyle);


procedure SetMultiPage(MP : Boolean);


procedure SetNumPages(Pages : TDogsEarNumPages);


Properties


property AlignDogsEar : TDogsEarAlign


property ColorBackground : TColor


property ColorDogsEar : TColor


property ColorFrame : TColor


property Enabled :


property FrameStyle : TDogsEarFrameStyle


property MultiPage : Boolean


property NumPages : TDogsEarNumPages


property Visible :


Events


event OnDogsEarClick : TDogsEarNotify


Variables


FAlignDogsEar : TDogsEarAlign;


FClickEvent : TDogsEarNotify;


FColorBackground : TColor;


FColorDogsEar : TColor;


FColorFrame : TColor;


FFrameStyle : TDogsEarFrameStyle;


FMultiPage : Boolean;


FNumPages : TDogsEarNumPages;