lazarus-ccr/applications/tappytux/gameplayform.lfm

object formTappyTuxGame: TformTappyTuxGame
  Left = 599
  Height = 425
  Top = 312
  Width = 621
  Caption = 'Tappy Tux'
  ClientHeight = 425
  ClientWidth = 621
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '0.9.31'
  object btnExit: TButton
    Left = 8
    Height = 31
    Top = 384
    Width = 64
    Caption = 'Exit'
    OnClick = btnExitClick
    TabOrder = 0
  end
  object Answer: TEdit
    Left = 104
    Height = 23
    Top = 392
    Width = 514
    OnKeyPress = AnswerKeyPress
    TabOrder = 1
  end
  object LabelLevels: TLabel
    Left = 8
    Height = 39
    Top = 24
    Width = 78
    Caption = 'Level '
    Color = 7737967
    Font.CharSet = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -27
    Font.Name = 'Comic Sans MS'
    Font.Pitch = fpVariable
    Font.Quality = fqDraft
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = False
  end
  object LabelScore: TLabel
    Left = 8
    Height = 39
    Top = 112
    Width = 76
    Caption = 'Score'
    Color = 7737967
    Font.CharSet = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -27
    Font.Name = 'Comic Sans MS'
    Font.Pitch = fpVariable
    Font.Quality = fqDraft
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = False
  end
  object LabelLives: TLabel
    Left = 9
    Height = 39
    Top = 192
    Width = 77
    Caption = 'Lives '
    Color = 7737967
    Font.CharSet = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -27
    Font.Name = 'Comic Sans MS'
    Font.Pitch = fpVariable
    Font.Quality = fqDraft
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = False
  end
  object Level: TEdit
    Left = 8
    Height = 23
    Top = 64
    Width = 76
    ReadOnly = True
    TabOrder = 2
  end
  object Score: TEdit
    Left = 8
    Height = 23
    Top = 152
    Width = 76
    ReadOnly = True
    TabOrder = 3
  end
  object Lives: TEdit
    Left = 8
    Height = 23
    Top = 232
    Width = 76
    ReadOnly = True
    TabOrder = 4
  end
  object Test: TMemo
    Left = 480
    Height = 181
    Top = 200
    Width = 130
    Lines.Strings = (
      'cachorro'
      'gato'
      'peixe'
      'pássaro'
      'macaco'
      'leão'
      'tigre'
      'elefante'
      'crocodilo'
      'abelha'
      'mosca'
      'água-viva'
      'tartaruga'
      'lagartixa'
      'sapo'
      'minhoca'
      'centopéia'
      'rinoceronte'
      'coiote'
      'águia'
      'canguru'
      'coala'
      'morcego'
      'gavião'
      'pavão'
      'cobra'
      'camelo'
      'lontra'
      'tubarão'
      'coelho'
      'baleia'
      'urso'
      'foca'
      'escorpião'
      'touro'
      'vaca'
      'galinha'
      'formiga'
      'borboleta'
      'girafa'
      'arara'
      'salamandra'
      'rã'
      'pinguim'
      'tatu'
      'avestruz'
      'hiena'
      'pelicano'
      'pombo'
      'orangotango'
      'coruja'
      'papagaio'
      'tucano'
      'ornitorrinco'
      'gambá'
      'rato'
      'esquilo'
      'golfinho'
      'ovelha'
      'morsa'
      'suricato'
      'ornitorrinco'
      'toupeira'
      'barata'
      'lula'
      'polvo'
      'tamanduá'
      'camarão'
      'lêmure'
      'besouro'
      'onça'
    )
    OnChange = TestChange
    TabOrder = 5
    Visible = False
  end
  object GameOver: TToggleBox
    Left = 240
    Height = 64
    Top = 152
    Width = 172
    Caption = 'Game Over'#13#10'Continue?'
    Checked = True
    Color = clRed
    Enabled = False
    State = cbChecked
    TabOrder = 6
    Visible = False
  end
  object Yes: TButton
    Left = 240
    Height = 30
    Top = 216
    Width = 80
    Caption = 'Yes'
    Color = clRed
    OnClick = YesClick
    TabOrder = 7
    Visible = False
  end
  object No: TButton
    Left = 336
    Height = 30
    Top = 219
    Width = 76
    Caption = 'No'
    Color = clRed
    OnClick = NoClick
    TabOrder = 8
    Visible = False
  end
end