文档章节

再学 GDI+[82]: TGPImage(2) - GetThumbnailImage - 略缩图

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 158
阅读 7
收藏 0
本例效果图:



代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GDIPOBJ, GDIPAPI;

procedure TForm1.FormPaint(Sender: TObject);
var
  g: TGPGraphics;
  img,imgSmall: TGPImage;
begin
  g := TGPGraphics.Create(Self.Canvas.Handle);

  img := TGPImage.Create('C:\temp\test.png');

  {如果图像没有携带略缩图, 将缩放生成; 略缩图一般不应超过 120*120}
  imgSmall := img.GetThumbnailImage(32, 32, nil, nil);

  g.DrawImage(img, 0, 0, img.GetWidth, img.GetHeight);
  g.DrawImage(imgSmall, img.GetWidth + 4, 0, imgSmall.GetWidth, imgSmall.GetHeight);

  imgSmall.Free;
  img.Free;
  g.Free;
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 151
  ClientWidth = 230
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
end

 
 
 
 
 

 

 

  

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

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
关于略缩图的事情,比较细致的问题!

1.设计师把产品略缩图定义为120px宽,180px高,但我们上传的大图片是不可能都处得标准,有的是2000*3500,有的可能是3800*2300,等等,各种长宽高都可能有。 2.上传后要生成略缩图,不要变形...

彭哥
2012/04/05
403
7
C# WinForm开发系列 - GDI+

UI(User Interface)编程在整个项目开发过程中是个颇为重要的环节,任何好的解决方案若没有良好的用户界面呈现给最终用户,那么就算包含了最先进的技术也不能算是好程序。UI编程体现在两个方...

长征2号
2017/11/14
0
0
微信分享大图遇到的问题(Android)

起因: 要做一个微信图片分享的功能,但是对于大图会如下问题: 当时没有仔细查看错误日志,单纯的以为是图片太大的问题。 分享图片代码: 1 public void WXsharePic(String transaction, f...

懒星人
2018/09/18
0
0
Chrome dev 更新到 10.0.642.2 , 很多新特性

Windows Mac 和 Linux 平台的 Chrome Dev 更新到了 10.0.642.2 所有平台: V8 引擎更新至 3.0.7.0 标签化设置页布局改进 集成标签化的 about:sync 页面,查看数据同步细节 内置 pdf 插件:打...

红薯
2011/01/21
843
2
PDF 文档略缩图--ThumbnailPDF

ThumbnailPDF 可以让你创建 PDF 文档的略缩图。

孔小菜
2015/05/14
217
0

没有更多内容

加载失败,请刷新页面

加载更多

任务调度-单体应用定时任务解决方案

1. 应用场景: 单体应用(并发少、就公司内部使用)、业务比较简单、单一、稳定,传统行业首选,项目初期。 2. 主要方式: Spring XML配置方式,timer。 <bean id="cycleBonusTimer" class="...

秋日芒草
34分钟前
3
0
EditText中singleLine过期替代方法

android:lines="1" android:inputType="text"

球球
48分钟前
1
0
删除 Tomcat-webapps 目录自带项目

本文将 %CATALINA_HOME% 目录称为“tomcat”目录。 1.webapps目录中的项目 在 Tomcat 8.0 的 tomcat/webapps 目录中,含有 5 个 Tomcat 自带的 Web 项目,如下所示: docs 有关于 Tomcat 的介...

Airship
52分钟前
3
0
好文:华杉:我等用功,不求日增,但求日减。减一分人欲,则增一分天理,这是何等简易!何等洒脱!

#写在前面1.怎么理解“减一分人欲,则增一分天理,这是何等简易!”?1)华杉提倡 “一劳永逸” 排除浪费,少干活,多赚钱,一战而定,降低作业成本。2)华杉提倡学海无涯,回头是岸...

阿锋zxf
今天
3
0
vue 的bus总线

bus声明 global.bus = new Vue() 事件发送 controlTabbar () {global.bus.$emit('pickUp', 'ddd')}, 事件接收 global.bus.$on('pickUp', (res) => {this.isFocus = true})......

Js_Mei
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部