Class TMoon (unit moon)

Inherits from

TImage

@/// TMoon=class(TImage)

Constructors


constructor Create(AOwner:TComponent);

max_x,max_y,offset_y,offset_x,radius } (*@/// constructor TMoon.


Functions

destructor Destroy;

@\\\*) (*@/// destructor TMoon.

procedure Draw_Moon(canvas:TCanvas; offset_x,offset_y,radius:integer);

@\\\0000000501*) (*@/// procedure TMoon.

function GetIcon:TIcon;

@\\\0000000501*) (*@/// function TMoon.

procedure SetBitmap;

@\\\0000000801*) (*@/// procedure TMoon.

procedure WMSize (var Message: TWMSize);

@\\\0000000501*) (*@/// procedure TMoon.

procedure DoNothing(value:TPicture);

@\\\0000000503*) (*@/// procedure TMoon.

procedure SetDate(value:TDateTime);

@\\\0000000D01*) (*@/// procedure TMoon.

procedure Set_Size(Value:TMoonSize);

@\\\0000000501*) (*@/// procedure TMoon.

Properties

property Align : TAlign


property Date : TDateTime


property Icon : TIcon


property MoonSize : TMoonSize


property Picture :


Events

Variables

FAngle : extended;


FBMP : TBitmap;


FDate : TDateTime;


FDateChanged : boolean;


FIcon : TIcon;


FMaxHeight : integer;


FMaxWidth : integer;


FMoonSize : TMoonSize;


F_Align : TAlign;



Constructors


constructor Create(AOwner:TComponent);

max_x,max_y,offset_y,offset_x,radius } (*@/// constructor TMoon.Create(AOwner: TComponent);


Functions


destructor Destroy;

@\\\*) (*@/// destructor TMoon.Destroy;


procedure Draw_Moon(canvas:TCanvas; offset_x,offset_y,radius:integer);

@\\\0000000501*) (*@/// procedure TMoon.Draw_Moon(canvas:TCanvas; offset_x,offset_y,radius:integer);


function GetIcon:TIcon;

@\\\0000000501*) (*@/// function TMoon.GetIcon:TIcon;


procedure SetBitmap;

@\\\0000000801*) (*@/// procedure TMoon.SetBitmap;


procedure WMSize (var Message: TWMSize);

@\\\0000000501*) (*@/// procedure TMoon.WMSize(var Message: TWMSize);


procedure DoNothing(value:TPicture);

@\\\0000000503*) (*@/// procedure TMoon.DoNothing(value:TPicture);


procedure SetDate(value:TDateTime);

@\\\0000000D01*) (*@/// procedure TMoon.SetDate(Value: TDateTime);


procedure Set_Size(Value:TMoonSize);

@\\\0000000501*) (*@/// procedure TMoon.Set_Size(Value:TMoonSize);


Properties


property Align : TAlign


property Date : TDateTime


property Icon : TIcon


property MoonSize : TMoonSize


property Picture :


Events


Variables


FAngle : extended;


FBMP : TBitmap;


FDate : TDateTime;


FDateChanged : boolean;


FIcon : TIcon;


FMaxHeight : integer;


FMaxWidth : integer;


FMoonSize : TMoonSize;


F_Align : TAlign;