上一页 1 ··· 48 49 50 51 52 53 54 55 56 ··· 215 下一页
摘要: 示例图片:示例代码:uses GdiPlus;procedure TForm1.FormPaint(Sender: TObject);var Graphics: IGPGraphics; Image: IGPImage; Brush: IGPTextureBrush; Rect: TGPRect;begin ChDir('C:\GdiPlusImg\'); Image := TGPIm... 阅读全文
posted @ 2009-12-13 22:05 万一 阅读(2604) 评论(0) 推荐(0) 编辑
摘要: IGPSolidBrush(实心画刷)只是在 IGPBrush 的基础上增加了一个可读写的 IGPSolidBrush.Color 属性.IGPHatchBrush(阴影画刷)有三个只读属性: 阴影样式、前景色、背景色; 它们也刚好是 Create 方法的参数.Create 也可只有前两个参数, 此时背景色默认为不透明的黑色.下面的例子展示了阴影画刷的所有阴影样式, 效果图如下:unit Unit... 阅读全文
posted @ 2009-12-13 20:51 万一 阅读(2184) 评论(0) 推荐(0) 编辑
摘要: GDI+ 有五种画刷:实心画刷: IGPSolidBrush阴影画刷: IGPHatchBrush纹理画刷: IGPTextureBrush线性渐变画刷: IGPLinearGradientBrush路径渐变画刷: IGPPathGradientBrush它们分别有对应的实现类:TGPSolidBrushTGPHatchBrushTGPTextureBrushTGPLinearGradientBr... 阅读全文
posted @ 2009-12-13 12:44 万一 阅读(4027) 评论(4) 推荐(0) 编辑
摘要: IGPColors 是一个泛型数组应用于 TGPColor 的接口, 需要一组颜色时可以用它; 当然用其他方法也不麻烦, 它在整个体系中并不重要.本例把 TGPColor 中的 141 个颜色常量装载到一个 IGPColors, 顺便看看这些颜色.运行效果图:uses GdiPlus;procedure TForm1.FormPaint(Sender: TObject);const Count ... 阅读全文
posted @ 2009-12-12 00:25 万一 阅读(2490) 评论(0) 推荐(0) 编辑
摘要: TGPColor 是 GdiPlus 的颜色主体, 它虽然是个结构体, 但和类一样, 方法、属性一应俱全.之所以没有把它定义为类或接口, 我觉得主要是它需要和一个整数值进行隐式转换, 这要用到运算符重载(暂时只有结构有).TGPColor 的多种构建方法:var c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11: TGPColor;begin c1 :=... 阅读全文
posted @ 2009-12-12 00:04 万一 阅读(3334) 评论(5) 推荐(0) 编辑
摘要: 本套接口只有两个单元: GdiPlus, GdiPlusHelpers; 主要的是前者, GdiPlusHelpers 的作用是通过 Helper 技术给 VCL 体系中的 TCanvas、TGraphicControl、TCustomControl、TBitmap 类补充添加 ToGPGraphics 方法, 以方便获取 IGPGraphics.在很多时候我们并不需要它, 这时也不需要 uses... 阅读全文
posted @ 2009-12-11 13:55 万一 阅读(3508) 评论(16) 推荐(0) 编辑
摘要: 绘图表面(Graphics, 这在 VCL 体系中叫 Canvas), 在 GdiPlus 中有四种获取方法:1、通过窗口句柄获取;2、通过窗口的 Canvas.Handle 获取;3、通过 GdiPlus 利用 Helper 技术给部分 VCL 对象添加的 ToGPGraphics 方法获取;4、通过图像对象获取.本例效果图:unit Unit1;interfaceuses Windows, ... 阅读全文
posted @ 2009-12-11 13:25 万一 阅读(5308) 评论(0) 推荐(0) 编辑
摘要: 尽管 GDI+ 已经有近 10 年的历史(随 Win2000 推出), 尽管 DirectX 如日中天, 但在 Windows 7 之前的版本下进行 2D 绘图还是离不开它, 微软也没有停止对它的升级, 随 Vista 的 GDI 版本是 1.1(6.0.xxxx.x), 新增了 Blur 等功能.不过 Win7 已经有了 Direct D2D1, Delphi 也同步有了 Direct2D 支持... 阅读全文
posted @ 2009-12-11 11:54 万一 阅读(18157) 评论(46) 推荐(1) 编辑
摘要: 可用 {$ASSERTIONS OFF/ON} 决定是否启用 Assert; 默认只用于 Debug 版本. 阅读全文
posted @ 2009-12-10 11:55 万一 阅读(4956) 评论(6) 推荐(0) 编辑
摘要: uses ShellAPI;//打开 C 盘procedure TForm1.Button1Click(Sender: TObject);begin ShellExecute(Handle, 'open', 'Explorer.exe', 'C:\', nil, SW_SHOWNORMAL);end;//打开 我的电脑procedure TForm1.Button2Click(Sender: T... 阅读全文
posted @ 2009-12-09 13:19 万一 阅读(3443) 评论(7) 推荐(1) 编辑
上一页 1 ··· 48 49 50 51 52 53 54 55 56 ··· 215 下一页