Delphi中如何取得系统支持的颜色数
你经常需要知道自己软件中运行这个软件的系统支持的颜色数量。举个例子,有些软件是在16位彩色电脑上开发的,程序的色彩调试很漂亮,但是到了只支持16色的电脑上,程序就变得很难看了。我们需要得到系统的颜色数。
如何在Delphi中获取系统的色号?
下面的过程将解决这个问题。
函数GetSysColorNum:Integer;
Var
screen DC:HDC;
numbits pixel:Integer;
begin
Result:= 0;
ScreenDc:= GetDC(0);
numbits pixel:= GetDeviceCaps(ScreenDc,bit pixel);
release DC(screen DC);
结果:= 1 shl NumBitsPixel
End;
0条评论