Delphi图像处理
图像旋转，是指按照给定的角度，计算出图像每个像素坐标点在新图像上的坐标位置，从而实现整个图像坐标变换的图像处理手段。其像素坐标的变换公式为：
(1)、x' = x * cos(angle) + y * sin(andle)
y' = x * cos(andle) - y * sin(angle)
公式中，x'，y'为变换后的像素坐标点，x，y为变换前像素坐标点，angle为旋转角度。
但是，按照上面的公式旋转图像，会出现多个原图像像素点对应新图像同一个点的问题，这不仅会多消耗图像旋转处理的时间，而且也会使旋转后的图像产生不必要的失真，如果是32位带Alpha通道像素格式的图像，更会因此造成图像的混乱，所以在实际的图像旋转处理代码中，是以目标图（旋转后的图像）的像素坐标点，逐点反推原图像素的位置，这样，目标图的各个像素点既不会重复，也不会遗漏。其计算公式为：
(2)、x = x' * cos(angle) - y * sin(angle)
y = y' * cos(angle) + y * sin(angle)
下面是Delphi图像旋转处理的代码：
过程定义：
// 获取Width * Height图像旋转Angle时，完全包含图像所需尺寸
function GetRotateSize(Width, Height: Integer; Angle: Single): TSize;
// 旋转图像，OffsetX和OffsetY分别为图像偏移量，为0时Source与Dest左上边对齐，
// Alpha为顺时针旋转角度，IpMode为插值方式
procedure ImageRotate(Dest: TImageData; OffsetX, OffsetY: Integer;
const Source: TImageData; Angle: Single; IpMode: TInterpolateMode = imDefault); overload;
// 图像自身旋转，中心点在图像的中央
procedure ImageRotate(Data: TImageData; Angle: Single;
ColorBackground: LongWord = 0; IpMode: TInterpolateMode = imDefault); overload;
// 按缺省方式旋转图像（Source与Dest左上边对齐）。
procedure ImageRotate(Dest: TImageData; const Source: TImageData;
Angle: Single; IpMode: TInterpolateMode = imDefault); overload;
// TGraphic对象旋转到Dest
procedure ImageRotate(Dest: TImageData;
const Source: TGraphic; Angle: Single; IpMode: TInterpolateM
相关文档：
制作圆角矩形的窗体：
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 ......
前言
尽三年来，本人陆续写了六十多篇BOLO文章，其中绝大部分是有关图像处理的，因此，有人戏称我为图像处理专家（或GDI+专家），此戏称当然是对我的赞扬，但我自己却觉得略含一丝丝贬义，即除了图像处理，别的方面（如网络、数据库等）都不咋的，事实也确实如此。
我是一名机关工 ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;
t ......
方法一：
控件类叫做 TABC,文件名叫 abc.pas 那么新建立一个文件叫
abc.rc
里面内容是
TABC Bitmap icon.bmp
icon.bmp 就是图片文件名，不要超过256色，24x24
然后在命令行下执行 brcc32 abc.rc就会生成 abc.res
改名为 abc.dcr
打开你控件的 dpk文件， 加上 {$R ABC.DCR}
重新编译就可以了。
便捷方 ......
Delphi的TCanvas以及派生类提供了显示TGraphic图像的方法Draw，其实这个方法本身并没有显示图像的功能，只是反过来调用了一下TGraphic的Draw方法。TGraphic本身是个抽象类，其Draw方法也是个纯虚方法，所以TGraphic的所有派生类必须提供一个具体的Draw方法。TGraphic的主要派生类TBitmap也有一个Draw方� ......
