软件自学网 - 电脑软件学习教程!

软件自学网

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

时间:2014-07-16 10:28来源:网络整理 作者:软件自学网 点击:
在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在16Bits的颜色数的计算机上开发而成,程序的颜色调试得非常漂亮,但是到了一台只支持16色的计算机上,程序变得非常难看。这就需要得到系统的颜色数。 Delphi中如何取得系统的颜色数呢

  在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在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;

(责任编辑:admin)
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------