object SeatCheckTestFrm: TSeatCheckTestFrm Left = 238 Top = 136 Width = 435 Height = 300 Caption = 'Super-Secret Application' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Menu = MainMenu1 PixelsPerInch = 96 TextHeight = 16 object Label1: TLabel Left = 48 Top = 8 Width = 44 Height = 16 Caption = 'Label1' end object Panel1: TPanel Left = 0 Top = 0 Width = 427 Height = 41 Align = alTop BevelInner = bvLowered TabOrder = 0 object LogonBtn: TSpeedButton Left = 8 Top = 8 Width = 65 Height = 25 GroupIndex = 99 Caption = 'Logon' OnClick = LogonBtnClick end object LogoffBtn: TSpeedButton Left = 72 Top = 8 Width = 65 Height = 25 GroupIndex = 99 Down = True Caption = 'Logoff' OnClick = LogoffBtnClick end end object StatusPanel: TPanel Left = 0 Top = 228 Width = 427 Height = 26 Align = alBottom Alignment = taLeftJustify BevelInner = bvLowered Caption = 'Logged off.' TabOrder = 1 end object SeatChecker1: TSeatChecker DatabaseName = '.\' Status = sStanding UserName = 'STEVE' Method = mByTotal Left = 384 Top = 120 end object MainMenu1: TMainMenu Left = 384 Top = 88 object File1: TMenuItem Caption = '&File' object Exit1: TMenuItem Caption = '&Exit' OnClick = Exit1Click end end object View1: TMenuItem Caption = '&View' Enabled = False object SecretDocuments1: TMenuItem Caption = 'Secret &Documents' end object ListofSpies1: TMenuItem Caption = 'Secret &Personnel' end object SecretMissions1: TMenuItem Caption = 'Secret &Missions' end object SecretPlans1: TMenuItem Caption = 'Secret P&lans' end end object Help1: TMenuItem Caption = '&Help' object About1: TMenuItem Caption = '&About' end end end end