您的位置: 首页 > 软件教程 > Delphi教程专题 > Delphi中如何取得系统支持的颜色数

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

8.0分
出处:网络 时间:2011-08-05

您可能感兴趣的话题: 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;

网友评论
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]