| Class TDogsEar (unit DogsEar) |
TGraphicControl
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
function CalcSizedPoly(Source : TDogsEarPoly) : TDogsEarPoly;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure SetAlign(Align : TDogsEarAlign);
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;