uzoomframe.xfm

来自「ESS-Model is a powerful, reverse engine,」· XFM 代码 · 共 20 行

object ZoomFrame: TZoomFrame
  Left = 0
  Top = 0
  Width = 451
  Height = 304
  Align = alClient
  TabOrder = 0
  OnMouseMove = FrameMouseMove
  OnMouseUp = FrameMouseUp
  OnResize = FrameResize
  object ZoomImage: TImage
    Left = 0
    Top = 0
    Width = 451
    Height = 304
    Align = alClient
    OnMouseDown = ZoomImageMouseDown
  end
end