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

  • 内容
  • 评论
  • 相关

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

原创文章,转载请注明: 转载自搞代码

本文链接地址: Delphi中如何取得系统支持的颜色数_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注