简单的 "双缓冲" 绘图的例子 - 回复 "TookiQ" 的问题
摘要:所谓双缓冲就是先画到内存画布(如: TBitmap), 然后再转帖到目的地.譬如下面小程序:改为双缓冲绘图可以是:TookiQ 需要的是 GDI+ 的, 道理都一样.
阅读全文
posted @
2010-04-19 23:44
万一
阅读(6649)
推荐(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
万一
阅读(6281)
推荐(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
万一
阅读(5262)
推荐(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
万一
阅读(16636)
推荐(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
万一
阅读(6275)
推荐(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
万一
阅读(4582)
推荐(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
万一
阅读(7258)
推荐(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
万一
阅读(7800)
推荐(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
万一
阅读(7173)
推荐(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
万一
阅读(6087)
推荐(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
万一
阅读(6266)
推荐(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
万一
阅读(5298)
推荐(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
万一
阅读(6785)
推荐(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
万一
阅读(10854)
推荐(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
万一
阅读(6412)
推荐(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
万一
阅读(6431)
推荐(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
万一
阅读(6277)
推荐(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
万一
阅读(9898)
推荐(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
万一
阅读(7730)
推荐(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
万一
阅读(13817)
推荐(2) 编辑