Delphi图像处理
图像缩放是最常用的图像处理，在图像拉伸和取得图像略图中都要用到。图像缩放质量的好坏与图像像素插值方式有关，本文定义了常用的3种插值方式，即临近插值、线性插值和双立方插值方式：
type
// 插值方式: 缺省(线性插值)，临近，线性，双立方
TInterpolateMode = (imDefault, imNear, imBilinear, imBicubic);
具体的缩放及其用到的插值过程代码如下：
过程定义：
// 设置双立方插值的斜率。缺省值为-0.75
procedure SetBicubicSlope(const Value: Single);
// 缩放图像，IpMode插值方式
procedure ImageScale(Dest: TImageData; const Source: TImageData;
IpMode: TInterpolateMode = imDefault); overload;
// Source分别按比例ScaleX和ScaleY缩放到Dest的(x,y)坐标，IpMode插值方式
procedure ImageScale(Dest: TImageData; x, y: Integer; const Source: TImageData;
ScaleX, ScaleY: Single; IpMode: TInterpolateMode = imDefault); overload;
// TGraphic对象缩放到Dest
procedure ImageScale(Dest: TImageData; const Source: TGraphic;
IpMode: TInterpolateMode = imDefault); overload;
procedure ImageScale(Dest: TImageData; x, y: Integer; const Source: TGraphic;
ScaleX, ScaleY: Single; IpMode: TInterpolateMode = imDefault); overload;
// TGpBitmap对象缩放到Dest
procedure ImageScale(Dest: TImageData;
const Source: TGpBitmap; IpMode: TInterpolateMode = imDefault); overload;
procedure ImageScale(Dest: TImageData; x, y: Integer;
const Source: TGpBitmap; ScaleX, ScaleY: Single;
IpMode: TInterpolateMode = imDefault); overload;
实现代码：
type
TInterpolateProc = procedure;
var
BicubicTable: Pointer;
BicubicSlope: Single;
BilinearTable: Pointer;
(*****************************************************************************
* typedef UINT ARGB *
* ARGB GetBilinearColor(int x(*256), int y(*256), void* Scan0, UINT Stride) *
* *
* int x0 = x / 256
相关文档：
一、类和对象
类是对象的类型，是创建对象的模板。一个类可以创建多个对象，而一个对象总是属于某个类。类具有内部的属性（状态）和行为（操作）。
对象是类的实例，具有区别于同类其他对象的属性集合。
对象的声明存放于堆栈，对象的引用存放于堆。
二、类的方法分类
1、 普通方法
不加任何修饰� ......
Unt_Machine_WebDll.pas
BODY {background: #FFFFFF}
A:link { color: #0000FF}
A:visited { color: #0000FF}
A:Active { color: #0000FF}
.bold {font-weight: bold}
.italic {font-style: italic}
.underline {text-decoration: underline}
unit Unt_Machine_WebDll;
{$WARN SYMBOL_PLATFORM OF ......
制作圆角矩形的窗体：
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(0,0,width,height,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
如果不要窗体外框，则使用：
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandl ......
这里先说说两个概念：Theme(主题)和 Visual Style 。Theme 最早出现在 Microsoft Plus! for Windows 95 中，是 Windows 中 Wallpaper、Cursors、Fonts、Sounds 、Icons 等的设置值集合。Visual Style 在 Windows XP 中才被引入，Visual Style 规定了 Contorls 的外观，另外还包括使用这些外观的一套 API ......
《Delphi图像处理 -- 数据类型及内部过程》一文中定义了基本的图像数据类型及一些内部过程，本文进一步将Delphi常用的图像类型转换为图像处理所需的数据结构，为具体的Delphi图像处理过程作准备，同时也要将处理好的图像数据转换为Delphi的常用图像类型。《Delphi图像处理》系列除图像数据转换过程外，� ......
