Inhalt

Aktueller Ordner: /

unitchesstegmain.lfm

object frmChessteg: TfrmChessteg
  Left = 791
  Height = 641
  Top = 73
  Width = 425
  Caption = 'Chessteg'
  ClientHeight = 641
  ClientWidth = 425
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  LCLVersion = '1.6.4.0'
  object grdBrettansicht: TStringGrid
    AnchorSideLeft.Side = asrCenter
    Left = 8
    Height = 404
    Top = 8
    Width = 408
    AutoEdit = False
    ColCount = 8
    DefaultColWidth = 50
    DefaultRowHeight = 50
    FixedCols = 0
    FixedRows = 0
    RowCount = 8
    TabOrder = 0
    OnDrawCell = grdBrettansichtDrawCell
    OnSelectCell = grdBrettansichtSelectCell
  end
  object btnNaechsterZug: TButton
    Left = 104
    Height = 25
    Top = 448
    Width = 150
    Caption = '&Nächster Zug'
    OnClick = btnNaechsterZugClick
    TabOrder = 1
  end
  object LabelSpielerzug: TLabel
    Left = 16
    Height = 13
    Top = 432
    Width = 156
    Caption = 'Chessteg spielt gegen sich selbst'
    ParentColor = False
  end
  object von: TEdit
    Left = 296
    Height = 21
    Top = 528
    Width = 32
    Enabled = False
    TabStop = False
    TabOrder = 2
    Text = '0'
  end
  object LabelZugVon: TLabel
    Left = 272
    Height = 13
    Top = 536
    Width = 21
    Caption = 'von:'
    ParentColor = False
  end
  object nach: TEdit
    Left = 368
    Height = 21
    Top = 528
    Width = 32
    Enabled = False
    TabOrder = 3
    Text = '0'
  end
  object LabelZugNach: TLabel
    Left = 336
    Height = 13
    Top = 536
    Width = 27
    Caption = 'nach:'
    ParentColor = False
  end
  object StaticText1: TStaticText
    Left = 417
    Height = 17
    Top = 26
    Width = 23
    Caption = '1'
    TabOrder = 4
  end
  object StaticText2: TStaticText
    Left = 417
    Height = 17
    Top = 72
    Width = 23
    Caption = '2'
    TabOrder = 5
  end
  object StaticText3: TStaticText
    Left = 417
    Height = 17
    Top = 128
    Width = 23
    Caption = '3'
    TabOrder = 6
  end
  object StaticText4: TStaticText
    Left = 417
    Height = 17
    Top = 176
    Width = 23
    Caption = '4'
    TabOrder = 7
  end
  object StaticText5: TStaticText
    Left = 417
    Height = 17
    Top = 224
    Width = 23
    Caption = '5'
    TabOrder = 8
  end
  object StaticText6: TStaticText
    Left = 417
    Height = 17
    Top = 272
    Width = 23
    Caption = '6'
    TabOrder = 9
  end
  object StaticText7: TStaticText
    Left = 416
    Height = 17
    Top = 328
    Width = 23
    Caption = '7'
    TabOrder = 10
  end
  object StaticText8: TStaticText
    Left = 416
    Height = 17
    Top = 376
    Width = 23
    Caption = '8'
    TabOrder = 11
  end
  object StaticText9: TStaticText
    Left = 16
    Height = 17
    Top = 416
    Width = 23
    Caption = 'H'
    TabOrder = 12
  end
  object StaticText10: TStaticText
    Left = 72
    Height = 17
    Top = 416
    Width = 23
    Caption = 'G'
    TabOrder = 13
  end
  object StaticText11: TStaticText
    Left = 120
    Height = 17
    Top = 416
    Width = 23
    Caption = 'F'
    TabOrder = 14
  end
  object StaticText12: TStaticText
    Left = 176
    Height = 17
    Top = 416
    Width = 23
    Caption = 'E'
    TabOrder = 15
  end
  object StaticText13: TStaticText
    Left = 224
    Height = 17
    Top = 416
    Width = 23
    Caption = 'D'
    TabOrder = 16
  end
  object StaticText14: TStaticText
    Left = 272
    Height = 17
    Top = 416
    Width = 23
    Caption = 'C'
    TabOrder = 17
  end
  object StaticText15: TStaticText
    Left = 320
    Height = 17
    Top = 416
    Width = 23
    Caption = 'B'
    TabOrder = 18
  end
  object StaticText16: TStaticText
    Left = 368
    Height = 17
    Top = 416
    Width = 23
    Caption = 'A'
    TabOrder = 19
  end
  object amZug: TLabel
    Left = 16
    Height = 13
    Top = 458
    Width = 68
    Caption = 'Weiss am Zug'
    ParentColor = False
  end
  object WeisserZug: TButton
    Left = 104
    Height = 25
    Top = 488
    Width = 75
    Caption = 'Weisser Zug'
    OnClick = WeisserZugClick
    TabOrder = 20
  end
  object SchwarzerZug: TButton
    Left = 179
    Height = 25
    Top = 488
    Width = 75
    Caption = 'SchwarzerZug'
    OnClick = SchwarzerZugClick
    TabOrder = 21
  end
  object SpielerZieht: TButton
    Left = 106
    Height = 25
    Top = 529
    Width = 150
    Caption = 'Spieler zieht'
    OnClick = SpielerZiehtClick
    TabOrder = 22
  end
  object LabelSpielerzug1: TLabel
    Left = 104
    Height = 13
    Top = 560
    Width = 165
    Caption = 'Spielerzug ( mit der Maus Ein Click)'
    ParentColor = False
  end
end