当前位置:首页 > 开发教程 > Delphi教程 >

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

时间:2013-09-22 09:20 来源: 作者: 收藏

2345软件教程,为您打造全面的软件教程手册,无论是新奇小软件的操作还是专业软件的使用技巧,2345软件教程都会为您解疑释惑。

核心提示:在自己的软件中经常需要得知运行本软件的系统支持的颜色数。

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

最新文章