文档章节

如何把几张相同大小的图片拼合在 TImage 中 - 回复 "jxjjljf" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 237
阅读 2
收藏 0

问题来源: http://www.cnblogs.com/del/archive/2009/01/09/1373051.html#1743248

procedure TForm1.Button1Click(Sender: TObject);
var
  Bits: array[0..5] of TBitmap; { 假定有 6 张相同大小的图片需要拼合 }
  i,n,x,y: Integer;             { n 用作列数; x,y 用作位置}
begin
  n := 3; { 假如每行排 3 张; 可随意修改}

  { 读取图片, 假如图片是放在 C:\Temp\ 下, 并命名为 1.bmg、2.bmp ... 6.bmp  }
  ChDir('C:\Temp\');
  for i := 0 to Length(Bits) - 1 do
  begin
    Bits[i] := TBitmap.Create;
    Bits[i].LoadFromFile(IntToStr(i+1) + '.bmp');
  end;

  { 设置 Image1 的大小}
  if (n > Length(Bits)) or (n <= 0) then n := Length(Bits);
  Image1.Width := Bits[Low(Bits)].Width * n;
  Image1.Height := Bits[Low(Bits)].Height * (Length(Bits) div n);
  if Length(Bits) mod n > 0 then
    Image1.Height := Image1.Height + Bits[Low(Bits)].Height;

  { 绘制 }
  x := 0;
  y := 0;
  for i := 0 to Length(Bits) - 1 do
  begin
    Image1.Canvas.Draw(x, y, Bits[i]);
    Inc(x, Bits[i].Width);
    if x >= Image1.Width then
    begin
      x := 0;
      Inc(y, Bits[i].Height);
    end;
    Bits[i].Free;
  end;
end;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2010/01/09/1643019.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Cocos2d-x游戏开发之图片元素

[Cocos2d-x相关教程来源于红孩儿的游戏编程之路 CSDN博客地址:http://blog.csdn.net/honghaier] 红孩儿Cocos2d-X学习园地QQ群:249941957 加群写:Cocos2d-x 本章为我的Cocos2d-x教程一书初...

长平狐
2013/03/19
49
0
Cocos2d-x游戏开发之图片元素

[Cocos2d-x相关教程来源于红孩儿的游戏编程之路 CSDN博客地址:http://blog.csdn.net/honghaier] 红孩儿Cocos2d-X学习园地QQ群:249941957 加群写:Cocos2d-x 本章为我的Cocos2d-x教程一书初...

长平狐
2012/11/19
1K
0
红孩儿纹理打包器1.0 -- 使用说明

红孩儿纹理打包器1.0 -- 使用说明 下载地址:http://download.csdn.net/detail/honghaier/4555969 之前我有讲述如何利用Cocos2d-x开发一个游戏,诚如文章所述,我对于工具是非常重视的。本周...

长平狐
2013/03/19
234
0
红孩儿纹理打包器1.0 -- 使用说明

红孩儿纹理打包器1.0 -- 使用说明 下载地址:http://download.csdn.net/detail/honghaier/4555969 之前我有讲述如何利用Cocos2d-x开发一个游戏,诚如文章所述,我对于工具是非常重视的。本周...

长平狐
2012/11/19
62
0
Cocos2d-x纹理优化的一些方案

[Cocos2d-x相关教程来源于红孩儿的游戏编程之路CSDN博客地址:http://blog.csdn.net/honghaier] 红孩儿Cocos2d-X学习园地QQ群:249941957 加群写:Cocos2d-x 本章为我的Cocos2d-x教程一书初稿...

长平狐
2012/11/19
2.7K
0

没有更多内容

加载失败,请刷新页面

加载更多

以太坊Token通证或者代币的真正作用是什么?

上一篇文章以太坊(Ethereum)与以太(Ether)中,你应该很好地理解以太坊是如何构建以太坊应用程序网络的,这些应用程序需要一个名为Ether的加密货币来运行。现在是时候引入一个更深层的概念...

笔阁
21分钟前
3
0
PHP - 利用P3P实现跨域

P3P是什么 P3P Platform for Privacy Preferences, 是W3C公布的一项隐私保护推荐标准,以为用户提供隐私保护。 P3P标准的构想是:Web 站点的隐私策略应该告之访问者该站点所收集的信息类型、...

hansonwong
21分钟前
2
0
传统SSM框架之微信授权登陆

1、jdbc.properties (下面瞎写的值) WEIXIN_APP_ID=wx5438496a99c8d26acbWEIXIN_APP_SECRET=d070fjcwiefhwr38942dw 2、获取配置属性 /** * @Author:Mujiutian * @Description:微信参......

木九天
22分钟前
2
0
以太坊(Ethereum)与以太(Ether)为什么容易混淆?

客观的来说,以太坊与以太这两个概念很容易混淆。 当我们听到以太坊Ethereum这个词时,我们通常会将它与加密货币(比如比特币)联系起来。虽然这个定义并不完全错误。但重要的是要理解以太坊...

geek12345
23分钟前
2
0
ROS实操笔记四 msg 和srv

msg: msg files are simple text files that describe the fields of a ROS message. They are used to generate source code for messages in different languages. srv: an srv file descr......

placido
24分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部