Inherits from
TImage
@/// TMoon=class(TImage)
constructor Create(AOwner:TComponent);
- max_x,max_y,offset_y,offset_x,radius } (*@/// constructor TMoon.
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.
property Align : TAlign
property Date : TDateTime
property Icon : TIcon
property MoonSize : TMoonSize
property Picture :
FAngle : extended;
FBMP : TBitmap;
FDate : TDateTime;
FDateChanged : boolean;
FIcon : TIcon;
FMaxHeight : integer;
FMaxWidth : integer;
FMoonSize : TMoonSize;
F_Align : TAlign;
constructor Create(AOwner:TComponent);
max_x,max_y,offset_y,offset_x,radius } (*@/// constructor TMoon.Create(AOwner: TComponent);
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);
property Align : TAlign
property Date : TDateTime
property Icon : TIcon
property MoonSize : TMoonSize
property Picture :
FAngle : extended;
FBMP : TBitmap;
FDate : TDateTime;
FDateChanged : boolean;
FIcon : TIcon;
FMaxHeight : integer;
FMaxWidth : integer;
FMoonSize : TMoonSize;
F_Align : TAlign;