zoukankan      html  css  js  c++  java
  • 8,16,24 颜色

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;

    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    var   DevMode:   TDeviceMode;
    begin
        if   EnumDisplaySettings(nil,   0,   DevMode)   then   begin
            DevMode.dmFields   :=   DM_BITSPERPEL;
            //   8   -   256色,16   -   16位增强色,32   -   32位真彩色
            DevMode.dmBitsPerPel   :=   8;
            if   ChangeDisplaySettings(DevMode,0)   <>   DISP_CHANGE_SUCCESSFUL   then
                ShowMessage( '无法更改! ');
        end;
    end;

    procedure TForm1.Button4Click(Sender: TObject);
    var   DevMode:   TDeviceMode;
    begin
        if   EnumDisplaySettings(nil,   0,   DevMode)   then   begin
            DevMode.dmFields   :=   DM_BITSPERPEL;
            //   8   -   256色,16   -   16位增强色,32   -   32位真彩色
            DevMode.dmBitsPerPel   :=   32;
            if   ChangeDisplaySettings(DevMode,0)   <>   DISP_CHANGE_SUCCESSFUL   then
                ShowMessage( '无法更改! ');
        end;
    end;

    procedure TForm1.Button3Click(Sender: TObject);
    var   DevMode:   TDeviceMode;
    begin
        if   EnumDisplaySettings(nil,   0,   DevMode)   then   begin
            DevMode.dmFields   :=   DM_BITSPERPEL;
            //   8   -   256色,16   -   16位增强色,32   -   32位真彩色
            DevMode.dmBitsPerPel   :=   16;
            if   ChangeDisplaySettings(DevMode,0)   <>   DISP_CHANGE_SUCCESSFUL   then
                ShowMessage( '无法更改! ');
        end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
    case   GetDeviceCaps(GetDC(GetDesktopWindow),   BITSPIXEL)   of
            8:     ShowMessage( '256色 ');
            16:   ShowMessage( '16位增强色 ');
            32:   ShowMessage( '32位真彩色 ');
        end;
    end;
    end;

  • 相关阅读:
    Java实现 LeetCode 343 整数拆分(动态规划入门经典)
    Java实现 LeetCode 342 4的幂
    Java实现 LeetCode 342 4的幂
    Java实现 LeetCode 342 4的幂
    Java实现 LeetCode 341 扁平化嵌套列表迭代器
    Java实现 LeetCode 341 扁平化嵌套列表迭代器
    Java实现 LeetCode 341 扁平化嵌套列表迭代器
    Java实现 LeetCode 338 比特位计数
    H264(NAL简介与I帧判断)
    分享一段H264视频和AAC音频的RTP封包代码
  • 原文地址:https://www.cnblogs.com/zerovirs/p/1765503.html
Copyright © 2011-2022 走看看