文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 424
阅读 4
收藏 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

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/07/04/1235206.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
CDC绘图总结

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

长平狐
2012/10/08
2.3K
0
bitmap图像介绍

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

技术小胖子
2017/11/14
0
0
基于.NET的图表控件解决方案

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

zkjava
2012/02/23
0
0
图片和图形之使用Palette API选择颜色(5)

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

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

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

lhtzbj12
2017/01/05
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Zookeeper总结

Zookeeper的部分概念 什么是zookeeeper? Zookeeper是一个分布式服务的协调中心 zookeeper节点的角色类型? Leader(领导者)、Follower(跟随者)、Observer(观察者) Leader 负责更新系统...

DemonsI
25分钟前
1
0
Redis学习笔记

常用命令 从Docker进入Redis的命令 sudo docker exec -it redis /bin/bash

OSC_fly
25分钟前
0
0
SqlServer查询某个日期的数据

select * from View_ZJMONITORINGCORROSION where ENTERDATE > CONVERT(datetime,DATEADD(day,1,'2017/12/28 14:53:07'))...

笑丶笑
26分钟前
0
0
常用编码规范

Standard characters https://ascii.cl/

yeahlife
28分钟前
0
0
flannel实战

docker swarm mode的出现是个里程碑,官方原生的编排调度看起来都成雏形了,但是swarm mode和容器外部系统的对接、网络性能始终不尽人意,swarm mode下各种开源周边不能使用,感觉swarm mod...

China_OS
30分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部