社区
Delphi
帖子详情
关于截图问题,请大家帮助
jones129
2006-06-12 01:42:24
做一个画图程序,并把画好的图显示在TIMAGE控件里面,现在想通过用户在这个控件上
用鼠标拖成一个矩形选择区域,并实现对该区域保存为BMP或JPEG文件,谢谢大家!
...全文
140
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、截屏比较两幅图像,并显示差别所在 4、点击窗口上的差别位置,模拟点击大家来找茬窗口图片
vb.net
截图
软件
很不错的截屏软件,很多同事喜欢用。推荐给大家,希望能够
帮助
C#编写的QQ源代码
今天发布一个C#编写的QQ聊天工具,包含所有源码,client文件夹是客户端,Server是服务器文件夹,功能和QQ几乎一样,有QQ表情,传文件,截屏,等等.....希望对大家有
帮助
!!!!
一分钟解决微信小程序
截图
(截屏
问题
)
近期 忙着新产品的开发,已经很久没更新了。这次又来跟大家送福利的,这次是关于小程序
截图
的
问题
。相信有的小伙伴又遇到产品经理要求做一个
截图
功能的,结果大家搜了半天还是一无所获。这就带你们了解微信小程序的前因后果,话不多说上干货。 第一,首先微信是没有提供小程序直接
截图
的api的,只提供了监听
截图
事件 ...
索尼android 怎么截屏快捷键,索尼XZ Premium怎么截屏 2种索尼XZ Premium
截图
方法
截屏作为手机常用功能之一,我们经常在分享朋友圈或微博的时候经常需要用到屏幕截屏。今天本文主要分享一下索尼XZ Premium怎么截屏,作为一款相对冷门的非国产骁龙835旗舰机,在使用中难免出现一些不太熟悉的
问题
,下面小编分享2种索尼XZ Premium
截图
方法,希望对大家有所
帮助
。一、捷键
截图
索尼XZ Premium也是一款安卓手机,因此可以借助Android通用的【电源键】+【音量下键】组合快捷...
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章