社区
Delphi
帖子详情
关于image copyRect Resize,很急在线等待!!大虾救命呀!!!
YoungKing
2003-08-19 02:40:21
窗体现处于normal状态。
image.align=alclient;
在formCreate中用CopyRect将image.canvas拷贝了图片。
但是,改变窗体使之处于最大化时,image.的图片并不随之扩大,我在formResize中写代码重新拷贝图片也不好用?就好像image的大小不变似的
但是调试出来的image.width和height均是变化的。
该怎么办?
...全文
87
8
打赏
收藏
关于image copyRect Resize,很急在线等待!!大虾救命呀!!!
窗体现处于normal状态。 image.align=alclient; 在formCreate中用CopyRect将image.canvas拷贝了图片。 但是,改变窗体使之处于最大化时,image.的图片并不随之扩大,我在formResize中写代码重新拷贝图片也不好用?就好像image的大小不变似的 但是调试出来的image.width和height均是变化的。 该怎么办?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
DWGZ
2003-08-19
打赏
举报
回复
非常抱歉应该是在OnResize时Repaint
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
private
FBmp: TBitmap;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
FBmp := TBitmap.Create;
FBmp.LoadFromFile('F:\1.bmp');
//你还可以, Self.Brush.Bitmap := FBmp;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FBmp.Free;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.StretchDraw(ClientRect, FBmp);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Repaint;
end;
hxmforyou
2003-08-19
打赏
举报
回复
你在CopyRect函数中要拷贝的目标区域的Rect拉大成你需要的大小就可以了。
如把const Dest: TRect设置成你变大后的窗体的大小,就可以了。
YoungKing
2003-08-19
打赏
举报
回复
我走了
YoungKing
2003-08-19
打赏
举报
回复
谢谢!
不过,大哥,能不能建一个简单的工程试一下.
真的不好试,我都试过了...
DWGZ
2003-08-19
打赏
举报
回复
Form1Create时
RePaint;
YoungKing
2003-08-19
打赏
举报
回复
我考,高手在哪里呀?!
真的没有一个帮一下忙吗?
YoungKing
2003-08-19
打赏
举报
回复
不好用呀,用FormOnPaint,已开始时并不拷贝!!!(delphi ver6.0 winxp)
程序开始运行时,看不到图片的!
只有当最大化时,则确实可以实现。
DWGZ
2003-08-19
打赏
举报
回复
在FormOnPaint时Copy, 给分吧
delphi7
copy
rect
图片切换效果
最近看了一本书,讲delphi7中的图片的处理,这里上传几个常用的图片转换的效果,有雨滴,百叶窗等。
Delphi 垂直交错显示效果.rar
Delphi 编写的图片垂直交错显示效果,之前就分享过这种效果,类似百叶窗的交替显示效果,可用于图片转场,不过本效果还有很多地方需要优化,当时是写给一本书,作为随书实例的,有兴趣的可参考,关于本功能的关键...
Delphi 屏 幕 拷 贝 程 序
---- 看 了 以 上 代 码, 你 就 会 发 现 用DELPHI 写 屏 幕 拷 贝 程 序 的 确 很 简 单。 ---- 当 然 要 写 一 个 实 用 的 屏 幕 拷 贝 程 序, 光 靠 上 述 代 码 是 不 够 的, 下 面 讲 一 下 主 要 的 编 ...
图片放大镜效果
Fore
Image
.Canvas.
Copy
Rect
(Dest
Rect
, Back
Image
.Canvas, Source
Rect
); end; procedure TForm1.Fore
Image
MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin DoubleBuffered :=True; NewX:...
Delphi 全屏抓图 范例.rar
Fullscreen.Canvas.
Copy
Rect
(
Rect
(0,0,screen.Width,screen.Height),fullscreenCanvas,
Rect
(0,0,Screen.Width,Screen.Height)); // 把整个屏幕复制到BITMAP中 FullscreenCanvas.Free;//释放CANVAS对象 ...
Delphi
5,390
社区成员
262,735
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章