社区
Delphi
帖子详情
关于截图问题,请大家帮助
jones129
2006-06-12 01:42:24
做一个画图程序,并把画好的图显示在TIMAGE控件里面,现在想通过用户在这个控件上
用鼠标拖成一个矩形选择区域,并实现对该区域保存为BMP或JPEG文件,谢谢大家!
...全文
138
5
打赏
收藏
关于截图问题,请大家帮助
做一个画图程序,并把画好的图显示在TIMAGE控件里面,现在想通过用户在这个控件上 用鼠标拖成一个矩形选择区域,并实现对该区域保存为BMP或JPEG文件,谢谢大家!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
GARNETT2183
2006-08-03
打赏
举报
回复
www.2ccc.com就有
wudi_1982
2006-08-03
打赏
举报
回复
选择区域后,使用CopyRect
xaojancsdn
2006-08-03
打赏
举报
回复
TImageEn在哪可以下载到免费的
CACACACACA
2006-06-12
打赏
举报
回复
基本上就是这样.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var
p1: TPoint;
implementation
{$R *.dfm}
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
p1.X := X;
p1.Y := Y;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
bmp :TBitmap;
rect :TRect;
begin
bmp := TBitmap.Create;
rect.Left := p1.X;
rect.Top := p1.Y;
rect.Bottom := Y;
rect.Right := X;
bmp.Canvas.CopyRect( rect, Image1.Picture.Bitmap.Canvas, Image1.BoundsRect );
bmp.SaveToFile('c:\aa.bmp');
FreeAndNil( bmp );
end;
GARNETT2183
2006-06-12
打赏
举报
回复
最简单的实现方法,就是和组件TImageEn可以不写一行代码达到你的要求...
一个大家来找茬的
帮助
软件(源代码:截屏,图像处理)
以前给朋友写的一个大家来找茬的
帮助
软件,主要是通过截屏比较两幅图像的差别 1、a.可以通过窗口名锁定大家来找茬窗口;b.可以手工确定窗口(类似Spy++) 2、通过大家来找茬窗口颜色定位 3、截屏比较两幅图像,并...
vb.net
截图
软件
很不错的截屏软件,很多同事喜欢用。推荐给大家,希望能够
帮助
C#编写的QQ源代码
今天发布一个C#编写的QQ聊天工具,包含所有源码,client文件夹是客户端,Server是服务器文件夹, <br>功能和QQ几乎一样,有QQ表情,传文件,截屏,等等.....希望对大家有
帮助
!!!!
一分钟解决微信小程序
截图
(截屏
问题
)
这次又来跟大家送福利的,这次是关于小程序
截图
的
问题
。相信有的小伙伴又遇到产品经理要求做一个
截图
功能的,结果大家搜了半天还是一无所获。这就带你们了解微信小程序的前因后果,话不多说上干货。 第一,首先微信...
索尼android 怎么截屏快捷键,索尼XZ Premium怎么截屏 2种索尼XZ Premium
截图
方法
今天本文主要分享一下索尼XZ Premium怎么截屏,作为一款相对冷门的非国产骁龙835旗舰机,在使用中难免出现一些不太熟悉的
问题
,下面小编分享2种索尼XZ Premium
截图
方法,希望对大家有所
帮助
。一、捷键
截图
索尼XZ ...
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章