PC World 1998 October/PCWorld_1998-10_cd.bin/software/prehled/komix/DATA.Z/TTicTacToe_GUIUnit.txt

Text File | 1997-08-20 | 5KB | 213 lines

object TicTacToe_GUI: TTicTacToe_GUI
  Left = 505
  Top = 257
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Tic Tac Toe'
  ClientHeight = 277
  ClientWidth = 235
  Color = clNone
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  PixelsPerInch = 96
  TextHeight = 13
  object Result: TLabel
    Left = 16
    Top = 224
    Width = 8
    Height = 29
    Color = clNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Board: TPanel
    Left = 0
    Top = 0
    Width = 233
    Height = 209
    Color = clNone
    TabOrder = 0
    object CellButton1: TButton
      OnClick = CellButton1Click
      Left = 32
      Top = 32
      Width = 57
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      TabStop = False
    end
    object CellButton2: TButton
      OnClick = CellButton2Click
      Left = 88
      Top = 32
      Width = 57
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      TabStop = False
    end
    object CellButton3: TButton
      OnClick = CellButton3Click
      Left = 144
      Top = 32
      Width = 57
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      TabStop = False
    end
    object CellButton4: TButton
      OnClick = CellButton4Click
      Left = 32
      Top = 80
      Width = 57
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      TabStop = False
    end
    object CellButton5: TButton
      OnClick = CellButton5Click
      Left = 88
      Top = 80
      Width = 57
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      TabStop = False
    end
    object CellButton6: TButton
      OnClick = CellButton6Click
      Left = 144
      Top = 80
      Width = 57
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      TabStop = False
    end
    object CellButton7: TButton
      OnClick = CellButton7Click
      Left = 32
      Top = 128
      Width = 57
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      TabStop = False
    end
    object CellButton8: TButton
      OnClick = CellButton8Click
      Left = 88
      Top = 128
      Width = 57
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      TabStop = False
    end
    object CellButton9: TButton
      OnClick = CellButton9Click
      Left = 144
      Top = 128
      Width = 57
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clGray
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      TabStop = False
    end
  end
  object MainMenu: TMainMenu
    Top = 176
    object GameMenu: TMenuItem
      Caption = '&Game'
      object New: TMenuItem
        OnClick = NewClick
        Caption = '&New'
        ShortCut = 16462
      end
    end
    object OpponentMenu: TMenuItem
      Caption = '&Opponent'
      RadioItem = True
      object Human: TMenuItem
        OnClick = HumanClick
        Caption = '&Human'
        Checked = True
        GroupIndex = 1
        RadioItem = True
        ShortCut = 16456
      end
      object ComputerX: TMenuItem
        OnClick = ComputerXClick
        Caption = 'Computer &X'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 16472
      end
      object ComputerO: TMenuItem
        OnClick = ComputerOClick
        Caption = 'Computer &O'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 16463
      end
    end
  end
end