Delphi 的绘图功能 - 随笔分类 - 万一

摘要：所谓双缓冲就是先画到内存画布(如: TBitmap), 然后再转帖到目的地.譬如下面小程序:改为双缓冲绘图可以是:TookiQ 需要的是 GDI+ 的, 道理都一样. 阅读全文

posted @ 2010-04-19 23:44 万一阅读(6618) 评论(0) 推荐(0) 编辑

摘要：偶然从 http://blog.csdn.net/hero82748274/archive/2010/02/10/5304386.aspx 看到了秀曲线图, 就用 GDI 模仿了一下; 如果用 GDI+ 绘制, 图形会细腻很多.procedure TForm1.FormPaint(Sender: TObject);var i,j,num,X,Y: Integer;begin num := 60... 阅读全文

posted @ 2010-02-10 23:24 万一阅读(6258) 评论(7) 推荐(0) 编辑

如何用 GDI 绘制阴影文字 - 回复 "Splendour" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2010/01/09/1643019.html#1746542procedure TForm1.FormPaint(Sender: TObject);var x,y: Integer; str: string;begin x := 10; y := 10; str := '今天'; Canvas.Font... 阅读全文

posted @ 2010-01-14 09:58 万一阅读(5243) 评论(12) 推荐(0) 编辑

TImage、TPaintBox、TPicture、TBitmap、TCanvas、TGraphic 的关系与区别

摘要：TGraphic 是 TBitmap 的父类, 很多绘图函数的参数是 TGraphic, 但我们经常给函数的是 TBitmap; TBitmap 的很多功能都是继承自 TGraphic, 譬如: Width、Height、LoadFromFile、SaveToFile、LoadFromStream、SaveToStream; 还有 Palette(调色板)、Transparent(是否透明) ... 阅读全文

posted @ 2009-01-09 23:01 万一阅读(16571) 评论(16) 推荐(1) 编辑

关于位图的像素格式

摘要：1、判断位图的像素格式: var bit: TBitmap; pix: TPixelFormat; s: string; begin bit := TBitmap.Create; bit.LoadFromFile('c:\temp\test.bmp'); //位图路径 pix := bit.PixelFormat; s := ''; case pix of ... 阅读全文

posted @ 2008-12-01 14:08 万一阅读(6266) 评论(8) 推荐(0) 编辑

把整个窗体保存为图片的方法 - 回复 "乌龙哈里" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/27/1197961.html#1237665 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;... 阅读全文

posted @ 2008-06-27 10:13 万一阅读(4568) 评论(2) 推荐(0) 编辑

两个 CopyRect

摘要：Windows.CopyRect 是系统 API 函数, 功能是复制矩形的参数; TCanvas.CopyRect 是 TCanvas 类的方法, 功能是复制矩形范围内的图像, 有点像 BitBlt 函数. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, G... 阅读全文

posted @ 2008-06-25 18:05 万一阅读(7246) 评论(2) 推荐(0) 编辑

绘制正弦曲线和余弦曲线

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ... 阅读全文

posted @ 2008-05-27 23:10 万一阅读(7771) 评论(0) 推荐(0) 编辑

使用 System.Sin、System.Cos 函数画圆 - 绘制五环图标

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedur... 阅读全文

posted @ 2008-05-27 22:21 万一阅读(7156) 评论(10) 推荐(0) 编辑

WinAPI: SetRect 及初始化矩形的几种办法

摘要：本例分别用五种办法初始化了同样的一个矩形, 运行效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1:... 阅读全文

posted @ 2008-05-23 11:50 万一阅读(6069) 评论(0) 推荐(0) 编辑

把文字输出到屏幕

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2... 阅读全文

posted @ 2008-05-22 11:47 万一阅读(6252) 评论(10) 推荐(0) 编辑

捕捉全屏图像

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button... 阅读全文

posted @ 2008-05-16 14:30 万一阅读(5285) 评论(12) 推荐(0) 编辑

把窗体客户区图像保存到文件或剪切板

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文

posted @ 2008-05-15 11:20 万一阅读(6768) 评论(19) 推荐(0) 编辑

Delphi 的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExtent

摘要：procedure TForm1.Button1Click(Sender: TObject); var str: string; wh: TSize; w,h: Integer; begin {前面用过 Canvas.TextWidth、Canvas.TextHeight} str := '万'; w := Canvas.TextWidth(str); h := Ca... 阅读全文

posted @ 2008-02-18 22:32 万一阅读(10790) 评论(0) 推荐(0) 编辑

Delphi 的绘图功能[14] - 图像类

摘要：Delphi 的 Graphic 单元有五个重要的图像类: TGraphic、TBitmap、TMetafile、TIcon、TPicture. TBitmap 用来操作位图; TMetafile 用来操作图元文件; TIcon 用来操作图标(包括鼠标指针)文件; TBitmap、TMetafile、TIcon 都是 TGraphic 的子类, 由于 TCanvas.Draw(X, Y: ... 阅读全文

posted @ 2008-02-18 21:03 万一阅读(6363) 评论(0) 推荐(0) 编辑

Delphi 的绘图功能[13] - TBrush 类

摘要：//画刷类 TBrush 有三个重要属性: Color、Style、Bitmap. {Style: 样式; Delphi 为画刷定义了样式枚举 TBrushStyle, 包含以下样式:} bsSolid bsClear bsHorizontal bsVertical bsFDiagonal bsBDiagonal bsCross bsDiagCross //下面小程序展示了上面的其中填充样... 阅读全文

posted @ 2008-02-18 18:52 万一阅读(6385) 评论(1) 推荐(0) 编辑

Delphi 的绘图功能[12] - TPen 类(下) : 学习橡皮线

摘要：//奇妙的异或运算, 就这些简单的代码, 反复点击按钮... procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Pen.Color := clYellow; {指定笔颜色为黄色} Canvas.Pen.Width := 20; {笔宽 20} Canvas.Pen.Mode := pmXor; ... 阅读全文

posted @ 2008-02-18 15:18 万一阅读(6247) 评论(2) 推荐(0) 编辑

Delphi 的绘图功能[11] - TPen 类(上)

摘要：//TPen 的主要属性有四: Color、Width、Style、Mode {Color: 颜色} {Width: 宽度; 默认是 1; 如果赋予 //下面的例子依次展示了各种样式: var i,x,y,n: Integer; begin x := 10; y := 15; n := ClientWidth - 2*x; Canvas.Pen.Color := cl... 阅读全文

posted @ 2008-02-17 22:59 万一阅读(9835) 评论(3) 推荐(0) 编辑

Delphi 的绘图功能[10] - TFONT 类

摘要：//先来个例子: procedure TForm1.FormPaint(Sender: TObject); const S = '万一的 Delphi 博客'; var font: TFont; begin font := TFont.Create; font.Name := '微软雅黑'; font.Style := [fsBold, fsItalic]; font.C... 阅读全文

posted @ 2008-02-17 18:43 万一阅读(7665) 评论(3) 推荐(0) 编辑

Delphi 的绘图功能[9] - TextRect

摘要：//第一种重载的声明: TextRect( Rect: TRect; {矩形} X, Y: Integer; {相对于窗体的位置} const Text: string {文本} ); {如果要输出的文本超出指定的矩形将不被显示} //第一种重载的举例: procedure TForm1.Button1Click(Sender: TObject); cons... 阅读全文

posted @ 2008-02-17 16:23 万一阅读(13688) 评论(10) 推荐(2) 编辑

随笔分类 - Delphi 的绘图功能