xgraphics.txt

我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面

unit xGraphics;


//将TColor转换为红绿蓝三原色字符串
function ColorToRGBString(AColor: TColor): string;

//将红绿蓝三原色字符串转换为TColor
function RGBStringToColor(RGBStr: string): TColor;

//输入图标文件名或图标资源表示字符串，取回包含该图标的ICON。如：
//LoadIconEx('ultima.ico');
//LoadIconEx('e:\winnt\system32\shell32.dll,15');
function LoadIconEx(const Filename: string;  DefaultIcon: HICON = 0): HICON;

// 将光标图案转为 HICON 以便显示
//CursorToIcon(LoadCursor(hInstance,IDC_WAIT),True);
function CursorToIcon(const hc: HCURSOR; bDestroyCursor: Boolean = False): HICON;

//指示颜色位数
function ColorNumToStr(Num: Integer): string;