Delphi7自带的绘图有锯齿,所以要学习GDI+
主要是从这个网站学习
http://www.bianceng.com/Programming/Delphi/201212/34691.htm
相关控件下载
uses
GDIPAPI,GDIPOBJ; //包含这两个GDI+单元
TColor 与 RGB 的转换函数
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;发表于 2017-12-02 16:59 涂磊 阅读(545) 评论(2) 编辑 收藏
//MakeColor(236,233,216)//clBtnFace