dtmain.lfm

object DigitaltrainerMainForm: TDigitaltrainerMainForm
  Left = 430
  Height = 737
  Top = 235
  Width = 1277
  Align = alTop
  Caption = 'Digitaltrainer'
  ClientHeight = 717
  ClientWidth = 1277
  Color = 8405056
  Menu = MainMenu1
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  UseDockManager = True
  LCLVersion = '2.2.2.0'
  WindowState = wsMaximized
  object Panel1: TPanel
    Left = 0
    Height = 80
    Top = 0
    Width = 1277
    Align = alTop
    BorderSpacing.InnerBorder = 5
    BevelColor = clBlack
    BevelOuter = bvNone
    ClientHeight = 80
    ClientWidth = 1277
    Color = 7354424
    ParentColor = False
    TabOrder = 0
    object ZoomInShape: TShape
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      AnchorSideBottom.Control = Panel1
      Left = 5
      Height = 65
      Top = 5
      Width = 65
      BorderSpacing.Left = 5
      BorderSpacing.Top = 5
      Brush.Color = 6303792
      OnMouseDown = ZoomInShapeMouseDown
      Shape = stRoundRect
    end
    object ZoomInLabel: TLabel
      AnchorSideLeft.Control = ZoomInShape
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = ZoomInShape
      AnchorSideTop.Side = asrCenter
      Left = 16
      Height = 30
      Top = 22
      Width = 43
      Caption = '🔍+'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -21
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
    object ZoomOutShape: TShape
      AnchorSideLeft.Control = ZoomInShape
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 75
      Height = 65
      Top = 5
      Width = 65
      BorderSpacing.Left = 5
      BorderSpacing.Top = 5
      Brush.Color = 6303792
      OnMouseDown = ZoomOutShapeMouseDown
      Shape = stRoundRect
    end
    object ZoomOutLabel: TLabel
      AnchorSideLeft.Control = ZoomOutShape
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = ZoomOutShape
      AnchorSideTop.Side = asrCenter
      Left = 89
      Height = 30
      Top = 22
      Width = 37
      Caption = '🔍-'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -21
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
    object ResetShape: TShape
      AnchorSideLeft.Control = ZoomOutShape
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 155
      Height = 65
      Top = 5
      Width = 65
      BorderSpacing.Left = 15
      BorderSpacing.Top = 5
      Brush.Color = 6303792
      OnMouseDown = ResetShapeMouseDown
      Shape = stRoundRect
    end
    object ResetLabel: TLabel
      AnchorSideLeft.Control = ResetShape
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = ResetShape
      AnchorSideTop.Side = asrCenter
      Left = 170
      Height = 21
      Top = 27
      Width = 34
      Caption = 'reset'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
    object PlayPauseShape: TShape
      AnchorSideLeft.Control = TestShape
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 294
      Height = 65
      Top = 5
      Width = 65
      BorderSpacing.Left = 4
      BorderSpacing.Top = 5
      Brush.Color = 6303792
      OnMouseDown = PlayPauseShapeMouseDown
      Shape = stRoundRect
    end
    object PlayPauseLabel: TLabel
      AnchorSideLeft.Control = PlayPauseShape
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = PlayPauseShape
      AnchorSideTop.Side = asrCenter
      Left = 310
      Height = 45
      Top = 15
      Width = 32
      Caption = '⏵'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -32
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
    object SpeedBgShape: TShape
      AnchorSideLeft.Control = PlayPauseShape
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 364
      Height = 65
      Top = 5
      Width = 195
      BorderSpacing.Left = 5
      BorderSpacing.Top = 5
      Brush.Color = 6303792
      Shape = stRoundRect
    end
    object SpeedTrackBar: TTrackBar
      AnchorSideLeft.Control = SpeedBgShape
      AnchorSideTop.Control = SpeedBgShape
      AnchorSideRight.Control = SpeedBgShape
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = SpeedBgShape
      AnchorSideBottom.Side = asrBottom
      Left = 367
      Height = 40
      Hint = 'Hier kannst du die Geschwindigkeit einstellen.'#13#10#13#10'Achtung:'#13#10'Bei maximaler Geschwindigkeit wird volle Kanne'#13#10'simuliert und die Oberfläche reagiert nicht mehr'#13#10'so schnell.'
      Top = 27
      Width = 189
      Max = 34
      OnChange = SpeedTrackBarChange
      Position = 6
      Anchors = [akLeft, akRight, akBottom]
      BorderSpacing.Left = 3
      BorderSpacing.Right = 3
      BorderSpacing.Bottom = 3
      Color = 7354424
      ParentColor = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object SpeedLabel: TLabel
      AnchorSideLeft.Control = SpeedBgShape
      AnchorSideTop.Control = SpeedBgShape
      Left = 369
      Height = 15
      Top = 8
      Width = 32
      BorderSpacing.Left = 5
      BorderSpacing.Top = 3
      Caption = 'Speed'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clWhite
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
    object infoLabel: TLabel
      AnchorSideLeft.Control = SpeedBgShape
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideRight.Control = Panel1
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = Panel1
      AnchorSideBottom.Side = asrBottom
      Left = 563
      Height = 72
      Top = 4
      Width = 710
      Anchors = [akTop, akLeft, akRight, akBottom]
      AutoSize = False
      BorderSpacing.Left = 4
      BorderSpacing.Top = 4
      BorderSpacing.Right = 4
      BorderSpacing.Bottom = 4
      Font.Color = clWhite
      ParentColor = False
      ParentFont = False
      OptimalFill = True
    end
    object TestShape: TShape
      AnchorSideLeft.Control = ResetShape
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideRight.Control = Panel1
      AnchorSideRight.Side = asrBottom
      Left = 224
      Height = 65
      Top = 5
      Width = 65
      BorderSpacing.Left = 4
      BorderSpacing.Top = 5
      BorderSpacing.Right = 5
      Brush.Color = 6303792
      OnMouseDown = TestShapeMouseDown
      Shape = stRoundRect
    end
    object TestLabel: TLabel
      AnchorSideLeft.Control = TestShape
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = TestShape
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Side = asrBottom
      Left = 244
      Height = 21
      Top = 27
      Width = 25
      BorderSpacing.Top = 5
      BorderSpacing.Right = 5
      Caption = 'test'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
  end
  object PaletteScrollBar: TScrollBar
    Left = 0
    Height = 614
    Top = 80
    Width = 17
    Align = alLeft
    Kind = sbVertical
    PageSize = 0
    TabOrder = 1
    OnScroll = PaletteScrollBarScroll
  end
  object BoardImage: TImage
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Panel1
    AnchorSideRight.Control = Panel1
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Cursor = crCross
    Left = 17
    Height = 614
    Top = 80
    Width = 1260
    AntialiasingMode = amOn
    Align = alClient
    OnClick = BoardImageClick
    OnResize = FormResize
    ParentShowHint = False
    ShowHint = True
    StretchOutEnabled = False
    StretchInEnabled = False
  end
  object SubPaletteComboBox: TComboBox
    AnchorSideLeft.Control = BoardImage
    AnchorSideTop.Control = BoardImage
    AnchorSideRight.Side = asrBottom
    Left = 19
    Height = 21
    Top = 82
    Width = 151
    AutoComplete = True
    AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
    BorderSpacing.Left = 2
    BorderSpacing.Top = 2
    BorderSpacing.Right = 5
    Color = 6303792
    DropDownCount = 50
    Font.Color = clWhite
    ItemHeight = 15
    OnDrawItem = SubPaletteComboBoxDrawItem
    OnEditingDone = SubPaletteComboBoxEditingDone
    ParentFont = False
    Style = csOwnerDrawEditableFixed
    TabOrder = 2
  end
  object BoardVerticalScrollbar: TScrollBar
    AnchorSideTop.Control = Panel1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = BoardHorizontalScrollBar
    Left = 1260
    Height = 620
    Top = 80
    Width = 17
    Align = alCustom
    Anchors = [akTop, akRight, akBottom]
    Kind = sbVertical
    PageSize = 0
    TabOrder = 3
  end
  object BoardHorizontalScrollBar: TScrollBar
    AnchorSideLeft.Side = asrBottom
    AnchorSideRight.Control = BoardVerticalScrollbar
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 184
    Height = 17
    Top = 700
    Width = 1076
    Anchors = [akLeft, akRight, akBottom]
    PageSize = 0
    TabOrder = 4
  end
  object propEditPanel: TPanel
    Left = 216
    Height = 272
    Top = 128
    Width = 308
    BevelColor = clBlack
    ClientHeight = 272
    ClientWidth = 308
    Color = 7354424
    ParentColor = False
    TabOrder = 5
    Visible = False
    object ValueListEditor1: TValueListEditor
      AnchorSideLeft.Control = propEditPanel
      AnchorSideTop.Control = propEditPanel
      AnchorSideRight.Control = propEditPanel
      AnchorSideRight.Side = asrBottom
      Left = 6
      Height = 188
      Top = 6
      Width = 296
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 5
      BorderSpacing.Top = 5
      BorderSpacing.Right = 5
      Color = 8405056
      ExtendedSelect = False
      FixedColor = 6303792
      FixedCols = 0
      Flat = True
      Font.Color = clWhite
      ParentFont = False
      RowCount = 2
      TabOrder = 0
      TitleCaptions.Strings = (
        'Eigenschaft'
        'Wert'
      )
      ColWidths = (
        64
        231
      )
    end
    object propDeleteButton: TShape
      AnchorSideLeft.Control = ValueListEditor1
      AnchorSideTop.Control = ValueListEditor1
      AnchorSideTop.Side = asrBottom
      Left = 6
      Height = 65
      Top = 199
      Width = 65
      BorderSpacing.Top = 5
      Brush.Color = 6303792
      OnMouseDown = propDeleteButtonMouseDown
      Shape = stRoundRect
    end
    object propDeleteLabel: TLabel
      AnchorSideLeft.Control = propDeleteButton
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = propDeleteButton
      AnchorSideTop.Side = asrCenter
      Left = 10
      Height = 21
      Top = 221
      Width = 57
      Caption = 'Löschen'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
    object propEditShape: TShape
      AnchorSideLeft.Control = propDeleteButton
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = propDeleteButton
      Left = 76
      Height = 65
      Top = 199
      Width = 80
      BorderSpacing.Left = 5
      Brush.Color = 6303792
      OnMouseDown = propEditShapeMouseDown
      Shape = stRoundRect
    end
    object propEditLabel: TLabel
      AnchorSideLeft.Control = propEditShape
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = propEditShape
      AnchorSideTop.Side = asrCenter
      Left = 79
      Height = 42
      Top = 210
      Width = 74
      Caption = 'Schaltung'#13#10'Bearbeiten'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
    object propOkShape: TShape
      AnchorSideLeft.Control = propEditShape
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = propEditShape
      Left = 161
      Height = 65
      Top = 199
      Width = 65
      BorderSpacing.Left = 5
      Brush.Color = 6303792
      OnMouseDown = propOkShapeMouseDown
      Shape = stRoundRect
    end
    object propOkLabel: TLabel
      AnchorSideLeft.Control = propOkShape
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = propOkShape
      AnchorSideTop.Side = asrCenter
      Left = 180
      Height = 21
      Top = 221
      Width = 27
      Caption = 'O.K.'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
    object propCancelShape: TShape
      AnchorSideLeft.Control = propOkShape
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = propOkShape
      AnchorSideRight.Control = ValueListEditor1
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = propEditPanel
      AnchorSideBottom.Side = asrBottom
      Left = 231
      Height = 67
      Top = 199
      Width = 71
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Left = 5
      BorderSpacing.Bottom = 5
      Brush.Color = 6303792
      OnMouseDown = propCancelShapeMouseDown
      Shape = stRoundRect
    end
    object propCancelLabel: TLabel
      AnchorSideLeft.Control = propCancelShape
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = propCancelShape
      AnchorSideTop.Side = asrCenter
      Left = 237
      Height = 21
      Top = 222
      Width = 59
      Caption = 'Abbruch'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
  end
  object selectionShape: TShape
    Left = 336
    Height = 65
    Top = 440
    Width = 65
    Brush.Color = clNone
    Brush.Style = bsClear
    Pen.Color = 43775
    OnMouseDown = selectionShapeMouseDown
    Visible = False
  end
  object ioEdit: TEdit
    Left = 946
    Height = 23
    Top = 257
    Width = 80
    Color = 6303792
    Font.Color = clWhite
    ParentFont = False
    TabOrder = 6
    Visible = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Height = 23
    Top = 694
    Width = 1277
    AutoHint = True
    Panels = <>
  end
  object MainMenu1: TMainMenu
    Left = 600
    Top = 16
    object miBoard: TMenuItem
      Caption = '&Schaltung'
      object miGoBack: TMenuItem
        Caption = '&Zurück zur vorherigen'
        Hint = 'Springt zurück zu dem was Du zuletzt bearbeitet hast.'
        ShortCut = 16471
        OnClick = miGoBackClick
      end
      object miNewBoard: TMenuItem
        Caption = '&Neu'
        Hint = 'Setzt die Schaltung zurück und schaltet auf den'#13#10'freien Bearbeitungsmodus um.'
        ShortCut = 16462
        OnClick = miNewBoardClick
      end
      object miTestBoard: TMenuItem
        Caption = '&Testen'
        ShortCut = 16468
        OnClick = miTestBoardClick
      end
      object Separator1: TMenuItem
        Caption = '-'
      end
      object miBackups: TMenuItem
        Caption = 'Backups...'
        Hint = 'Zeigt die automatisch generierten Backups an.'
        OnClick = miBackupsClick
      end
    end
    object miPalette: TMenuItem
      Caption = '&Palette'
      object miManagePalette: TMenuItem
        Caption = 'Palette &verwalten'
        Hint = 'Zeigt einen Dialog mit Verwaltungsmöglichkeiten'#13#10'zur Palette an.'
        OnClick = miEditPaletteClick
      end
      object miAddToPalette: TMenuItem
        Caption = '&Eintrag aus aktueller Schaltung erstellen'
        Hint = 'Erstellt ein neues Bauelement aus der aktuellen Schaltung.'
        ShortCut = 16464
        OnClick = miAddToPaletteClick
      end
    end
    object miChallengesMenu: TMenuItem
      Caption = '&Aufgaben'
      object miViewTasks: TMenuItem
        Caption = '&Aufgaben ansehen'
        Hint = 'Zeigt die Aufgaben an.'#13#10'Von dort aus kannst Du auch Aufgaben starten.'
        OnClick = miTasksClick
      end
      object miCreateTask: TMenuItem
        Caption = 'Aufgabe aus aktueller Schaltung &erstellen'
        ShortCut = 16449
        OnClick = miSaveAsTaskClick
      end
      object miStartNextUnsolvedTask: TMenuItem
        Caption = '&Nächste Aufgabe lösen'
        Hint = 'Startet die nächste ungelöste Aufgabe'
        OnClick = miStartNextUnsolvedTaskClick
      end
    end
    object miEdit: TMenuItem
      Caption = '&Bearbeiten'
      object miCopy: TMenuItem
        Caption = '&Kopieren'
        ShortCut = 16451
        OnClick = miCopyClick
      end
      object miPaste: TMenuItem
        Caption = '&Einfügen'
        ShortCut = 16470
        OnClick = miPasteClick
      end
      object miUndo: TMenuItem
        Caption = '&Rückgängig'
        ShortCut = 16474
        OnClick = miUndoClick
      end
      object miRedo: TMenuItem
        Caption = '&Wiederholen'
        ShortCut = 16473
        OnClick = miRedoClick
      end
      object miShrink: TMenuItem
        Caption = '&Schrumpfen'
        Hint = 'Verkleinert die Schaltung soweit wie möglich'
        OnClick = miShrinkClick
      end
    end
    object miView: TMenuItem
      Caption = 'Ans&icht'
      object miFullScreen: TMenuItem
        Caption = '&Vollbild'
        ShortCut = 122
        ShortCutKey2 = 32781
        OnClick = miFullScreenClick
      end
      object miEditMode: TMenuItem
        Caption = '&Freier Modus'
        Hint = 'Schaltet den "Freien Editor" an.'#13#10'Hat nur einen Effekt wenn gerade eine Aufgabe gelöst wird.'
        OnClick = miEditModeClick
      end
      object miSimpleUI: TMenuItem
        Caption = '&Vereinfachte UI'
        Checked = True
        Hint = 'Stellt die vereinfachte Darstellung an oder aus'
        OnClick = miSimpleUIClick
      end
      object Separator2: TMenuItem
        Caption = '-'
      end
      object miZoomIn: TMenuItem
        Caption = 'Zoom in'
        ShortCut = 16571
        ShortCutKey2 = 16491
        OnClick = miZoomInClick
      end
      object miZoomOut: TMenuItem
        Caption = 'Zoom out'
        ShortCut = 16573
        ShortCutKey2 = 16493
        OnClick = miZoomOutClick
      end
      object Separator3: TMenuItem
        Caption = '-'
      end
      object MenuItem1: TMenuItem
        Caption = 'Farbschema'
        object miColorSchemeDefault: TMenuItem
          AutoCheck = True
          Caption = 'Standard'
          Checked = True
          RadioItem = True
          OnClick = miColorSchemeDefaultClick
        end
        object miColorSchemeBlackOnWhite: TMenuItem
          AutoCheck = True
          Caption = 'Schwarz auf Weiß'
          RadioItem = True
          OnClick = miColorSchemeDefaultClick
        end
        object miColorSchemeNeon: TMenuItem
          AutoCheck = True
          Caption = 'Neon'
          RadioItem = True
          OnClick = miColorSchemeDefaultClick
        end
        object miColorSchemeRust: TMenuItem
          AutoCheck = True
          Caption = 'Rost'
          RadioItem = True
          OnClick = miColorSchemeDefaultClick
        end
        object miColorSchemeMediumGray: TMenuItem
          AutoCheck = True
          Caption = 'Nebel'
          RadioItem = True
          OnClick = miColorSchemeDefaultClick
        end
        object miColorSchemeDark: TMenuItem
          AutoCheck = True
          Caption = 'Dunkel'
          RadioItem = True
          OnClick = miColorSchemeDefaultClick
        end
      end
      object Separator4: TMenuItem
        Caption = '-'
      end
      object miAbout: TMenuItem
        Caption = 'Über...'
        OnClick = miAboutClick
      end
    end
  end
  object AnimationTimer: TTimer
    Enabled = False
    Interval = 25
    Left = 170
    Top = 180
  end
  object SimulationTimer: TTimer
    Interval = 125
    OnTimer = SimulationTimerTimer
    Left = 250
    Top = 259
  end
  object WireTimer: TIdleTimer
    Interval = 100
    OnTimer = WireTimerTimer
    Left = 669
    Top = 240
  end
end