Class TDogsEar (unit DogsEar) |
Inherits from
TGraphicControl
constructor Create(AOwner : TComponent);
- ----------------------------------------------------------------------------- Erstellen der Class und setzen der Default-Werte -----------------------------------------------------------------------------
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);
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 :
event OnDogsEarClick : TDogsEarNotify
FAlignDogsEar : TDogsEarAlign;
FClickEvent : TDogsEarNotify;
FColorBackground : TColor;
FColorDogsEar : TColor;
FColorFrame : TColor;
FFrameStyle : TDogsEarFrameStyle;
FMultiPage : Boolean;
FNumPages : TDogsEarNumPages;
constructor Create(AOwner : TComponent);
----------------------------------------------------------------------------- Erstellen der Class und setzen der Default-Werte -----------------------------------------------------------------------------
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);
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 :
event OnDogsEarClick : TDogsEarNotify
FAlignDogsEar : TDogsEarAlign;
FClickEvent : TDogsEarNotify;
FColorBackground : TColor;
FColorDogsEar : TColor;
FColorFrame : TColor;
FFrameStyle : TDogsEarFrameStyle;
FMultiPage : Boolean;
FNumPages : TDogsEarNumPages;