开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ScaleF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

ScaleF.pas：源码内容
  1. unit ScaleF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Spin, Mask, ComCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     ScaleButton: TButton;
  12.     RestoreButton: TButton;
  13.     Label1: TLabel;
  14.     Edit1: TEdit;
  15.     UpDown1: TUpDown;
  16.     procedure ScaleButtonClick(Sender: TObject);
  17.     procedure RestoreButtonClick(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.     AmountScaled: Integer;
  21.   public
  22.     { Public declarations }
  23.   end;
  25. var
  26.   Form1: TForm1;
  28. implementation
  30. {$R *.DFM}
  32. procedure TForm1.ScaleButtonClick(Sender: TObject);
  33. begin
  34.   AmountScaled := UpDown1.Position;
  35.   ScaleBy (AmountScaled, 100);
  36.   UpDown1.Height := Edit1.Height;
  37.   ScaleButton.Enabled := False;
  38.   RestoreButton.Enabled := True;
  39. end;
  41. procedure TForm1.RestoreButtonClick(Sender: TObject);
  42. begin
  43.   ScaleBy (100, AmountScaled);
  44.   UpDown1.Height := Edit1.Height;
  45.   ScaleButton.Enabled := True;
  46.   RestoreButton.Enabled := False;
  47. end;
  49. end.