Procedure ScaleBitMap(Sca: Integer);
var
MyBitMap:TBitMap;
begin
MyBitMap :=TBitmap.Create;
MyBitMap.Width :=Sca * Image1.Width;
MyBitMap.Height :=Sca * Image1.Height;
MyBitMap.Canvas.StretchDraw(Rect(0,0,MyBitMap.Width,MyBitMap.Height),Image1.Picture.Bitmap);
Image2.Picture.Bitmap :=MyBitMap;
end;
var
MyBitMap:TBitMap;
begin
MyBitMap :=TBitmap.Create;
MyBitMap.Width :=Sca * Image1.Width;
MyBitMap.Height :=Sca * Image1.Height;
MyBitMap.Canvas.StretchDraw(Rect(0,0,MyBitMap.Width,MyBitMap.Height),Image1.Picture.Bitmap);
Image2.Picture.Bitmap :=MyBitMap;
end;
解决方案 »
- DELPHI单元向导外挂专家技术(开放源代码)
- dbgrideh中的修改 行选 时选中记录的背景色?
- 问个select的问题,直接选出字段和某参数的积
- 设定DbGridEh合计行信息问题,在线等
- Application.ProcessMessages; 什么意思,做什么用的?在c#中用什么代替??
- 4927252 delphi 群 大家一起加呀.共同学习
- 有那位大哥对MQ有了解的啊
- 沉迷游戏的我。。。。。怎么办?!散分。
- 打印的问题,QuickRep1中,我想打印一个10厘米宽,10厘米高的纸,但是他打印好了还会走纸,怎么办??
- 有关ListView和DBGrid的美化的问题
- 呵呵,这个论坛哪里可以修改个人信息啊?
- 关于NET DDE的一个简单问题!
详细清楚的介绍,加上源代码分析和下载。