home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / tenpack.lzh / DEMOSB.DFM / DEMOSB.txt
Text File  |  1995-05-16  |  6KB  |  204 lines
  1. object Form1: TForm1
  2.   Left = 117
  3.   Top = 96
  4.   Width = 471
  5.   Height = 342
  6.   Caption = 'Subclass Component Demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   OnCreate = FormCreate
  13.   TextHeight = 16
  14.   object Label1: TLabel
  15.     Left = 66
  16.     Top = 107
  17.     Width = 4
  18.     Height = 16
  19.   end
  20.   object Label2: TLabel
  21.     Left = 224
  22.     Top = 14
  23.     Width = 234
  24.     Height = 96
  25.     AutoSize = False
  26.     Caption = 
  27.       'With the subclass component you can easily subclass any window, ' +
  28.       'even a window owned by another application.  Simply set the WndH' +
  29.       'andle property and call the Hook method.  When a message is sent' +
  30.       ' to that window, the OnSysEvent handler will be fired.'
  31.     Font.Color = clBlack
  32.     Font.Height = -11
  33.     Font.Name = 'MS Sans Serif'
  34.     Font.Style = [fsBold]
  35.     ParentFont = False
  36.   end
  37.   object BitBtn1: TBitBtn
  38.     Left = 66
  39.     Top = 33
  40.     Width = 144
  41.     Height = 29
  42.     Caption = '&Start Subclassing'
  43.     Font.Color = clBlack
  44.     Font.Height = -13
  45.     Font.Name = 'MS Sans Serif'
  46.     Font.Style = []
  47.     ParentFont = False
  48.     TabOrder = 0
  49.     OnClick = BitBtn1Click
  50.     Glyph.Data = {
  51.       76010000424D7601000000000000760000002800000020000000100000000100
  52.       04000000000000010000130B0000130B00000000000000000000000000000000
  53.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  54.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  55.       33033333333333333F7F3333333333333000333333333333F777333333333333
  56.       000333333333333F777333333333333000333333333333F77733333333333300
  57.       033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
  58.       33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
  59.       3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
  60.       33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
  61.       333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
  62.       333333773FF77333333333370007333333333333777333333333}
  63.     NumGlyphs = 2
  64.   end
  65.   object StringGrid1: TStringGrid
  66.     Left = 66
  67.     Top = 154
  68.     Width = 348
  69.     Height = 120
  70.     ColCount = 2
  71.     DefaultRowHeight = 18
  72.     FixedCols = 0
  73.     Font.Color = clBlack
  74.     Font.Height = -13
  75.     Font.Name = 'MS Sans Serif'
  76.     Font.Style = []
  77.     GridLineWidth = 0
  78.     ParentFont = False
  79.     RowCount = 6
  80.     TabOrder = 1
  81.     OnSelectCell = StringGrid1SelectCell
  82.     ColWidths = (
  83.       64
  84.       263)
  85.   end
  86.   object BitBtn2: TBitBtn
  87.     Left = 66
  88.     Top = 124
  89.     Width = 348
  90.     Height = 29
  91.     Caption = '&Enumerate Top Level Windows'
  92.     Font.Color = clBlack
  93.     Font.Height = -13
  94.     Font.Name = 'MS Sans Serif'
  95.     Font.Style = []
  96.     ParentFont = False
  97.     TabOrder = 2
  98.     OnClick = BitBtn2Click
  99.     Glyph.Data = {
  100.       76010000424D7601000000000000760000002800000020000000100000000100
  101.       04000000000000010000130B0000130B00000000000000000000000000000000
  102.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  103.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
  104.       FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
  105.       FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
  106.       007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
  107.       7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
  108.       99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
  109.       99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
  110.       99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
  111.       93337FFFF7737777733300000033333333337777773333333333}
  112.     NumGlyphs = 2
  113.   end
  114.   object BitBtn3: TBitBtn
  115.     Left = 66
  116.     Top = 65
  117.     Width = 144
  118.     Height = 29
  119.     Caption = '&Sto&p Subclassing'
  120.     Font.Color = clBlack
  121.     Font.Height = -13
  122.     Font.Name = 'MS Sans Serif'
  123.     Font.Style = []
  124.     ParentFont = False
  125.     TabOrder = 3
  126.     OnClick = BitBtn3Click
  127.     Glyph.Data = {
  128.       76010000424D7601000000000000760000002800000020000000100000000100
  129.       04000000000000010000130B0000130B00000000000000000000000000000000
  130.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  131.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  132.       33033333333333333F7F3333333333333000333333333333F777333333333333
  133.       000333333333333F777333333333333000333333333333F77733333333333300
  134.       033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
  135.       333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
  136.       333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
  137.       33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
  138.       333337F3333337F333333078F8F870333333373FF333F7333333330777770333
  139.       333333773FF77333333333370007333333333333777333333333}
  140.     NumGlyphs = 2
  141.   end
  142.   object Panel1: TPanel
  143.     Left = 0
  144.     Top = 287
  145.     Width = 463
  146.     Height = 28
  147.     Align = alBottom
  148.     Caption = 'Panel1'
  149.     TabOrder = 4
  150.     object Panel2: TPanel
  151.       Left = 1
  152.       Top = 1
  153.       Width = 152
  154.       Height = 26
  155.       Align = alLeft
  156.       Alignment = taLeftJustify
  157.       BevelOuter = bvLowered
  158.       Font.Color = clBlack
  159.       Font.Height = -13
  160.       Font.Name = 'MS Sans Serif'
  161.       Font.Style = []
  162.       ParentFont = False
  163.       TabOrder = 0
  164.     end
  165.     object Panel3: TPanel
  166.       Left = 153
  167.       Top = 1
  168.       Width = 141
  169.       Height = 26
  170.       Align = alLeft
  171.       Alignment = taLeftJustify
  172.       BevelOuter = bvLowered
  173.       Font.Color = clBlack
  174.       Font.Height = -13
  175.       Font.Name = 'MS Sans Serif'
  176.       Font.Style = []
  177.       ParentFont = False
  178.       TabOrder = 1
  179.     end
  180.     object Panel4: TPanel
  181.       Left = 294
  182.       Top = 1
  183.       Width = 167
  184.       Height = 26
  185.       Align = alLeft
  186.       Alignment = taLeftJustify
  187.       BevelOuter = bvLowered
  188.       Font.Color = clBlack
  189.       Font.Height = -13
  190.       Font.Name = 'MS Sans Serif'
  191.       Font.Style = []
  192.       ParentFont = False
  193.       TabOrder = 2
  194.     end
  195.   end
  196.   object Subclass1: TSubclass
  197.     SType = stPreDefault
  198.     WndHandle = 0
  199.     OnSysEvent = Subclass1SysEvent
  200.     Left = 17
  201.     Top = 5
  202.   end
  203. end
  204.