Delphi中如何取得系统支持的颜色数-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝29
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:186回复:0

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

楼主#
更多 发布于:2016-06-06 19:05

在自个的软件中

经常需要

得知运转本软件的体系

支撑的

色彩数 。例如有的软件在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;

镜头选购必懂 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;

优质IT资源分享社区为你提供此文。

本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。

Delphi教程视频

优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客