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;
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;
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】