通过Delphi 实现图象的缩放[2]

              height                    310
              name                      foreimage
              picture                    picture.bmp
              stretch                    false
              visible                    true
              width                      260

上述各组件的许多属性，读者亦可根据个人的爱好设定。在主单元main.pas的implementation段声明常量和变量：

const

sside=30;
dside=45;

var
mshide: boolean;
oldx, oldy, newx, newy: integer;
destrect, sourcerect : trect;

其中，常量sside和dside用以控制“放大镜”的大小和放大倍数；变量mshide控制光标（鼠标）的隐藏和打开；其它变量用以确定放大部位。

建立主窗体mainform的oncreate事件，加入下列语句，以初始化变量及设置复制模式：
mshide:=true;