home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / olympus / ik32_15t / delphi2.shr / UPAN.DFM / UPAN.txt
Encoding:
Text File  |  1996-08-01  |  2.1 KB  |  89 lines
  1. object Form1: TForm1
  2.   Left = 304
  3.   Top = 184
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'Pan'
  7.   ClientHeight = 282
  8.   ClientWidth = 266
  9.   Color = clSilver
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   Menu = MainMenu1
  15.   Position = poScreenCenter
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 14
  19.   object Bevel1: TBevel
  20.     Left = 6
  21.     Top = 8
  22.     Width = 254
  23.     Height = 264
  24.     Shape = bsFrame
  25.   end
  26.   object Picbuf1: TPicbuf
  27.     Left = 15
  28.     Top = 16
  29.     Width = 234
  30.     Height = 223
  31.     Hint = 'Click and Hold with Left Mouse Button to Pan Image'
  32.     ParentColor = False
  33.     ParentFont = False
  34.     ParentShowHint = False
  35.     ShowHint = True
  36.     TabOrder = 0
  37.     OnMouseDown = Picbuf1MouseDown
  38.     OnMouseMove = Picbuf1MouseMove
  39.     ControlData = {
  40.       00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
  41.       CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
  42.       6966000001000000000000000000000000000001000000000000010000000000
  43.       00000000000000000000000000FF000000000000000000000000010001000000
  44.       0001000A0000000000000000000000000000000000000000}
  45.   end
  46.   object ScrollBars: TCheckBox
  47.     Left = 16
  48.     Top = 246
  49.     Width = 97
  50.     Height = 17
  51.     Hint = 'Enable Disable Scroll Bars'
  52.     Caption = 'Scroll Bars'
  53.     ParentShowHint = False
  54.     ShowHint = True
  55.     TabOrder = 1
  56.     OnClick = ScrollBarsClick
  57.   end
  58.   object OpenDialog: TOpenDialog
  59.     FileEditStyle = fsEdit
  60.     Filter = 
  61.       '*.*|*.*|*.TIF|*.tif|*.TGA|*.tga|*.BMP|*.bmp|*.GIF|*.gif|*.DIB|*.' +
  62.       'dib|*.PCX|*.pcx|*.JPG|*.jpg|*.MSP|*.msp|*.FIF|*.fif|*.PNG|*.png'
  63.     Left = 177
  64.     Top = 208
  65.   end
  66.   object MainMenu1: TMainMenu
  67.     Left = 213
  68.     Top = 208
  69.     object File1: TMenuItem
  70.       Caption = 'File'
  71.       ShortCut = 0
  72.       object LoadImage1: TMenuItem
  73.         Caption = 'Load Image'
  74.         ShortCut = 0
  75.         OnClick = LoadImage1Click
  76.       end
  77.       object N1: TMenuItem
  78.         Caption = '-'
  79.         ShortCut = 0
  80.       end
  81.       object Exit1: TMenuItem
  82.         Caption = 'Exit'
  83.         ShortCut = 16472
  84.         OnClick = Exit1Click
  85.       end
  86.     end
  87.   end
  88. end
  89.