Inhalt

Aktueller Ordner: beute
⬅ Übergeordnet

umain.lfm

object frmMain: TfrmMain
  Left = 689
  Height = 621
  Top = 149
  Width = 1236
  BorderStyle = bsDialog
  Caption = 'beute'
  ClientHeight = 621
  ClientWidth = 1236
  OnClose = FormClose
  OnCreate = FormCreate
  ParentFont = True
  LCLVersion = '1.6.4.0'
  object pnlBottom: TPanel
    Left = 0
    Height = 52
    Top = 569
    Width = 1236
    Align = alBottom
    ClientHeight = 52
    ClientWidth = 1236
    TabOrder = 0
    object btnNext: TButton
      Left = 8
      Height = 33
      Top = 6
      Width = 89
      Caption = '&Nächster Zeittakt'
      OnClick = Auswerten
      TabOrder = 0
    end
    object btnStart: TButton
      Left = 110
      Height = 33
      Top = 6
      Width = 89
      Caption = '&Start'
      OnClick = btnStartClick
      TabOrder = 1
    end
    object btnStopp: TButton
      Left = 206
      Height = 33
      Top = 5
      Width = 89
      Caption = 'Sto&pp'
      OnClick = btnStoppClick
      TabOrder = 2
    end
    object btnLeer: TButton
      Left = 310
      Height = 33
      Top = 5
      Width = 89
      Caption = '&leer'
      OnClick = btnLeerClick
      TabOrder = 3
    end
    object btnZufall: TButton
      Left = 408
      Height = 33
      Top = 5
      Width = 89
      Caption = '&Zufall'
      OnClick = btnZufallClick
      TabOrder = 4
    end
  end
  object Spielfeld: TDrawGrid
    Left = 0
    Height = 488
    Top = 0
    Width = 809
    ColCount = 80
    DefaultColWidth = 10
    DefaultDrawing = False
    DefaultRowHeight = 20
    ExtendedSelect = False
    FixedCols = 0
    FixedRows = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
    RowCount = 24
    TabOrder = 1
    OnDrawCell = SpielfeldDrawCell
    OnSelectCell = SpielfeldSelectCell
  end
  object tmrAnimation: TTimer
    Interval = 40
    OnTimer = Auswerten
    left = 8
    top = 8
  end
end