FireMonkey 的控件都是自己绘制的(而不是基于系统组件), 我想它们应该是基于一些基本图形; 就从基本图形开始吧.

FMX.Objects 单元给出的类:

TShape //基本图形的基类

TLine

TRectangle

TRoundRect

TCalloutRectangle

TEllipse

TCircle

TPie

TArc

TPath

TText

TImage

TPaintBox

TSelection

TSelectionPoint

添加一个 TRectangle, 先纵观一下它的可用功能:

{ TRectangle }

  public

    constructor Create(AOwner: TComponent); override;

  published

    property Fill;

    property Stroke;

    property StrokeCap;

    property StrokeDash;

    property StrokeJoin;

    property StrokeThickness;

    property XRadius: Single read FXRadius write SetXRadius;

    property YRadius: Single read FYRadius write SetYRadius;

    property Corners: TCorners read FCorners write SetCorners stored IsCornersStored;

    property CornerType: TCornerType read FCornerType write SetCornerType default TCornerType.ctRound;

    property Sides: TSides read FSides write SetSides stored IsSidesStored;

{ TRectangle 的父类 TShape }

  protected

    procedure FillChanged(Sender: TObject); virtual;

    procedure StrokeChanged(Sender: TObject); virtual;

    function GetShapeRect: TRectF;

    procedure Painting; override;

    procedure AfterPaint; override;

  public

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

    property Fill: TBrush read FFill write SetFill;

    property Stroke: TBrush read FStroke write SetStroke;

    property StrokeThickness: Single read FStrokeThickness write SetStrokeThickness stored IsStrokeThicknessStored;

    property StrokeCap: TStrokeCap read FStrokeCap write SetStrokeCap default TStrokeCap.scFlat;

    property StrokeDash: TStrokeDash read FStrokeDash write SetStrokeDash default TStrokeDash.sdSolid;

    property StrokeJoin: TStrokeJoin read FStrokeJoin write SetStrokeJoin default TStrokeJoin.sjMiter;

    property ShapeRect: TRectF read GetShapeRect;

{ TShape 的父类 TControl(来自 FMX.Types) }

  public

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

    procedure AddObject(AObject: TFmxObject); override;

    procedure RemoveObject(AObject: TFmxObject); override;

    procedure SetNewScene(AScene: IScene); virtual;

    procedure SetBounds(X, Y, AWidth, AHeight: Single); virtual;

    { matrix }

    function AbsoluteToLocal(P: TPointF): TPointF; virtual;

    function LocalToAbsolute(P: TPointF): TPointF; virtual;

    function AbsoluteToLocalVector(P: TVector): TVector; virtual;

    function LocalToAbsoluteVector(P: TVector): TVector; virtual;

    function PointInObject(X, Y: Single): Boolean; virtual;

    { optimizations }

    procedure RecalcUpdateRect; virtual;

    procedure RecalcNeedAlign; virtual;

    procedure RecalcOpacity; virtual;

    procedure RecalcAbsolute; virtual;

    procedure RecalcEnabled; virtual;

    procedure RecalcHasEffect; virtual;

    { drag and drop }

    function MakeScreenshot: TBitmap;

    { caret }

    procedure ShowCaretProc;

    procedure SetCaretPos(const APoint: TPointF);

    procedure SetCaretSize(const ASize: TPointF);

    procedure SetCaretColor(const AColor: TAlphaColor);

    procedure HideCaret;

    { align }

    procedure BeginUpdate; virtual;

    procedure EndUpdate; virtual;

    procedure Realign; virtual;

    { paining }

    procedure ApplyEffect;

    procedure Painting; virtual;

    procedure DoPaint; virtual;

    procedure AfterPaint; virtual;

    { effects }

    procedure UpdateEffects;

    { }

    procedure SetFocus;

    procedure PaintTo(const ACanvas: TCanvas; const ARect: TRectF; const AParent: TFmxObject = nil);

    procedure Repaint;

    procedure InvalidateRect(ARect: TRectF);

    procedure Lock;

    property AbsoluteMatrix: TMatrix read GetAbsoluteMatrix;

    property AbsoluteOpacity: Single read GetAbsoluteOpacity;

    property AbsoluteWidth: Single read GetAbsoluteWidth;

    property AbsoluteHeight: Single read GetAbsoluteHeight;

    property AbsoluteScale: TPointF read GetAbsoluteScale;

    property AbsoluteEnabled: Boolean read GetAbsoluteEnabled;

    property HasEffect: Boolean read GetAbsoluteHasEffect;

    property HasDisablePaintEffect: Boolean read GetAbsoluteHasDisablePaintEffect;

    property HasAfterPaintEffect: Boolean read GetAbsoluteHasAfterPaintEffect;

    property ChildrenRect: TRectF read GetChildrenRect;

    property InvertAbsoluteMatrix: TMatrix read GetInvertAbsoluteMatrix;

    property InPaintTo: Boolean read FInPaintTo;

    property LocalRect: TRectF read GetLocalRect;

    property AbsoluteRect: TRectF read GetAbsoluteRect;

    property UpdateRect: TRectF read GetUpdateRect;

    property BoundsRect: TRectF read GetBoundsRect write SetBoundsRect;

    property ParentedRect: TRectF read GetParentedRect;

    property ParentedVisible: Boolean read GetParentedVisible;

    property ClipRect: TRectF read GetClipRect;

    property Canvas: TCanvas read GetCanvas;

    property Scene: IScene read FScene;

    property AutoCapture: Boolean read FAutoCapture write FAutoCapture default False;

    property CanFocus: Boolean read FCanFocus write FCanFocus default False;

    property DisableFocusEffect: Boolean read FDisableFocusEffect write FDisableFocusEffect default False;

    property DisableDefaultAlign: Boolean read FDisableDefaultAlign write FDisableDefaultAlign;

    property TabOrder: TTabOrder read GetTabOrder write SetTabOrder default -;

  published

    { triggers }

    property IsMouseOver: Boolean read FIsMouseOver;

    property IsDragOver: Boolean read FIsDragOver;

    property IsFocused: Boolean read FIsFocused;

    property IsVisible: Boolean read FVisible;

    { props }

    property Align: TAlignLayout read FAlign write SetAlign default TAlignLayout.alNone;

    property Cursor: TCursor read GetCursor write SetCursor default crDefault;

    property DragMode: TDragMode read GetDragMode write SetDragMode default TDragMode.dmManual;

    property EnableDragHighlight: Boolean read FEnableDragHighlight write FEnableDragHighlight default True;

    property Enabled: Boolean read FEnabled write SetEnabled default True;

    property Position: TPosition read FPosition write SetPosition;

    property RotationAngle: Single read FRotationAngle write SetRotationAngle;

    property RotationCenter: TPosition read FRotationCenter write FRotationCenter;

    property Locked: Boolean read FLocked write SetLocked default False;

    property Width: Single read FWidth write SetWidth;

    property Height: Single read FHeight write SetHeight;

    property Margins: TBounds read FMargins write FMargins;

    property Padding: TBounds read FPadding write FPadding;

    property Opacity: Single read FOpacity write SetOpacity stored IsOpacityStored;

    property ClipChildren: Boolean read FClipChildren write SetClipChildren default False;

    property ClipParent: Boolean read FClipParent write FClipParent default False;

    property HitTest: Boolean read FHitTest write SetHitTest default True;

    property CanClip: Boolean read FCanClip write FCanClip default True;

    property PopupMenu: TCustomPopupMenu read FPopupMenu write SetPopupMenu;

    property Scale: TPosition read FScale write FScale;

    property Visible: Boolean read FVisible write SetVisible default True;

    property DesignVisible: Boolean read FDesignVisible write SetDesignVisible default True;

    property OnDragEnter: TDragEnterEvent read FOnDragEnter write FOnDragEnter;

    property OnDragLeave: TNotifyEvent read FOnDragLeave write FOnDragLeave;

    property OnDragOver: TDragOverEvent read FOnDragOver write FOnDragOver;

    property OnDragDrop: TDragDropEvent read FOnDragDrop write FOnDragDrop;

    property OnDragEnd: TNotifyEvent read FOnDragEnd write FOnDragEnd;

    property OnKeyDown: TKeyEvent read FOnKeyDown write FOnKeyDown;

    property OnKeyUp: TKeyEvent read FOnKeyUp write FOnKeyUp;

    property OnClick: TNotifyEvent read FOnClick write FOnClick;

    property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;

    property OnCanFocus: TCanFocusEvent read FOnCanFocus write FOnCanFocus;

    property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;

    property OnExit: TNotifyEvent read FOnExit write FOnExit;

    property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown;

    property OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;

    property OnMouseUp: TMouseEvent read FOnMouseUp write FOnMouseUp;

    property OnMouseWheel: TMouseWheelEvent read FOnMouseWheel write FOnMouseWheel;

    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;

    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;

    property OnPainting: TOnPaintEvent read FOnPainting write FOnPainting;

    property OnPaint: TOnPaintEvent read FOnPaint write FOnPaint;

    property OnResize: TNotifyEvent read FOnResize write FOnResize;

    property OnApplyStyleLookup: TNotifyEvent read FOnApplyStyleLookup write FOnApplyStyleLookup;

{ TControl 的父类 TFmxObject (来自 FMX.Types) }

  public

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

    procedure Release(Delay: Single = 0.1);

    { check for support interface }

    function IsIControl: Boolean;

    function AsIControl: IControl;

    procedure SetRoot(ARoot: IRoot);

    { design }

    procedure SetDesign(Value: Boolean; SetChildren: Boolean = True);

    function ItemClass: string; virtual;

    { clone }

    function Clone(const AOwner: TComponent): TFmxObject;

    procedure CloneChildFromStream(AStream: TStream);

    { childs }

    procedure AddObject(AObject: TFmxObject); virtual;

    procedure InsertObject(Index: Integer; AObject: TFmxObject); virtual;

    procedure RemoveObject(AObject: TFmxObject); overload; virtual;

    procedure RemoveObject(Index: Integer); overload; virtual;

    procedure Exchange(AObject1, AObject2: TFmxObject); virtual;

    procedure DeleteChildren; virtual;

    procedure BringToFront;

    procedure SendToBack;

    procedure AddObjectsToList(const AList: TList);

    procedure AddControlsToList(const AList: TList);

    procedure Sort(Compare: TFmxObjectSortCompare); virtual;

    { notify }

    procedure AddFreeNotify(const AObject: IFreeNotification);

    procedure RemoveFreeNotify(const AObject: IFreeNotification);

    { tab }

    procedure GetTabOrderList(const List: TList; AChildren: Boolean);

    { i/o }

    procedure LoadFromStream(const AStream: TStream);

    procedure SaveToStream(const Stream: TStream);

    procedure LoadFromBinStream(const AStream: TStream);

    procedure SaveToBinStream(const AStream: TStream);

    { resource }

    function FindStyleResource(const AStyleLookup: string): TFmxObject; virtual;

    procedure UpdateStyle; virtual;

    { animations }

    procedure StartAnimation(const AName: string); virtual;

    procedure StopAnimation(const AName: string); virtual;

    procedure StartTriggerAnimation(AInstance: TFmxObject; const ATrigger: string); virtual;

    procedure StartTriggerAnimationWait(AInstance: TFmxObject; const ATrigger: string); virtual;

    procedure StopTriggerAnimation(AInstance: TFmxObject); virtual;

    procedure ApplyTriggerEffect(AInstance: TFmxObject; const ATrigger: string); virtual;

    { animation property }

    procedure AnimateFloat(const APropertyName: string; const NewValue: Single; Duration: ...);

    procedure AnimateColor(const APropertyName: string; NewValue: TAlphaColor; Duration: ...);

    procedure AnimateFloatDelay(const APropertyName: string; const NewValue: Single; Duration: ...);

    procedure AnimateFloatWait(const APropertyName: string; const NewValue: Single; Duration: ...);

    procedure StopPropertyAnimation(const APropertyName: string);

    { }

    property Root: IRoot read FRoot;

    property Stored: Boolean read FStored write SetStored;

    { }

    property TagObject: TObject read FTagObject write FTagObject;

    property TagFloat: Single read FTagFloat write FTagFloat;

    property TagString: string read FTagString write FTagString;

    { children }

    property ChildrenCount: Integer read GetChildrenCount;

    property Children[Index: Integer]: TFmxObject read GetChild;

    { binding }

    function FindBinding(const ABinding: string): TFmxObject;

    property Data: Variant read GetData write SetData;

    property Binding[const Index: string]: Variant read GetBinding write SetBinding;

    property Parent: TFmxObject read FParent write SetParent;

    property Index: Integer read GetIndex write SetIndex;

  published

    property BindingName: string read FBindingName write SetBindingName;

    property StyleName: string read FStyleName write SetStyleName;

{ TFmxObject 的父类 TComponent (来自 System.Classes), 到这里不新鲜了 }

  public

    constructor Create(AOwner: TComponent); virtual;

    destructor Destroy; override;

    procedure BeforeDestruction; override;

    procedure DestroyComponents;

    procedure Destroying;

    function ExecuteAction(Action: TBasicAction): Boolean; dynamic;

    function FindComponent(const AName: string): TComponent;

    procedure FreeNotification(AComponent: TComponent);

    procedure RemoveFreeNotification(AComponent: TComponent);

    procedure FreeOnRelease;

    function GetEnumerator: TComponentEnumerator;

    function GetParentComponent: TComponent; dynamic;

    function GetNamePath: string; override;

    function HasParent: Boolean; dynamic;

    procedure InsertComponent(AComponent: TComponent);

    procedure RemoveComponent(AComponent: TComponent);

    procedure SetSubComponent(IsSubComponent: Boolean);

    function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; override;

    function UpdateAction(Action: TBasicAction): Boolean; virtual;

    function IsImplementorOf(const I: IInterface): Boolean;

    function ReferenceInterface(const I: IInterface; Operation: TOperation): Boolean;

    property ComObject: IUnknown read GetComObject;

    property Components[Index: Integer]: TComponent read GetComponent;

    property ComponentCount: Integer read GetComponentCount;

    property ComponentIndex: Integer read GetComponentIndex write SetComponentIndex;

    property ComponentState: TComponentState read FComponentState;

    property ComponentStyle: TComponentStyle read FComponentStyle;

    property DesignInfo: Longint read FDesignInfo write FDesignInfo;

    property Owner: TComponent read FOwner;

    property VCLComObject: Pointer read FVCLComObject write FVCLComObject;

    property Observers: TObservers read GetObservers;

  published

    property Name: TComponentName read FName write SetName stored False;

    property Tag: NativeInt read FTag write FTag default ;

{ TComponent 的父类 TPersistent (来自 System.Classes) }

  public

    destructor Destroy; override;

    procedure Assign(Source: TPersistent); virtual;

    function GetNamePath: string; dynamic;

{ TPersistent 的父类 TObject (来自 System) }

  public

    constructor Create;

    procedure Free;

    class function InitInstance(Instance: Pointer): TObject;

    procedure CleanupInstance;

    function ClassType: TClass; inline;

    class function ClassName: string;

    class function ClassNameIs(const Name: string): Boolean;

    class function ClassParent: TClass;

    class function ClassInfo: Pointer; inline;

    class function InstanceSize: Longint; inline;

    class function InheritsFrom(AClass: TClass): Boolean;

    class function MethodAddress(const Name: ShortString): Pointer; overload;

    class function MethodAddress(const Name: string): Pointer; overload;

    class function MethodName(Address: Pointer): string;

    class function QualifiedClassName: string;

    function FieldAddress(const Name: ShortString): Pointer; overload;

    function FieldAddress(const Name: string): Pointer; overload;

    function GetInterface(const IID: TGUID; out Obj): Boolean;

    class function GetInterfaceEntry(const IID: TGUID): PInterfaceEntry;

    class function GetInterfaceTable: PInterfaceTable;

    class function UnitName: string;

    class function UnitScope: string;

    function Equals(Obj: TObject): Boolean; virtual;

    function GetHashCode: Integer; virtual;

    function ToString: string; virtual;

    function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; virtual;

    procedure AfterConstruction; virtual;

    procedure BeforeDestruction; virtual;

    procedure Dispatch(var Message); virtual;

    procedure DefaultHandler(var Message); virtual;

    class function NewInstance: TObject; virtual;

    procedure FreeInstance; virtual;

    destructor Destroy; virtual;

慢慢消化...

---------------来自万一

Delphi XE2 之 FireMonkey 入门(2)的更多相关文章

  1. Delphi XE2 之 FireMonkey 入门(45Finally) - 结题与问题

    Delphi XE2 之 FireMonkey 入门(45Finally) - 结题与问题 很喜欢 FMX 的一些新控件, 如: TExpander.TArcDial.TComboTrackBar.T ...

  2. Delphi XE2 之 FireMonkey 入门(44) - 控件基础: TTreeView、TTreeViewItem

    Delphi XE2 之 FireMonkey 入门(44) - 控件基础: TTreeView.TTreeViewItem TScrollBox -> TCustomTreeView -> ...

  3. Delphi XE2 之 FireMonkey 入门(43) - 控件基础: TStringGrid、TGrid

    Delphi XE2 之 FireMonkey 入门(43) - 控件基础: TStringGrid.TGrid TStringGrid.TGrid 都是从 TCustomGrid 继承; 区别有:1 ...

  4. Delphi XE2 之 FireMonkey 入门(42) - 控件基础: TComboBox、TComboEdit

    Delphi XE2 之 FireMonkey 入门(42) - 控件基础: TComboBox.TComboEdit TListBox 有两个兄弟 TComboListBox.TComboEditL ...

  5. Delphi XE2 之 FireMonkey 入门(41) - 控件基础: TListBox

    Delphi XE2 之 FireMonkey 入门(41) - 控件基础: TListBox TScrollBox -> TCustomListBox -> TListBox; 其元素项 ...

  6. Delphi XE2 之 FireMonkey 入门(40) - 控件基础: TMemo

    Delphi XE2 之 FireMonkey 入门(40) - 控件基础: TMemo 值得注意的变化: 1.其父类 TScrollBox 的许多特性也很有用处, 如:   Memo1.UseSma ...

  7. Delphi XE2 之 FireMonkey 入门(39) - 控件基础: TScrollBox、TVertScrollBox、TFramedScrollBox、TFramedVertScrollBox

    Delphi XE2 之 FireMonkey 入门(39) - 控件基础: TScrollBox.TVertScrollBox.TFramedScrollBox.TFramedVertScrollB ...

  8. Delphi XE2 之 FireMonkey 入门(38) - 控件基础: TPopupMenu、TMenuItem、TMenuBar、TMainMenu

    Delphi XE2 之 FireMonkey 入门(38) - 控件基础: TPopupMenu.TMenuItem.TMenuBar.TMainMenu 相关控件: TMenuBar.TPopup ...

  9. Delphi XE2 之 FireMonkey 入门(37) - 控件基础: TControl 概览

    Delphi XE2 之 FireMonkey 入门(37) - 控件基础: TControl 概览 { TControl } public   constructor Create(...); ov ...

  10. Delphi XE2 之 FireMonkey 入门(36) - 控件基础: TForm

    Delphi XE2 之 FireMonkey 入门(36) - 控件基础: TForm 当我第一次读取 Form1.StyleLookup 并期待出现 "formstyle" 时 ...

随机推荐

  1. MySQL时间戳加减转日期

    一.时间戳计算前N天后N天并转化为日期,本例是将某个时间戳转为日期,并计算出与该日期前后相差7天的日期: , , , DAY)as 'after'; 输出: # before, now, after ...

  2. SQL性能优化概要

    基本概要 1.查询的模糊匹配时,避免使用Like '%开头',使得索引失效 2.索引问题 ◆ 避免对索引字段进行运算操作和使用函数 ◆ 避免在索引字段上使用not,<>,!= ◆ 避免在索 ...

  3. python学习笔记(4)

    第六章 字符串操作 1.字符串处理 (1)字符串字 spam='Say hi to Bob\' s mother 面量 python中输入字符串:以单引号开始和结束 (2)双引号:字符串可以用双引号开 ...

  4. 使用GET与POST方式获取html数据

    抓取网站数据解析的工作,其中,使用到GET和POST方法获取html数据. 使用GET方式: /** * 使用get方式获取html数据 * * @param strURL(需要访问的网站) * @r ...

  5. VLAN原理详解[转载] 网桥--交换机---路由器

    来自:http://blog.csdn.net/phunxm/article/details/9498829 一.什么是桥接          桥接工作在OSI网络参考模型的第二层数据链路层,是一种以 ...

  6. EffectiveC++条款04：确定对象被使用前已先被初始化

    不要混淆赋值和初始化,对于大多数类型而言,比起先调用默认构造函数然后调用赋值操作符,只调用一次拷贝构造函数是高效的 对于内置类型,也需要成员初值列(member initialization list ...

  7. 基于ldap+sentry+rbac的hive数据库权限测试

    1.rbac系统简介 2.sentry系统简介 3.ldap系统简介 4.整个待测系统简介 user-role=group-role user-role是用户在rbac系统创建项目以及把项目成员以及给 ...

  8. ThreadLocal 解决simpledateformat线程不安全

    SimpleDateFormat在多线程情况下会出现线程不安全的情况,故用ThreadLoacl 处理/** * 用ThreadLocal处理simplDateFormat线程不安全 */public ...

  9. Centos7没有Ifconfig命令该怎么办?

    centos7没有ifconfig命令该怎么办? linux系统查看ip地址常用命令是[ifconfig],CentOS 7.0最小安装是没有ifconfig命令怎么办?当然可用[ip addr]查看 ...

  10. Set 的合集 并集 差集

    合集 ,,,,,,]; ,,]; function union() { //先将数组去重 let s1 = new Set(arr1); let s2 = new Set(arr2); //[...s ...