| Class TMoon (unit moon) |
TImage
@/// TMoon=class(TImage)
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
destructor Destroy;
procedure Draw_Moon(canvas:TCanvas; offset_x,offset_y,radius:integer);
function GetIcon:TIcon;
procedure SetBitmap;
procedure WMSize (var Message: TWMSize);
procedure DoNothing(value:TPicture);
procedure SetDate(value:TDateTime);
procedure 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;| 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;