2011年4月11日星期一

Direct2D (34) : 准备开始学习 DirectWrite

{Direct2D 相关技术模块} Direct2D //相关信息：d2d1.dll； D2D1.pas、Direct2D.pas DirectWrite //相关信息：dwrite.dll； D2D1.pas WICBitmap //相关信息：windowscodecs.dll； Wincodec.pas、Graphics.pas(TWICBitmap) {Direct2D 相关接口} ID2D1Bitmap ...

2011年4月8日星期五

Direct2D (33) : 通过 ID2D1BitmapRenderTarget 绘制背景网格

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

如果要从内存绘图并建立 ID2D1BitmapBrush，最好通过 ID2D1BitmapRenderTarget。{相关方法} TDirect2DCanvas.RenderTarget.CreateCompatibleRenderTarget(); //建立 ID2D1BitmapRenderTarget ID2D1BitmapRenderTarget.GetBitmap(); //从 ID2...

Direct2D (32) : 把几何图形网格化为若干三角形 - ID2D1Geometry.Tessellate()

万一| 万一的 Delphi 博客 |13:25:00

{相关接口} ID2D1TessellationSink //用于接收 ID2D1Geometry.Tessellate() 方法输出的三角形数组 ID2D1Mesh //是使用 ID2D1TessellationSink 填充的网格，它负责 Open ID2D1TessellationSink {相关方法} TDirect2DCanvas.RenderTarget.CreateMesh() //...

dexplore.exe shut down fixer v2

Embarcadero| CodeCentral Delphi Submissions |12:31:40

A lot of people (myself included) have had problems with a process called dexplore.exe stopping windows from shutting down. One way this can happen is when Embarcadero Rad Studio uses Microsoft’s dexplore help system – when Rad Studio...

Direct2D (31) : 命中测试 - ID2D1Geometry.FillContainsPoint()、StrokeContainsPoint()

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

uses Direct2D, D2D1; const penWidth = 25; var iGeometry: ID2D1EllipseGeometry; procedure TForm1.FormCreate(Sender: TObject); begin D2DFactory.CreateEllipseGeometry(D2D1Ellipse(D2D1PointF(120, 90), 80, 50), iGeometry); end; procedure TForm...

使用DxVcl为Python的飞信库写一个简单的GUI

不得闲| 得闲笔记 |10:51:00

    Python的好处，就是类库超多，多到只有你想不到的库，而没有你想到的，他却没有的库。所以飞信，在Python下也有一个开源的类库，这个就是PyFetion，他自己有带一个Demo，不过是一个CGI的程序，没有窗口界面，于是用之前Delphi写的DxVcl为这个飞信...

2011年4月7日星期四

Direct2D (30) : 判断几何对象的关系 - ID2D1Geometry.CompareWithGeometry()

万一| 万一的 Delphi 博客 |22:32:00

{相关常量} //D2D1_GEOMETRY_RELATION = type Integer; D2D1_GEOMETRY_RELATION_UNKNOWN = 0; //未知 D2D1_GEOMETRY_RELATION_DISJOINT = 1; //不相交 D2D1_GEOMETRY_RELATION_IS_CONTAINED = 2; //属于 D2D1_GEOMETRY_RELATION_CONTAINS = 3; //包...

Direct2D (29) : 简化曲线到直线 - ID2D1Geometry.Simplify()

万一| 万一的 Delphi 博客 |17:32:00

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; iEllipseGeometry: ID2D1EllipseGeometry; iPathGeometry: ID2D1PathGeometry; iGeometrySink: ID2D1GeometrySink; ptCenter: TPoint; begin ptCenter :...

Direct2D (28) : 获取几何图形的面积、线总长度和指定位置的点坐标

万一| 万一的 Delphi 博客 |17:08:00

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; iEllipseGeometry: ID2D1EllipseGeometry; area,length: Single; rPointF1,rPointF2: TD2DPoint2f; ptCenter: TPoint; begin ptCenter := Point(ClientW...

Direct2D (27) : 获取几何图形的轮廓 - ID2D1Geometry.Outline()

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

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; iEllipseGeometry: ID2D1EllipseGeometry; iTransformedGeometrys: array[0..7] of ID2D1TransformedGeometry; iGeometryGroup: ID2D1GeometryGroup; iGeo...

Code page-aware Hunspell wrapper (v1.1.2)

Embarcadero| CodeCentral Delphi Submissions |12:54:40

Hunspell is the open source spell checking engine used in OpenOffice; this wrapper class calls into a DLL compiled from the standard Hunspell sources, with one such DLL (built using v1.2.8 of Hunspell) included in the ZIP. The wrapper itself is th...

Direct2D (26) : 获取几何图形的边界

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

{相关方法} ID2D1Geometry.GetBounds(); //获取边界矩形 ID2D1Geometry.GetWidenedBounds(); //获取包含画笔区域的边界矩形测试代码：uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; iPathGeometry: ID2...

Direct2D (25) : 将画笔线条所占用的区域转换为路径 - ID2D1PathGeometry.Widen()

万一| 万一的 Delphi 博客 |11:34:00

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; iPathGeometry1,iPathGeometry2: ID2D1PathGeometry; iGeometrySink: ID2D1GeometrySink; begin {建立一个几何对象 iPathGeometry1} D2DFactory.CreateEll...

Direct2D (25) : 将画笔线条所占用的区域转换为路径 - ID2D1Geometry.Widen()