Delphi中如何取得系统支持的颜色数

时间:2007-10-04 00:22:10   来源:chinaitzhe.com  作者:ChinaITzhe  编辑:gaopoadmin

在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在16Bits的颜色数的计算机上开发而成，程序的颜色调试得非常漂亮，但是到了一台只支持16色的计算机上，程序变得非常难看。这就需要得到系统的颜色数。

Delphi中如何取得系统的颜色数呢？下面的程序就解决这个问题。 

function GetSysColorNum:Integer;            Var            　　　 ScreenDc:HDC;            　　　 NumBitsPixel:Integer;            begin            　　　 Result:=0;            　　　 ScreenDc:=GetDC(0);            　　　 NumBitsPixel:=GetDeviceCaps(ScreenDc,BITPIXEL);            　　　 ReleaseDC(ScreenDC);            　　　 Result:=1 shl NumBitsPixel;            End;

关键字：Delphi中如何取得系统支持的颜色

相关文章

    无相关信息

文章评论

共有 0 位网友发表了评论 此处只显示部分留言 点击查看完整评论页面

最新信息

最新代码下载