向上帝打申请了，下辈子再也不做程序员！！ 上帝批复：OK！

随笔分类 -  Delphi图像操作

SetRect 及初始化矩形的几种办法
摘要：本例分别用五种办法初始化了同样的一个矩形, 运行效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: ... 阅读全文
posted @ 2009-03-17 17:18 zywuhao 阅读(608) 评论(0) 推荐(0)
把整个窗体保存为图片的方法
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sende... 阅读全文
posted @ 2009-03-17 17:17 zywuhao 阅读(341) 评论(0) 推荐(0)
两个 CopyRect
摘要：Windows.CopyRect 是系统 API 函数, 功能是复制矩形的参数;TCanvas.CopyRect 是 TCanvas 类的方法, 功能是复制矩形范围内的图像, 有点像 BitBlt 函数. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, ... 阅读全文
posted @ 2009-03-17 17:17 zywuhao 阅读(228) 评论(0) 推荐(0)
关于位图的像素格式
摘要：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 @ 2009-03-17 17:16 zywuhao 阅读(262) 评论(0) 推荐(0)
TImage、TPaintBox、TPicture、TBitmap、TCanvas、TGraphic 的关系与区别
摘要：TGraphic 是 TBitmap 的父类, 很多绘图函数的参数是 TGraphic, 但我们经常给函数的是 TBitmap;TBitmap 的很多功能都是继承自 TGraphic, 譬如:Width、Height、LoadFromFile、SaveToFile、LoadFromStream、SaveToStream;还有 Palette(调色板)、Transparent(是否透明) 等等.TG... 阅读全文
posted @ 2009-03-17 17:16 zywuhao 阅读(344) 评论(0) 推荐(0)
捕捉全屏图像 、把文字输出到屏幕
摘要：捕捉全屏图像 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Clic... 阅读全文
posted @ 2009-03-17 17:15 zywuhao 阅读(284) 评论(0) 推荐(0)
文字的高度与宽度: 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 := Canvas.TextH... 阅读全文
posted @ 2009-03-17 17:13 zywuhao 阅读(1130) 评论(0) 推荐(0)
把窗体客户区图像保存到文件或剪切板
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3... 阅读全文
posted @ 2009-03-17 17:13 zywuhao 阅读(293) 评论(1) 推荐(0)
TFONT 类 、TPen 类、TBrush 类 、图像类
摘要：----TFONT 类 //先来个例子: procedure TForm1.FormPaint(Sender: TObject); const S = '万一的 Delphi 博客'; var font: TFont; begin font := TFont.Create; font.Name := '微软雅黑'; font.Style := [fsBold, fsItali... 阅读全文
posted @ 2009-03-17 17:12 zywuhao 阅读(1226) 评论(0) 推荐(0)
TextOut、TextWidth、TextHeight 、TextRect
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1... 阅读全文
posted @ 2009-03-17 17:09 zywuhao 阅读(1293) 评论(0) 推荐(0)
Polygon、Polyline、PolyBezier、PolyBezierTo
摘要：---Polygon、Polyline unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ... 阅读全文
posted @ 2009-03-17 17:08 zywuhao 阅读(2113) 评论(0) 推荐(0)
获取 Canvas 对象
摘要：在窗体上添加 Panel1、PaintBox1 和 Button1, 代码如下: procedure TForm1.Button1Click(Sender: TObject); var cvs: TCanvas; begin {PaintBox1 就像窗体一样, 也有 Canvas 属性} PaintBox1.Canvas.Brush.Color := clRed; Paint... 阅读全文
posted @ 2009-03-17 17:06 zywuhao 阅读(653) 评论(0) 推荐(0)
圆弧类图形
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton;... 阅读全文
posted @ 2009-03-17 17:05 zywuhao 阅读(230) 评论(0) 推荐(0)
矩形类图形
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton;... 阅读全文
posted @ 2009-03-17 17:04 zywuhao 阅读(391) 评论(0) 推荐(0)
TCanvas 的类成员
摘要：//过程:ArcBrushCopyChordCopyRectDrawDrawFocusRectEllipseEllipseFillRectFloodFillFrameRectLineToLockMoveToPiePolygonPolylinePolyBezierPolyBezierToRectangleRectangleRefreshRoundRectStretchDrawTextOutTextR... 阅读全文
posted @ 2009-03-17 17:03 zywuhao 阅读(154) 评论(0) 推荐(0)
入门
摘要：绘图需要有纸、画笔、画刷; Delphi 有 Canvas、Pen、Brush.Canvas 就是画布, 譬如窗体的 Canvas 属性, 就是窗体的画布;Pen 是画笔, 可以设置笔色、笔宽等等;Brush 是画刷, 可以设置颜色等等. //举例: {绘制直线} procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Pe... 阅读全文
posted @ 2009-03-17 17:03 zywuhao 阅读(164) 评论(0) 推荐(0)
Graphics 单元中的类
摘要：//Graphics 单元中的类TGraphicsObjectTFontTPenTBrushTFontRecallTPenRecallTBrushRecallTCanvasTGraphicTPictureTMetafileCanvasTMetafileImageTMetafileTBitmapImageTBitmapTIconImageTIconTResourceManagerTBrushReso... 阅读全文
posted @ 2009-03-17 17:01 zywuhao 阅读(142) 评论(0) 推荐(0)
图片的合并与缩放
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedu... 阅读全文
posted @ 2009-03-17 16:11 zywuhao 阅读(219) 评论(0) 推荐(0)
显示 jpg、png、gif 图片及 gif 动画
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; ... 阅读全文
posted @ 2009-03-17 16:05 zywuhao 阅读(332) 评论(0) 推荐(0)