我在Form中有一张大的图像Image1,在大图像上又加有多张小图像,Image2,Image3...
显示时效果很好,可是我想将这些图像保存在一张图像中Image1.
我在论坛上没有找到相关的资料,请大侠帮忙。
显示时效果很好,可是我想将这些图像保存在一张图像中Image1.
我在论坛上没有找到相关的资料,请大侠帮忙。
解决方案 »
- 用DELPHI打开EXCEL时,如何把EXCEL“所有”的工具栏都隐藏掉呢?
- 关于错误:Access violation at address 0000634D,Read of address 0000634D
- !!!成功编译过 胜天(财务)进销存的高手请进来,高分相送
- 关于Dcomconnection在多网段局域网中的连接问题,在线急等!!!
- 菜鸟问关于字符串的问题,谢谢。
- 改文件名应该很简单,可我就试不出来
- 有关用ADO联接数据库的问题?
- keydown事件可以处理鼠标事件吗,在帮助中有呀,可实际为什么不行
- 我用spcom做了一个串口通讯软件,用一会就不通讯了,不知哪位有高
- 怎样通过Query读取和写入字段长度大于255的字段内容?100分奉送
- 跟自負串有關的一個問題(在線急等)
- 谁有有关多线程定时器的例子!!!!!!!!!!!!!!!!!!!!!
HRGN hrgnSrc1, // handle to source region
HRGN hrgnSrc2, // handle to source region
int fnCombineMode // region combining mode
);
image1.picture.savetofile yourpicpath
在论坛上我不知短信怎么发,能否把源码发给我,谢谢![email protected]
[email protected]
和temp.Picture.SaveToFile('temp.BMP');
保存的文件都有1M之多怎样才能压缩?procedure TForm1.N3Click(Sender: TObject);
var
BitmapSave:TBitmap;
RectD:TRect;
temp:TImage;
begin
BitmapSave:=TBitmap.Create;
temp:=TImage.Create(self);
try
Bitmapsave.Transparent := True;
Bitmapsave.PixelFormat:=pf24bit;
Bitmapsave.TransparentMode := tmAuto;
BitMapSave.Width:=BGImage.Width;
BitmapSave.Height:=BGimage.Height;
with RectD do
begin
top:=BGImage.Top;
left:=BGImage.Left;
Right:=BGImage.Width;
Bottom:=BGImage.Height;
end;
Bitmapsave.Canvas.StretchDraw(RectD,BGImage.Picture.Graphic);
with RectD do
begin
top:=photo.Top;
left:=photo.Left;
Right:=photo.Width+photo.Left;
Bottom:=photo.Height+photo.Top;
end;
Bitmapsave.Canvas.StretchDraw(RectD,photo.Picture.Graphic);
temp.Picture.Graphic:=Bitmapsave;
temp.Picture.SaveToFile('temp.jpg'); finally
Bitmapsave.Free;
end;end;