zoukankan      html  css  js  c++  java
  • 创建调色板

    procedure TForm1.Button1Click(Sender: TObject);
    var
      lpPalette : PLogPalette;
      hPal : hPalette;
      i : integer;
    begin
    
     {Allocate the memory used by the palette}
      GetMem(lpPalette,
             sizeof(TLogPalette) + (255 * sizeof(TPaletteEntry)));
    
     {Fill out the palette header}
      lpPalette^.palVersion := $300;
      lpPalette^.palNumEntries := 256;
    
     {Turn range checking off if it is on and}
     {remember the range checking state}
     {$IFOPT R+}
       {$DEFINE CKRANGE}
       {$R-}
     {$ENDIF}
    
     {Fill in the palette structure color table with shades of gray}
      for i := 0 to 255 do begin
        lpPalette^.PalPalEntry[i].peRed := i;
        lpPalette^.PalPalEntry[i].peGreen := i;
        lpPalette^.PalPalEntry[i].peBlue := i;
      end;
    
     {Turn range checking back on if it was on when we started}
     {$IFDEF CKRANGE}
       {$UNDEF CKRANGE}
       {$R+}
     {$ENDIF}
    
     {Create a palette handle}
      hPal := CreatePalette(lpPalette^);
    
     {Free the memory use by the palette structure}
      FreeMem(lpPalette,
              sizeof(TLogPalette) + (255 * sizeof(TPaletteEntry)));
    
     {Do something with the palette here}
    
     {Delete the palette handle after use}
      DeleteObject(hPal);
    end;
  • 相关阅读:
    Node.js:工具模块
    Node.js:GET/POST请求
    shell之任务控制
    java实现杨辉三角系数
    java实现显示为树形
    java实现显示为树形
    java实现显示为树形
    java实现显示为树形
    java实现显示为树形
    java实现文件管理
  • 原文地址:https://www.cnblogs.com/yzryc/p/6373583.html
Copyright © 2011-2022 走看看