Delphi7自带的绘图有锯齿，所以要学习GDI+

主要是从这个网站学习

http://www.bianceng.com/Programming/Delphi/201212/34691.htm

相关控件下载

GDIPLUS_D7.rar

uses
GDIPAPI,GDIPOBJ; //包含这两个GDI+单元

function RGB2TColor(const R, G, B: Byte): Integer;
begin
  // convert hexa-decimal values to RGB
  Result := R + G shl 8 + B shl 16;
end;


procedure TColor2RGB(const Color: TColor; var R, G, B: Byte);
begin
  R := Color and $FF;
  G := (Color shr 8) and $FF;
  B := (Color shr 16) and $FF;
end;
//MakeColor(236,233,216)//clBtnFace

function RGB2TColor(const R, G, B: Byte): Integer;
begin
  // convert hexa-decimal values to RGB
  Result := R + G shl 8 + B shl 16;
end;


procedure TColor2RGB(const Color: TColor; var R, G, B: Byte);
begin
  R := Color and $FF;
  G := (Color shr 8) and $FF;
  B := (Color shr 16) and $FF;
end;
//MakeColor(236,233,216)//clBtnFace