home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / olympus / ik32_15t / delphi2.shr / USCRCAP.DFM / USCRCAP.txt
Encoding:
Text File  |  1996-08-01  |  2.3 KB  |  104 lines
  1. object Form1: TForm1
  2.   Left = 270
  3.   Top = 170
  4.   BorderStyle = bsSingle
  5.   Caption = 'Screen  Capture '
  6.   ClientHeight = 328
  7.   ClientWidth = 537
  8.   Color = clSilver
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'Arial'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 14
  18.   object Bevel2: TBevel
  19.     Left = 271
  20.     Top = 9
  21.     Width = 257
  22.     Height = 314
  23.     Shape = bsFrame
  24.   end
  25.   object Bevel1: TBevel
  26.     Left = 6
  27.     Top = 9
  28.     Width = 257
  29.     Height = 314
  30.     Shape = bsFrame
  31.   end
  32.   object CapturePicbuf: TSpeedButton
  33.     Left = 14
  34.     Top = 275
  35.     Width = 239
  36.     Height = 38
  37.     Hint = 'Capture Screen to '#39'Picbuf'#39' Control'
  38.     Caption = 'Capture Screen to Picbuf'
  39.     ParentShowHint = False
  40.     ShowHint = True
  41.     OnClick = CapturePicbufClick
  42.   end
  43.   object CaptureTImage: TSpeedButton
  44.     Left = 278
  45.     Top = 275
  46.     Width = 239
  47.     Height = 38
  48.     Hint = 'Capture Screen to Delphi TImage Component'
  49.     Caption = 'Capture Screen to TImage'
  50.     ParentShowHint = False
  51.     ShowHint = True
  52.     OnClick = CaptureTImageClick
  53.   end
  54.   object Picbuf1: TPicbuf
  55.     Left = 14
  56.     Top = 16
  57.     Width = 239
  58.     Height = 254
  59.     Hint = 'Picbuf Control'
  60.     ParentColor = False
  61.     ParentFont = False
  62.     ParentShowHint = False
  63.     ShowHint = True
  64.     TabOrder = 0
  65.     ControlData = {
  66.       00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
  67.       CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
  68.       6966000001000000000000000000000000000001000000000000010000000000
  69.       00000000000000000000000000FF000000000000000000000000010001000000
  70.       0001000A0000000000000000000000000000000000000000}
  71.   end
  72.   object ScrollBox1: TScrollBox
  73.     Left = 279
  74.     Top = 17
  75.     Width = 241
  76.     Height = 253
  77.     BorderStyle = bsNone
  78.     TabOrder = 1
  79.     object Image: TImage
  80.       Left = 1
  81.       Top = 0
  82.       Width = 100
  83.       Height = 100
  84.       Hint = 'TImage Component'
  85.       AutoSize = True
  86.       ParentShowHint = False
  87.       ShowHint = True
  88.     end
  89.   end
  90.   object MainMenu1: TMainMenu
  91.     Left = 15
  92.     Top = 17
  93.     object File1: TMenuItem
  94.       Caption = 'File'
  95.       ShortCut = 0
  96.       object Exit1: TMenuItem
  97.         Caption = 'Exit'
  98.         ShortCut = 16472
  99.         OnClick = Exit1Click
  100.       end
  101.     end
  102.   end
  103. end
  104.