2011年4月6日 星期三

Direct2D (24) : 合并几何对象

万一| 万一的 Delphi 博客 |20:39:00

合并通过 ID2D1Geometry.CombineWithGeometry() 完成，但返回的是 ID2D1SimplifiedGeometrySink(ID2D1GeometrySink 的父对象)；需要把 ID2D1SimplifiedGeometrySink 添加到 ID2D1PathGeometry 才能使用。uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: T...

Direct2D (23) : 复合几何对象之 ID2D1GeometryGroup

万一| 万一的 Delphi 博客 |16:02:00

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; iGeometryGroup: ID2D1GeometryGroup; arrGeometry: array[0..3] of ID2D1EllipseGeometry; ptCenter: TD2D1Point2F; i: Integer; rh,rv: Single; iFa...

Direct2D (22) : 复合几何对象之 ID2D1TransformedGeometry

万一| 万一的 Delphi 博客 |15:03:00

复合几何对象包括 ID2D1GeometryGroup 和 ID2D1TransformedGeometry，它们都继承自 ID2D1Geometry。ID2D1TransformedGeometry 只是包含了 2D 变换的 ID2D1Geometry。uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas...

Direct2D (21) : 微软官方关于路径的示例

万一| 万一的 Delphi 博客 |12:42:00

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} ...