文档章节

再学 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.4K
0
C#中基于GDI+(Graphics)图像处理系列之任意角度旋转图像

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

lhtzbj12
2017/01/05
0
0
基于.NET的图表控件解决方案

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

zkjava
2012/02/23
0
0
bitmap图像介绍

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

技术小胖子
2017/11/14
0
0
图片和图形之使用Palette API选择颜色(5)

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

lichong951
05/25
0
0

没有更多内容

加载失败,请刷新页面

加载更多

render常用模版 结合iview

表格添加一对按钮 { title: '操作', align: 'center', render: (h, params) => { return h('div', [ h('Button', { props: { ......

Carbenson
20分钟前
1
0
一次生产 CPU 100% 排查优化实践

前言 到了年底果然都不太平,最近又收到了运维报警:表示有些服务器负载非常高,让我们定位问题。 还真是想什么来什么,前些天还故意把某些服务器的负载提高(没错,老板让我写个 BUG!),不...

crossoverJie
27分钟前
8
0
Spring Cloud Alibaba Sentinel 整合 Feign 的设计实现

作者 | Spring Cloud Alibaba 高级开发工程师洛夜 来自公众号阿里巴巴中间件投稿 前段时间 Hystrix 宣布不再维护之后(Hystrix 停止开发。。。Spring Cloud 何去何从?),Feign 作为一个跟 ...

Java技术栈
44分钟前
9
0
虚拟机加密

在超融合的基础设施和虚拟化成为常态的世界里,对加密的要求越来越高,越来越迫切,IT部门需考虑的重大安全问题和方法也浮现了出来。 物理数据中心时代,采取双保险式数据安全方法是相对简单...

linuxCool
47分钟前
2
0
MySQL 主从同步

MySQL主从介绍 MySQL主从又叫做Replication、AB复制。简单讲就是A和B两台机器做主从后,在A上写数据,另外一台B也会跟着写数据,两者数据实时同步的 MySQL主从是基于binlog的,主上须开启bin...

野雪球
59分钟前
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部