• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

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

Delphi 搞代码 3年前 (2018-08-09) 145次浏览 已收录 0个评论

   在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在16Bits的颜色数的计算机上开发而成,程序的颜色调试得非常漂亮,但是到了一台只支持16色的计算机上,程序变得非常难看。这就需要得到系统的颜色数。
  Delphi中如何取得系统的颜色数呢?下面的程序就解决这个问题。

function GetSysColorNum:Integer;
Var
    ScreenDc:HDC;
    NumBitsPixel:Integer;
begin
    Result:=0;
    ScreenDc:=GetDC(0);

http://www.gaodaima.com/?p=65978Delphi中如何取得系统支持的颜色数_Delphi

    NumBitsPixel:=GetDeviceCaps(ScreenDc,BITPIXEL);
    ReleaseDC(ScreenDC);
    Result:=1 shl NumBitsPixel;
End;

欢迎大家阅读《Delphi中如何取得系统支持的颜色数_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址