下载地址：
下载地址1（本站为飞网专业下载站，域名：down.cfei.net）
资源简介：
function WidthOfRect(r: TRect): Integer;begin Result := Abs(r.Right - r.Left);end;function HeightOfRect(r: TRect): Integer;begin Result := Abs(r.Bottom - r.Top);end;procedure GetColorFromRGB(var color: TColor; r, g, b: Integer);begin color := ((b shl 16) and $00FF0000) + ((g shl 8) and $0000FF00) + (r and $000000FF);end;procedure DrawGrayLevelMap(c: TCanvas; r: TRect; const count: Integer = 16);var i, w, h, cl_d, n: Integer; cl: TColor;begin w := WidthOfRect(r); h := HeightOfRect(r);
飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。
