文档章节

再学 GDI+[90]: TGPImage(10) - 获取图像的调色板信息

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 424
阅读 4
收藏 0
点赞 0
评论 0
本例效果图:



代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DrawGrid1: TDrawGrid;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GDIPOBJ, GDIPAPI, Math;

var
  img: TGPImage;

procedure TForm1.FormCreate(Sender: TObject);
begin
  {调整 DrawGrid1 显示效果}
  with DrawGrid1 do
  begin
    Align := alRight;
    Width := 180;
    FixedCols := 0;
    FixedRows := 0;
    DefaultColWidth := 10;
    DefaultRowHeight := 10;
    ColCount := 0;
    RowCount := 1;
    DefaultDrawing := False;
    ScrollBars := ssNone;
  end;

  Button1.Left := ClientWidth - DrawGrid1.Width - Button1.Width;
  Button1.Top := 0;

  img := TGPImage.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  img.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  g: TGPGraphics;
begin
  g := TGPGraphics.Create(Self.Canvas.Handle);
  g.DrawImage(img, 0, 0, img.GetWidth, img.GetHeight);
  g.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Palette: PColorPalette; {调色板指针}
  ColorNum: Integer;      {调色板中的颜色总数}
  Colors: PGPColor;       {调色板中的颜色数组指针}
  i: Integer;
begin
  OpenDialog1.Filter := 'All (*.png;*.gif;*.bmp;*.tif;*.jpg)|*.png;*.gif;*.bmp;*.tif;*.jpg';
  if not OpenDialog1.Execute then Exit;
  img.Free;
  img := TGPImage.Create(OpenDialog1.FileName);

  Text := ExtractFileName(OpenDialog1.FileName);

  {为调色板分配内存}
  GetMem(Palette, img.GetPaletteSize);
  {获取调色板数据}
  img.GetPalette(Palette, img.GetPaletteSize);

  DrawGrid1.ColCount := 0;
  DrawGrid1.RowCount := 1;

  if Palette^.Count = 0 then
  begin
    ShowMessage('此图片没有调色板');
    Exit;
  end;

  ColorNum := Palette^.Count;
  Colors := @Palette.Entries; {调色板中颜色数组的指针}

  if ColorNum < 16 then DrawGrid1.ColCount := ColorNum else
  begin
    DrawGrid1.ColCount := 16;
    DrawGrid1.RowCount := ColorNum div 16;
  end;
  DrawGrid1.Refresh; {不刷新不行}

  for i := 0 to ColorNum - 1 do
  begin
    DrawGrid1.Canvas.Brush.Color := ARGBToColorRef(Colors^);
    DrawGrid1.Canvas.FillRect(DrawGrid1.CellRect(i mod 16, i div 16));
    Inc(Colors);
  end;

  FreeMem(Palette);
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 187
  ClientWidth = 400
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object DrawGrid1: TDrawGrid
    Left = 192
    Top = 8
    Width = 193
    Height = 137
    TabOrder = 0
  end
  object Button1: TButton
    Left = 8
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object OpenDialog1: TOpenDialog
    Left = 96
    Top = 8
  end
end

 
 
 
 
 

 

 

  

© 著作权归作者所有

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
GDI Remote 简介

概要 基本的显示驱动工作在单线程模式下,GDI有一个全局锁(光标工作在另一个线程,不在GDI的全局锁范围内)。 GDI | | V Display driver <----> Server--->Client. GDI指令先用标准的软件驱...

xtxb ⋅ 2012/06/09 ⋅ 0

bitmap图像介绍

典型的BMP图像文件由四部分组成:   1:位图文件头数据结构,它包含BMP图像文件的类型、显示内容等信息;   2:位图信息数据结构,它包含有BMP图像的宽、高、压缩方法,以及定义颜色等信...

技术小胖子 ⋅ 2017/11/14 ⋅ 0

CDC绘图总结

GDI总结:http://dingchaoqun12.blog.163.com/blog/static/11606250420112213396361/ 对话框 控件 视图类 应用程序框架都会调用该CWnd的消息响应成员函数(的覆盖)来绘制窗口客户区。 在Win...

长平狐 ⋅ 2012/10/08 ⋅ 0

图片和图形之使用Palette API选择颜色(5)

原文 概要 良好的视觉设计对于成功的应用程序至关重要,色彩方案是设计的主要组成部分。调色板库是一个 支持库 ,可从图像中提取突出的颜色,帮助您创建视觉上吸引人的应用程序。 您可以使用...

lichong951 ⋅ 05/25 ⋅ 0

基于.NET的图表控件解决方案

.netCHARTING是一个非常棒的.NET图表控件,对中文支持非常好,而且操作方便,开发快速,既有webform 也有winform的。 .netCHARTING结合眩目的图形和全面的接口,为您带来的任何平台上的最引人...

zkjava ⋅ 2012/02/23 ⋅ 0

C#中基于GDI+(Graphics)图像处理系列之任意角度旋转图像

简介 图像旋转功能在实际使用中出现得不多,Image自带RotateFlip方法可以简单的实现90、180等角度的旋转或者翻转,但是如果要实现任意角度的旋转该怎么做?对于一个有经验的同学估计不到半天...

lhtzbj12 ⋅ 2017/01/05 ⋅ 0

giflib 解码 gif 图片

本文将会介绍怎样用giflib解码gif图片。giflib可以在这里下载。 gif文件格式简单介绍 在解码jpeg图片和png图片的时候我们不需要对jpeg和png文件格式有了解就可以解码了(了解jpeg和png当然更...

红薯 ⋅ 2012/06/19 ⋅ 4

数据压缩原理与应用 图像文件的读写和转换(BMP2YUV)实验报告

一、实验原理 1.BMP文件的组成结构 BMP(全称 Bitmap )是Windows操作系统中的标准图像文件格式 ,可以分成两类:设备相关位图(DDB )和设备无关位图( DIB),使用非常广。它采用位映射存...

zgyggy ⋅ 2017/03/22 ⋅ 0

DevExpress v17.2新版亮点—Windows 10篇

用户界面套包DevExpress v17.2日前终于正式发布,本站将以连载的形式为大家介绍各版本新增内容。本文将介绍了Windows 10 Controls v17.2 的新功能,快来下载试用新版本!点击下载>> Grid Con...

Miss_Hello_World ⋅ 03/07 ⋅ 0

[非原创] 用于将真彩色图像降级为索引图像的八叉树算法

    本文介绍的内容,是用八叉树法降级一个真彩色图像(BPP=16以上)。这也是某公司在今年校园招聘中的笔试中的最后一道题目。我参考了 Jeff Prosise 所写的这篇文章(见参考资料),然后...

hoodlum1980 ⋅ 2010/10/27 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

1.01-StringUtils的使用

import org.apache.commons.lang.StringUtils; 一、StringUtils 常用的方法: 1. 判断某一字符串是否为空 , 为空的标准是 str==null 或 str.length()==0 StringUtils.isEmpty(null) ==>tr......

静以修身2025 ⋅ 16分钟前 ⋅ 0

几道Spring 面试题

1、BeanFactory 接口和 ApplicationContext 接口有什么区别? ApplicationContext 接口继承BeanFactory接口 Spring核心工厂是BeanFactory BeanFactory采取延迟加载,第一次getBean时才会初始...

职业搬砖20年 ⋅ 18分钟前 ⋅ 0

包饺子

http://storage.slide.news.sina.com.cn/slidenews/77_ori/2018_24/74766_826131_625489.gif

霜叶情 ⋅ 19分钟前 ⋅ 0

兑吧:从自建HBase迁移到阿里云HBase实战经验

摘要: 业务介绍 兑吧集团包含兑吧网络和推啊网络,兑吧网络是一家致力于帮助互联网企业提升运营效率的用户运营服务平台,提供积分商城和媒体运营服务。推啊网络是一家互动式广告平台,经过多...

猫耳m ⋅ 30分钟前 ⋅ 0

xml解析

方法一: String s_xml1 = "<xml>" + "<head>lalalalal</head>" + "<body>1234</body>" + "</xml>"; try { DocumentBuilderFactory documentBuilderFactory......

GithubXD ⋅ 31分钟前 ⋅ 0

reuse stream

Although Java streams were designed to be operated only once, programmers still ask how to reuse a stream. From a simple web search, we can find many posts with this same issue ......

idoz ⋅ 31分钟前 ⋅ 0

兑吧:从自建HBase迁移到阿里云HBase实战经验

摘要: 业务介绍 兑吧集团包含兑吧网络和推啊网络,兑吧网络是一家致力于帮助互联网企业提升运营效率的用户运营服务平台,提供积分商城和媒体运营服务。推啊网络是一家互动式广告平台,经过多...

阿里云云栖社区 ⋅ 33分钟前 ⋅ 0

从世界杯看国内运动体育社交新能量

2018年世界杯已正式拉开帷幕,一场全世界球迷的狂欢也正式开始。 世界杯影响力:30亿+球迷的狂欢+社交话题 世界杯这个超级IP和对社交网络的引爆让更多的人目光聚焦到国内运动体育社交这个层...

ThinkSNS账号 ⋅ 34分钟前 ⋅ 0

不固定值替换

<?php$arr = 20;$data = str_replace(array(10,20,30,40),array("blue","red","green","yellow"),$arr);print_r($data);...

nsns ⋅ 35分钟前 ⋅ 0

Job for nginx.service failed 错误解决方案

今天刚在centos7上安装了nginx-1.2.11,/etc/init.d/nginx start启动时,出现 Job for nginx.service failed because the control process exited with error code. See "systemctl status n......

河图再现 ⋅ 37分钟前 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部