使用滑块实现图片的放大和缩小


本文整理自网络,侵删。

 关键代码如下:

var
Form1: TForm1;
x,y:Integer;
implementation

{$R *.dfm}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position=0 then
begin
image1.Width:=x;
image1.Height:=y;
Exit;
end;
image1.Width:=Ceil(x*( TrackBar1.Position));
image1.Height:=Ceil(y*( TrackBar1.Position));
image1.Top:=Ceil(1/2*(Self.Height-image1.Height));
Image1.Left:=Ceil(1/2*(Self.Width-image1.Width));
end;

procedure TForm1.FormShow(Sender: TObject);
begin
x:=image1.Width;
y:=image1.Height;
image1.Top:=Ceil(1/2*(Self.Height-image1.Height));
Image1.Left:=Ceil(1/2*(Self.Width-image1.Width));
end;

end.

需要引用Math单元..

相关阅读 >>

Delphi 错误no ftp list parsers have been registered

Delphi xe将图标和图像添加为资源

Delphi替换字符串中的回车符

Delphi xe5开发的android手机截屏功能

Delphi 将程序加裁到启动项

Delphi入门语法

Delphi 判断指定字符串是否开头 startstext用法

Delphi可执行程序参数

Delphi 收集了比较全的字符串进制转换

Delphi中如何用一个按钮控制开与关两个状态

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...