再学GDI+[15]: GDIPAPI 单元提供的Make及Color系列函数

function MakePoint(X, Y: Integer): TGPPoint; overload;
function MakePoint(X, Y: Single): TGPPointF; overload;
function MakeSize(Width, Height: Integer): TGPSize; overload;
function MakeSize(Width, Height: Single): TGPSizeF; overload;
function MakeRect(x, y, width, height: Integer): TGPRect; overload;
function MakeRect(x, y, width, height: Single): TGPRectF; overload;
function MakeRect(location: TGPPoint; size: TGPSize): TGPRect; overload;
function MakeRect(location: TGPPointF; size: TGPSizeF): TGPRectF; overload;
function MakeRect(const Rect: TRect): TGPRect; overload;
function MakeColor(r, g, b: Byte): ARGB; overload;
function MakeColor(a, r, g, b: Byte): ARGB; overload;
function MakeCharacterRange(First, Length: Integer): TCharacterRange;

//获取透明度

function GetAlpha(color: ARGB): BYTE;

//获取红色成分

function GetRed(color: ARGB): BYTE;

//获取绿色成分

function GetGreen(color: ARGB): BYTE;

//获蓝色成分

function GetBlue(color: ARGB): BYTE;

//Delphi 颜色转换到 GDI+ 颜色

function ColorRefToARGB(rgb: COLORREF): ARGB;

//GDI+ 颜色转换到 Delphi 颜色

function ARGBToColorRef(Color: ARGB): COLORREF;

时间: 2024-10-29 12:46:34

再学GDI+[15]: GDIPAPI 单元提供的Make及Color系列函数的相关文章

再学GDI+[98]: TGPImage(18)

和在 Net 中不同的是, 在具体指定图像格式时, 这里常常需要的不是格式名称, 而是格式的 GUID; 知道了格式名称, 用 GetEncoderClsid 函数可以获取格式的 GUID; GetEncoderClsid 函数来自 GDIPUTIL 单元, 本例并没有用到前面一直不可或缺的 GDIPOBJ.GDIPAPI 单元. 如果要获取 image/bmp.image/jpeg.image/gif.image/tiff.image/png 格式以外的 GUID 不能使用此函数. 另外, 为

再学GDI+[95]: TGPImage(15)

我通过做此例同时证实了 GDI+ 可以直接显示 png.gif.tif 格式的透明图片. //红色与绿色绕蓝色旋转(r 是弧度) ColorMatrix: TColorMatrix = ( (Cos(r), Sin(r), 0.0, 0.0, 0.0), (-Sin(r), Cos(r), 0.0, 0.0, 0.0), (0.0, 0.0, 1.0, 0.0, 0.0), (0.0, 0.0, 0.0, 1.0, 0.0), (0.0, 0.0, 0.0, 0.0, 1.0)); //绿色与蓝

再学GDI+[99]: TGPImage(19)

本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; procedure FormCrea

再学GDI+[97]: TGPImage(17)

获取GDI+所支持的可编码.可解码的图像格式 其实这和 TGPImage 是没有关系的. 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TO

再学GDI+[76]: 区域(5)

本来这个例子是要获取区域的详细信息的, 但非常遗憾, 这个版本的 GDI+ 的头文件少定义了一个 TRegionData 类! 不过也不要紧, 通过 TRegionData 主要也是获取区域中的矩形数据, GetRegionScans 函数可以完成这个任务! 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialog

再学GDI+[73]: 区域(2)

Intersect {交集} Union {联合} Xor_ {减去交集} Exclude {减去} Complement {不相交} //GDI+ 的区域能和矩形.路径.另一个区域三种对象进行运算. 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type T

再学GDI+[72]: 区域(1)

建立 GDI+ 的区域有五种办法: 1.根据一个矩形建立(矩形区域); 2.根据路径建立; 3.根据 GDI 区域的句柄建立; 4.根据从区域中获取的数据建立; 5.无参数建立. 本例演示了前三种建立方法. 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; typ

再学GDI+[69]: 路径画刷(9)

SetInterpolationColors 与 SetSurroundColors 的区别 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm) procedure FormPaint(Sen

再学GDI+[65]: 路径画刷(5)

本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses GDIPOBJ