Hi,网页设计师综合门户欢迎您!
设为首页  加为收藏  我要投稿找回密码免责声明意见反馈

招聘精英个人求职推广网站网友作品网页特效动画欣赏网页素材酷站欣赏源码下载设计软件

  • 全站搜索
  • 新闻资讯
  • 网页教程
  • 平面教程
  • 程序设计
  • 视频教程
  • Flash教程

网页设计师提供网页设计、网站程序开发、系统开发等,请联系QQ 103198680

 您当前的位置:首页 > 阅读文章
网页设计师综合门户欢迎您!

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

刊登方式:转载   来源:网络  作者:  关键词:平面设计理念  更新时间:2017/8/5

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