我用Timage 控件,想一次拷贝一块图片区域到Timage上,要拷贝很多小块的图片到Timage上,开始时Timage上是没有图片的,拷贝时我用的函数是Form1.Image1.Canvas.CopyRect(........);因为要拷贝图象到Timage上,所以我在代码中动态改变它的width和height 。但是每次复制一块图片上去后,都显示不出来啊,用repaint和refresh都不行啊。因为我是吧Timage放在scrollbox里面所以当CopyRect几次后,由于scrollbox的滚动条显示出来,这说明Timage的大小是在变化啊,但是图象为什么显示不出来呢??搞了两天了,就是不行,我都快晕死了,请教高手!!!谢谢!!裸体跪谢!!!!
解决方案 »
- dbgrid 或dbgrideh标题分两行,要怎么设,那位大大帮忙下啊
- 如何在程序中画出wav文件的波形图啊?
- 读出coms 70H 71h
- 查询问题.请路过的兄弟们。进来看看。
- 一个很菜很菜的问题!
- websnap的问题?
- 读取数据库中的图片时报:jpeg error #53是什么错?我的代码如下?
- 用ADO修改记录的问题!
- 请教:如何使DBgrid的某一列不显示出来
- ####### 20分#########关于DBGrid 和DBMemo 同时使用的问题
- 放分.. 不能容忍的问题!!!! x:=0; for i:=0 to x-1 do something ; i=? 大家知道吗?
- 关于条形码问题
变量说明:image1是目标控件,image2是源控件,MyRect1是image2上的一个区域,我就是要把image2上的MyRect1区域考贝到image1上,因为要考很多个区域,考贝到image1上是并列放在一起的。procedure TForm1.Image1EndDrag(Sender, Target: TObject; X, Y: Integer);//拖动结束
begin
if(CanDrop) then
begin
if(Form1.Image1.Height<(MyRect1.Bottom-MyRect1.Top))
then Form1.Image1.Height:=MyRect1.Bottom-MyRect1.Top;
//改变高度,让image1的高度能让所有的小区域全部显示
Form1.Image1.Width:=Form1.Image3.Width+MyRect1.Right-MyRect1.Left;
//加宽,以足够容纳新拷贝来的区域
Form1.Image1.Canvas.CopyRect(Rect(Form1.Image1.Width-(MyRect1.Right-MyRect1.Left),0,Form1.Image1.Width,Form1.Image1.Height),Form1.Image2.Canvas,MyRect1);
end;
CanDrop:=false;
end;
我第一次用delphi 写程序,谢谢。我本来是用VC#的。
用TbitMap,处理完才使用TImage显示,这样该没问题吧?试一试看看http://lysoft.7u7.net
望大虾指点!或者提供一个什么解决方案。