D devilsniffer Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-12 #1 我想在Graphics.pas单元中提取ColorToRGB这个函数,不知道那位高手能帮帮忙?
A Anskya Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-12 #2 代码: <br>function ColorToRGB(Color: Integer): Longint;<br>begin<br> if Color < 0 then<br> Result := GetSysColor(Color and $7F) else<br> Result := Color;<br>end;<br>
代码: <br>function ColorToRGB(Color: Integer): Longint;<br>begin<br> if Color < 0 then<br> Result := GetSysColor(Color and $7F) else<br> Result := Color;<br>end;<br>
D delfier Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-12 #3 没明白提取函数是什么意思。<br>直接引用该单元,使用该函数不就行了。