冀公网安备 13098202000212号 2011年4月7日 星期四
DynamicSkinForm v. 12.31
Embarcadero| CodeCentral Delphi Submissions |06:46:29
DynamicSkinForm VCL library help you to create applications with skins. Skins support for forms, menus, hints, many standard and non-standard original controls. Skins with many objects, effects help you to create standard and non-standard cool ap...
Building & Tuning SQL Server Database-Driven Applications
Embarcadero| EDN Delphi Feed |03:52:32
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} ...
2011年4月5日 星期二
Direct2D (20) : 图层之 TD2D1LayerParameters.opacityBrush (为图层指定蒙版画刷)
万一| 万一的 Delphi 博客 |21:48:00
uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; iLayer: ID2D1Layer; rLayerParameters: TD2D1LayerParameters; wic: TWICImage; R: TRect; iLinearGradientBrush: ID2D1LinearGradientBrush; rLinea...
我们永远优雅，但绝不炫耀：图文合并BPL包教程！
TinTinSoft| 碧水航工作室－delphi |19:30:00
Delphi IDE 本身就是一个插件模式的工具，插件的好处不用多说。运行包的BPL，其实就是众多单元的集合，因此可以再次重新组合，只要你将各个BPL包用到的单元再组合一次！本文以 http://code.google.com/p/tangram-plugin-framework/ 插件框架自带的BP...
我们永远优雅，但绝不炫耀：合并BPL包图文教程！
TinTinSoft| 碧水航工作室－delphi |19:30:00
Delphi IDE 本身就是一个插件模式的工具，插件的好处不用多说。运行包的BPL，其实就是众多单元的集合，因此可以再次重新组合，只要你将各个BPL包用到的单元再组合一次！本文以 http://code.google.com/p/tangram-plugin-framework/ 插件框架自带的BP...
Direct2D (19) : 图层之 TD2D1LayerParameters.geometricMask (使用几何图形剪裁图层)
万一| 万一的 Delphi 博客 |17:08:00
uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; iLayer: ID2D1Layer; rLayerParameters: TD2D1LayerParameters; wic: TWICImage; R: TRect; iEllipse: ID2D1EllipseGeometry; begin wic := TWICImage...
Direct2D (18) : 图层之 TD2D1LayerParameters.contentBounds (图层的有效范围)
万一| 万一的 Delphi 博客 |15:34:00
{相关方法} TDirect2DCanvas.RenderTarget.CreateLayer(); //建立层 TDirect2DCanvas.RenderTarget.PushLayer(); //开始层；层的功能及效果取决于它的 TD2D1LayerParameters 结构参数 TDirect2DCanvas.RenderTarget.PopLayer(); //结束层 {相关结构} TD2D1Laye...
Direct2D (17) : 蒙版之 FillGeometry() 方法
万一| 万一的 Delphi 博客 |13:10:00
FillGeometry() 可通过两个画刷的重叠运算获取蒙版效果，作为蒙版画刷的渐变色中应该至少有一个透明色。使用放射画刷做蒙版：uses Direct2D, D2D1, Wincodec, ActiveX; {从指定文件建立 ID2D1Bitmap 的函数} function GetD2D1Bitmap(RenderTarget: ID2D1RenderTarge...
New Book - Delphi in Depth: ClientDataSets
Embarcadero| EDN Delphi Feed |09:47:23
Direct2D (16) : 蒙版之 FillOpacityMask() 方法
万一| 万一的 Delphi 博客 |09:37:00
实现蒙版效果有三种途径：使用 FillOpacityMask()、使用 FillGeometry() 方法、使用图层。FillOpacityMask() 用于处理图像蒙版。期间用到 ID2D1Bitmap，因为对图像格式要求较苛刻，我通过 TDirect2DCanvas.CreateBitmap() 建立 ID2D1Bitmap 时没有成功。后来使用了自...
2011年4月4日 星期一
Numerical Integration Routines and Test Pgm
Embarcadero| CodeCentral Delphi Submissions |15:47:59
Included is the source for Runge-Kutta-4 and Modified Euler numerical integration routines and test program. The test program includes an example derivative calculator.