sakurasuite/sample_seeker/Unit1.dfm

   1 object Form1: TForm1
   2   Left = 286
   3   Top = 205
   4   Width = 393
   5   Height = 241
   6   Caption = 'SakuraSeeker Test Program'
   7   Color = clBtnFace
   8   Font.Charset = SHIFTJIS_CHARSET
   9   Font.Color = clWindowText
  10   Font.Height = -12
  11   Font.Name = '\82l\82r \82o\83S\83V\83b\83N'
  12   Font.Style = []
  13   Menu = MainMenu1
  14   OldCreateOrder = False
  15   OnCreate = FormCreate
  16   PixelsPerInch = 96
  17   TextHeight = 12
  18   object ListView1: TListView
  19     Left = 0
  20     Top = 0
  21     Width = 385
  22     Height = 152
  23     Align = alClient
  24     Columns = <
  25       item
  26         Caption = 'ID'
  27         Width = 150
  28       end
  29       item
  30         Caption = 'HWND'
  31         Width = 80
  32       end
  33       item
  34         Caption = 'Name'
  35         Width = 150
  36       end>
  37     HideSelection = False
  38     ReadOnly = True
  39     TabOrder = 0
  40     ViewStyle = vsReport
  41   end
  42   object StatusBar1: TStatusBar
  43     Left = 0
  44     Top = 176
  45     Width = 385
  46     Height = 19
  47     Panels = <>
  48     SimplePanel = True
  49   end
  50   object Panel1: TPanel
  51     Left = 0
  52     Top = 152
  53     Width = 385
  54     Height = 24
  55     Align = alBottom
  56     BevelOuter = bvNone
  57     TabOrder = 2
  58     object Button1: TButton
  59       Left = 8
  60       Top = 0
  61       Width = 105
  62       Height = 25
  63       Caption = '&Send DirectSSTP'
  64       TabOrder = 0
  65       OnClick = Button1Click
  66     end
  67     object Button2: TButton
  68       Left = 152
  69       Top = 0
  70       Width = 75
  71       Height = 25
  72       Caption = 'Test2'
  73       TabOrder = 1
  74       OnClick = Button2Click
  75     end
  76   end
  77   object SakuraSeeker1: TSakuraSeeker
  78     OnAfterDetection = SakuraSeeker1AfterDetection
  79     OnDetectResultChanged = SakuraSeeker1DetectResultChanged
  80     FileMappingTarget.Strings = (
  81       'Sakura'
  82       'Usagi'
  83       'UmiUmi')
  84     Left = 16
  85     Top = 32
  86   end
  87   object MainMenu1: TMainMenu
  88     Left = 176
  89     Top = 96
  90     object File1: TMenuItem
  91       Caption = '&File'
  92       object Update1: TMenuItem
  93         Caption = '&Update'
  94         OnClick = Update1Click
  95       end
  96       object Exit1: TMenuItem
  97         Caption = '&Exit'
  98         OnClick = Exit1Click
  99       end
 100     end
 101   end
 102   object Timer1: TTimer
 103     Enabled = False
 104     OnTimer = Timer1Timer
 105     Left = 48
 106     Top = 32
 107   end
 108   object TestDSstp1: TTestDSstp
 109     Left = 176
 110     Top = 32
 111   end
 112 end