Class TAdComponent

Unit

AdGUI

Declaration

type TAdComponent = class(TAdPersistent)

Description

A replacement for TPersistent from classes.

Hierarchy

• TObject
• TAdPersistent
• TAdComponent

Overview

Methods

	procedure Draw;
	procedure Move(TimeGap:double);
	procedure AddComponent(AComponent:TAdComponent); virtual;
	procedure Clear;
	function Click(X,Y:integer) : boolean;
	function DblClick(X,Y:integer) : boolean;
	function MouseMove(Shift: TAdShiftState; X, Y: Integer) : boolean;
	function MouseDown(Button: TAdMouseButton; Shift: TAdShiftState; X, Y: Integer) : boolean;
	function MouseUp(Button: TAdMouseButton; Shift: TAdShiftState; X, Y: Integer) : boolean;
	function MouseWheel(Shift: TAdShiftState; WheelDelta: Integer; X, Y: Integer) : boolean;
	function KeyPress(Key: Char) : boolean;
	function KeyDown(Key: Word; Shift:TAdShiftState) : boolean;
	function KeyUp(Key: Word; Shift:TAdShiftState) : boolean;
	function ClientToScreen(p:TAdPoint):TAdPoint;
	function ScreenToClient(p:TAdPoint):TAdPoint;
	constructor Create(AParent:TAdComponent); virtual;
	destructor Destroy; override;
	procedure SaveToFile(AFile:string);
	procedure LoadFromFile(AFile:string);
	procedure SaveToStream(AStream:TStream);
	procedure LoadFromStream(AStream:TStream);
	procedure LoadFromXML(aroot:TAdSimpleXMLElem); virtual;
	function SaveToXML(aroot:TAdSimpleXMLElems):TAdSimpleXMLElem; virtual;
	procedure BringToFront;
	procedure SendToBack;
	function GetUniqueName(AName:string; AForceNumber:boolean=false):string;
	function NameExists(AName:string):boolean;
	function FindComponent(AName:string):TAdComponent;
	function OwnsComponent(AComponent:TAdComponent):boolean;
	procedure SetFocused;

Properties

	property Skin: TAdSkin read FSkin write SetSkin;
	property Parent: TAdComponent read FParent write FParent;
	property Components: TAdComponents read FComponents;
	property AdDraw: TAdDraw read FAdDraw write SetAdDraw;
	property DesignMode: boolean read FDesignMode write SetDesignMode;
	property BoundsRect: TAdRect read GetBoundsRect;
	property ClientRect: TAdRect read GetClientRect;
	property CurrentCursor: string read FCurrentCursor write SetCurrentCursor;
	property HintWnd: TAdHint read FHintWnd write SetHintWnd;
	property GridX: integer read FGridY write SetGridY;
	property GridY: integer read FGridX write SetGridX;
	property Grid: boolean read FGrid write SetGrid;
	property FontColor: TGUIColor read FFontColor write FFontColor;
	property Font: TAdFont read GetFont write SetFont;
	property FontName: string read FFontName write SetFontName;
	property Fonts: TAdFontList read FFonts write SetFonts;
	property FocusedComponent: TAdComponent read GetFocusedComponent;
	property SubComponent: boolean read FSubComponent write FSubComponent;
	property Name: string read FName write SetName;
	property Cursor: string read FCursor write FCursor;
	property X: integer read FX write FX;
	property Y: integer read FY write FY;
	property Width: integer read FWidth write SetWidth;
	property Height: integer read FHeight write SetHeight;
	property Alpha: byte read FAlpha write FAlpha;
	property Visible: boolean read FVisible write FVisible;
	property Enabled: boolean read FEnabled write FEnabled;
	property Hint: string read FHint write FHint;
	property ShowHint: boolean read FShowHint write FShowHint;
	property OnClick: TAdNotifyEvent read FOnClick write FOnClick;
	property OnDblClick: TAdNotifyEvent read FOnDblClick write FOnDblClick;
	property OnMouseMove: TAdMouseMoveEvent read FOnMouseMove write FOnMouseMove;
	property OnMouseUp: TAdMouseEvent read FOnMouseUp write FOnMouseUp;
	property OnMouseDown: TAdMouseEvent read FOnMouseDown write FOnMouseDown;
	property OnMouseEnter: TAdNotifyEvent read FOnMouseEnter write FOnMouseEnter;
	property OnMouseLeave: TAdNotifyEvent read FOnMouseLeave write FOnMouseLeave;
	property OnMouseWheel: TAdMouseWheelEvent read FOnMouseWheel write FOnMouseWheel;
	property OnKeyPress: TAdKeyPressEvent read FOnKeyPress write FOnKeyPress;
	property OnKeyUp: TAdKeyEvent read FOnKeyUp write FOnKeyUp;
	property OnKeyDown: TAdKeyEvent read FOnKeyDown write FOnKeyDown;

Description

Methods

	procedure Draw;

	procedure Move(TimeGap:double);

	procedure AddComponent(AComponent:TAdComponent); virtual;

	procedure Clear;

	function Click(X,Y:integer) : boolean;

	function DblClick(X,Y:integer) : boolean;

	function MouseMove(Shift: TAdShiftState; X, Y: Integer) : boolean;

	function MouseDown(Button: TAdMouseButton; Shift: TAdShiftState; X, Y: Integer) : boolean;

	function MouseUp(Button: TAdMouseButton; Shift: TAdShiftState; X, Y: Integer) : boolean;

	function MouseWheel(Shift: TAdShiftState; WheelDelta: Integer; X, Y: Integer) : boolean;

	function KeyPress(Key: Char) : boolean;

	function KeyDown(Key: Word; Shift:TAdShiftState) : boolean;

	function KeyUp(Key: Word; Shift:TAdShiftState) : boolean;

	function ClientToScreen(p:TAdPoint):TAdPoint;

	function ScreenToClient(p:TAdPoint):TAdPoint;

	constructor Create(AParent:TAdComponent); virtual;

	destructor Destroy; override;

	procedure SaveToFile(AFile:string);

	procedure LoadFromFile(AFile:string);

	procedure SaveToStream(AStream:TStream);

	procedure LoadFromStream(AStream:TStream);

	procedure LoadFromXML(aroot:TAdSimpleXMLElem); virtual;

	function SaveToXML(aroot:TAdSimpleXMLElems):TAdSimpleXMLElem; virtual;

	procedure BringToFront;

	procedure SendToBack;

	function GetUniqueName(AName:string; AForceNumber:boolean=false):string;

	function NameExists(AName:string):boolean;

	function FindComponent(AName:string):TAdComponent;

	function OwnsComponent(AComponent:TAdComponent):boolean;

	procedure SetFocused;

Properties

	property Skin: TAdSkin read FSkin write SetSkin;

	property Parent: TAdComponent read FParent write FParent;

	property Components: TAdComponents read FComponents;

	property AdDraw: TAdDraw read FAdDraw write SetAdDraw;

	property DesignMode: boolean read FDesignMode write SetDesignMode;

	property BoundsRect: TAdRect read GetBoundsRect;

	property ClientRect: TAdRect read GetClientRect;

	property CurrentCursor: string read FCurrentCursor write SetCurrentCursor;

	property HintWnd: TAdHint read FHintWnd write SetHintWnd;

	property GridX: integer read FGridY write SetGridY;

	property GridY: integer read FGridX write SetGridX;

	property Grid: boolean read FGrid write SetGrid;

	property FontColor: TGUIColor read FFontColor write FFontColor;

	property Font: TAdFont read GetFont write SetFont;

	property FontName: string read FFontName write SetFontName;

	property Fonts: TAdFontList read FFonts write SetFonts;

	property FocusedComponent: TAdComponent read GetFocusedComponent;

	property SubComponent: boolean read FSubComponent write FSubComponent;

	property Name: string read FName write SetName;

	property Cursor: string read FCursor write FCursor;

	property X: integer read FX write FX;

	property Y: integer read FY write FY;

	property Width: integer read FWidth write SetWidth;

	property Height: integer read FHeight write SetHeight;

	property Alpha: byte read FAlpha write FAlpha;

	property Visible: boolean read FVisible write FVisible;

	property Enabled: boolean read FEnabled write FEnabled;

	property Hint: string read FHint write FHint;

	property ShowHint: boolean read FShowHint write FShowHint;

	property OnClick: TAdNotifyEvent read FOnClick write FOnClick;

	property OnDblClick: TAdNotifyEvent read FOnDblClick write FOnDblClick;

	property OnMouseMove: TAdMouseMoveEvent read FOnMouseMove write FOnMouseMove;

	property OnMouseUp: TAdMouseEvent read FOnMouseUp write FOnMouseUp;

	property OnMouseDown: TAdMouseEvent read FOnMouseDown write FOnMouseDown;

	property OnMouseEnter: TAdNotifyEvent read FOnMouseEnter write FOnMouseEnter;

	property OnMouseLeave: TAdNotifyEvent read FOnMouseLeave write FOnMouseLeave;

	property OnMouseWheel: TAdMouseWheelEvent read FOnMouseWheel write FOnMouseWheel;

	property OnKeyPress: TAdKeyPressEvent read FOnKeyPress write FOnKeyPress;

	property OnKeyUp: TAdKeyEvent read FOnKeyUp write FOnKeyUp;

	property OnKeyDown: TAdKeyEvent read FOnKeyDown write FOnKeyDown;