object frmMain: TfrmMain
  Left = 237
  Top = 30
  HorzScrollBar.Tracking = True
  VertScrollBar.Tracking = True
  BorderIcons = [biSystemMenu, biMinimize, biHelp]
  BorderStyle = bsSingle
  Caption = 'Ultra Logic'
  ClientHeight = 373
  ClientWidth = 288
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object imgBackGround: TImage
    Left = 0
    Top = 0
    Width = 288
    Height = 354
    Align = alClient
    Picture.Data = {<image000.bmp>}
    Stretch = True
  end
  object Hand: TImage
    Left = 5
    Top = 88
    Width = 38
    Height = 18
    ParentShowHint = False
    Picture.Data = {<image001.ico>}
    ShowHint = False
  end
  object Bevel3: TBevel
    Left = 1
    Top = 37
    Width = 226
    Height = 9
    Shape = bsBottomLine
  end
  object Bevel4: TBevel
    Left = 162
    Top = 2
    Width = 2
    Height = 40
    Shape = bsLeftLine
  end
  object SpeedButton1: TSpeedButton
    Left = 248
    Top = 6
    Width = 28
    Height = 27
    Hint = 'Help|'
    Glyph.Data = {
      50020000424D500200000000000076000000280000001E0000001B0000000100
      040000000000B001000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
      000000000000000007007F8888888888888888888888888807007F7777777777
      777777777777777807007F7777777777777777777777777807007F7777777777
      777777777777777807007F7777777770077777777777777807007F7777777770
      077777777777777807007F77777777007777CCC77777777807007F7777077700
      7777CCC77777777807007F7777007007777777777777777807007F7777000007
      7777CC777777777807007F77770000000077CC777777777807007F7777000000
      0777CCC77777777807007F7777000000777777CC7777777807007F7777000007
      77CC777CC777777807007F77770000777CC7777CC777777807007F7777000777
      7CC7777CC777777807007F777700777777CC777CC777777807007F7777077777
      777CCCCC7777777807007F7777777777777777777777777807007F7777777777
      777777777777777807007F7777777777777777777777777807007F7777777777
      777777777777777807007F7777777777777777777777777807007F7777777777
      777777777777777807007FFFFFFFFFFFFFFFFFFFFFFFFFFF0700777777777777
      77777777777777777700010000000200000000000000000000004D0000A02C00
      6C001C006C00CA050000AE05000094000000D605}
    ParentShowHint = False
    ShowHint = True
    Visible = False
    OnClick = SpeedButton1Click
  end
  object LeftBoard: TDrawGrid
    Left = 43
    Top = 83
    Width = 128
    Height = 263
    TabStop = False
    Color = clWhite
    Ctl3D = True
    DefaultColWidth = 30
    DefaultRowHeight = 25
    DefaultDrawing = False
    FixedColor = clWhite
    FixedCols = 4
    RowCount = 10
    FixedRows = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
    ParentCtl3D = False
    ParentShowHint = False
    PopupMenu = pmenuLeftBoard
    ScrollBars = ssNone
    ShowHint = False
    TabOrder = 0
    OnDragDrop = LeftBoardDragDrop
    OnDragOver = LeftBoardDragOver
    OnDrawCell = LeftBoardDrawCell
    OnMouseDown = LeftBoardMouseDown
    RowHeights = (
      25
      27
      25
      25
      25
      25
      25
      25
      25
      25)
  end
  object RightBoard: TDrawGrid
    Left = 188
    Top = 83
    Width = 92
    Height = 266
    HelpContext = 3001
    TabStop = False
    Color = clTeal
    DefaultColWidth = 21
    DefaultRowHeight = 25
    DefaultDrawing = False
    FixedColor = clTeal
    FixedCols = 4
    RowCount = 10
    FixedRows = 0
    ParentShowHint = False
    PopupMenu = pmenuWhatsThis
    ScrollBars = ssNone
    ShowHint = False
    TabOrder = 1
    OnDrawCell = RightBoardDrawCell
    RowHeights = (
      26
      25
      25
      25
      25
      25
      25
      25
      26
      25)
  end
  object MediaPlayer: TMediaPlayer
    Left = 9
    Top = 342
    Width = 85
    Height = 20
    VisibleButtons = [btPlay, btStop, btEject]
    Visible = False
    TabOrder = 2
    OnNotify = MediaPlayerNotify
  end
  object ColorsBarPanel: TPanel
    Left = 1
    Top = 49
    Width = 222
    Height = 30
    HelpContext = 3002
    BevelInner = bvRaised
    BevelOuter = bvNone
    ParentShowHint = False
    PopupMenu = pmenuWhatsThis
    ShowHint = False
    TabOrder = 3
    object RedShape: TShape
      Left = 3
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clRed
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object GreenShape: TShape
      Left = 194
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clGreen
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object BlackShape: TShape
      Left = 58
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clBlack
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object YellowShape: TShape
      Left = 85
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clYellow
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object BlueShape: TShape
      Left = 112
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clBlue
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object GrayShape: TShape
      Left = 139
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clGray
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object FuchsiaShape: TShape
      Left = 167
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clFuchsia
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object LimeShape: TShape
      Left = 30
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clLime
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
  end
  object Panel1: TPanel
    Left = 2
    Top = 6
    Width = 153
    Height = 31
    TabOrder = 4
    object sbtnCheck: TSpeedButton
      Left = 64
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Check!|'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        59905555555555555777555555555555555555555555555555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbtnCheckClick
    end
    object sbtnRegistration: TSpeedButton
      Left = 97
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Registration|'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF7733333033000000033333373377777773330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = mitemRegistrationClick
    end
    object sbtnRegistrationCode: TSpeedButton
      Left = 124
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Registration Code|'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5000555555555555577755555555555550B0555555555555F7F7555555555550
        00B05555555555577757555555555550B3B05555555555F7F557555555555000
        3B0555555555577755755555555500B3B0555555555577555755555555550B3B
        055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
        555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
        55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
        555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
        55555575FFFF77555555555700007555555555577777755555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = mitemRegistrationNumberClick
    end
    object Bevel1: TBevel
      Left = 92
      Top = 2
      Width = 3
      Height = 25
      Shape = bsLeftLine
    end
    object sbtnProperties: TSpeedButton
      Left = 34
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Game Properties|'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777778888877777700007777777000008887777700007777
        77ECCCCC088777770000777777EC6EEC088777770000777777EC08EC08877777
        0000777777EC006C088777770000777777ECCCCC088777770000777777ECCCCC
        088877770000777777ECCCCC08888777000077777CCCCCCCC088887700007777
        CCCCCCCCCC0888870000777CCCCCCCCCCCC08887000077ECCCCCCCCCCCCC0887
        000077ECCCC0877ECCCC0887000077ECCC088777ECCC0877000077ECCC088777
        ECCC07770000777ECC077777ECC0777700007777EE677777EE67777700007777
        77777777777777770000}
      ParentShowHint = False
      ShowHint = True
      OnClick = mitemPropertiesClick
    end
    object sbtnNew: TSpeedButton
      Left = 4
      Top = 3
      Width = 25
      Height = 25
      Hint = 'New Game|'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777700000000000777770FFFFFFFFF0777770FFFFFFFF
        F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFF
        F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFF0000777770FFFFFF0F
        07777770FFFFFF00777777700000000777777777777777777777}
      ParentShowHint = False
      ShowHint = True
      OnClick = sbtnNewClick
    end
  end
  object Panel2: TPanel
    Left = 172
    Top = 2
    Width = 54
    Height = 39
    HelpContext = 3003
    BevelInner = bvRaised
    ParentShowHint = False
    PopupMenu = pmenuWhatsThis
    ShowHint = False
    TabOrder = 5
    object TimerDigit1: TDigit
      Left = 3
      Top = 3
      Width = 16
      Height = 32
      Color = clBlack
      ColorOff = clMaroon
      ColorOn = clYellow
      ValueBinary = 125
      ParentColor = False
      Thickness = 2
      Separation = 1
    end
    object TimerDigit2: TDigit
      Left = 19
      Top = 3
      Width = 16
      Height = 32
      Color = clBlack
      ColorOff = clMaroon
      ColorOn = clYellow
      ValueBinary = 125
      ParentColor = False
      Thickness = 2
      Separation = 1
    end
    object TimerDigit3: TDigit
      Left = 35
      Top = 3
      Width = 16
      Height = 32
      Color = clBlack
      ColorOff = clMaroon
      ColorOn = clYellow
      ValueBinary = 125
      ParentColor = False
      Thickness = 2
      Separation = 1
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 354
    Width = 288
    Height = 19
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <
      item
        Text = 'Row:'
        Width = 50
      end
      item
        Width = 50
      end>
    ParentFont = False
    SimplePanel = False
    SizeGrip = False
  end
  object MainMenu: TMainMenu
    Left = 101
    Top = 342
    object GameMenu: TMenuItem
      Caption = '&Game'
      RadioItem = True
      ShortCut = 0
      object mitemNewGame: TMenuItem
        Caption = '&New'
        HelpContext = 201
        Hint = 'Start a new game with current settings'
        ShortCut = 113
        OnClick = mitemNewGameClick
      end
      object mitemGiveUp: TMenuItem
        Caption = '&Give Up!'
        GroupIndex = 3
        Hint = 'Abort the game and show the correct solution'
        ShortCut = 0
        OnClick = mitemGiveUpClick
      end
      object N2: TMenuItem
        Caption = '-'
        GroupIndex = 3
        ShortCut = 0
      end
      object mitemProperties: TMenuItem
        Caption = 'P&roperties...'
        GroupIndex = 3
        Hint = 'Change various game options'
        ShortCut = 0
        OnClick = mitemPropertiesClick
      end
      object mitemStatistics: TMenuItem
        Caption = '&Statistics...'
        GroupIndex = 3
        Hint = 'Check how many game were won, lost etc.'
        ShortCut = 0
        OnClick = mitemStatisticsClick
      end
      object N4: TMenuItem
        Caption = '-'
        GroupIndex = 3
        ShortCut = 0
      end
      object mitemExit: TMenuItem
        Caption = 'E&xit'
        GroupIndex = 3
        HelpContext = 202
        Hint = 'Exit Ultra Logic'
        ShortCut = 0
        OnClick = mitemExitClick
      end
    end
    object Level: TMenuItem
      Caption = '&Level'
      ShortCut = 0
      object mitemBeginner: TMenuItem
        Caption = '&Beginner'
        Checked = True
        GroupIndex = 1
        Hint = 'The easiest level'
        RadioItem = True
        ShortCut = 0
        OnClick = mitemBeginnerClick
      end
      object mitemIntermediate: TMenuItem
        Caption = '&Intermediate'
        GroupIndex = 1
        Hint = 'Medium difficulty level'
        RadioItem = True
        ShortCut = 0
        OnClick = mitemIntermediateClick
      end
      object mitemExpert: TMenuItem
        Caption = '&Expert!'
        GroupIndex = 1
        Hint = 'Hardest difficulty level'
        RadioItem = True
        ShortCut = 0
        OnClick = mitemExpertClick
      end
      object mitemCustom: TMenuItem
        Caption = '&Custom...'
        GroupIndex = 1
        Hint = 'Chose any board size you want!'
        RadioItem = True
        ShortCut = 0
        OnClick = mitemCustomClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object mitemTutorial: TMenuItem
        Caption = 'T&utorial'
        Hint = 'Step by step tutorial'
        ShortCut = 0
        OnClick = mitemTutorialClick
      end
      object mitemHelpTopics: TMenuItem
        Caption = 'Help &Topics'
        HelpContext = 221
        Hint = 'Show help contents'
        ShortCut = 0
        OnClick = mitemHelpTopicsClick
      end
      object mitemWhatsNew: TMenuItem
        Caption = '&What'#39's New?'
        Hint = 'Improvements and bug fixes since last version'
        ShortCut = 0
        OnClick = mitemWhatsNewClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mitemRegistration: TMenuItem
        Caption = '&Registration...'
        Hint = 'Register Ultra Logic'
        ShortCut = 0
        OnClick = mitemRegistrationClick
      end
      object mitemRegistrationNumber: TMenuItem
        Caption = 'Registration &Number...'
        Hint = 'Enter registration number to register Ultra Logic'
        ShortCut = 0
        OnClick = mitemRegistrationNumberClick
      end
      object mmenuHelpDivider2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mitemTipOfTheDay: TMenuItem
        Caption = 'Tip of the &Day...'
        Hint = 'Displays the Tip of the Day'
        ShortCut = 0
        OnClick = mitemTipOfTheDayClick
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mitemAbout: TMenuItem
        Caption = '&About...'
        Hint = 'Show credits and game statistics'
        ShortCut = 0
        OnClick = mitemAboutClick
      end
    end
  end
  object Registration: TRegistration
    UserInterface.Title = 'Please enter registration information'
    UserInterface.LabelsFont.Color = clWindowText
    UserInterface.LabelsFont.Height = -11
    UserInterface.LabelsFont.Name = 'MS Sans Serif'
    UserInterface.LabelsFont.Style = [fsBold]
    UserInterface.Background = bkGrey
    UserInfo.UserName = '0'
    UserInfo.RegNumber = '0'
    UserInfo.NumberOfDigits = 5
    UserInfo.MagicNumber = 99999
    UserInfo.Correct = False
    OnSuccess = RegistrationSuccess
    OnFailure = RegistrationFailure
    Left = 137
    Top = 341
  end
  object pmenuLeftBoard: TPopupMenu
    OnPopup = pmenuLeftBoardPopup
    Left = 246
    Top = 341
    object pmitemRepeat: TMenuItem
      Caption = '&Repeat'
      Default = True
      ShortCut = 0
      OnClick = pmitemRepeatClick
    end
    object pmitemClear: TMenuItem
      Caption = '&Clear'
      ShortCut = 0
      OnClick = pmitemClearClick
    end
    object pmitemClearRow: TMenuItem
      Caption = 'Clear &Row'
      ShortCut = 0
      OnClick = pmitemClearRowClick
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object pmitemGiveUp: TMenuItem
      Caption = '&Give Up!'
      ShortCut = 0
      OnClick = mitemGiveUpClick
    end
  end
  object pmenuWhatsThis: TPopupMenu
    Left = 207
    Top = 341
    object pmitemWhatsThis: TMenuItem
      Caption = '&What'#39's This?'
      ShortCut = 0
      OnClick = pmitemWhatsThisClick
    end
  end
  object Tips: TTips
    Title = 'Tip of the day'
    TipHelp = 'Did you know...'
    ShowAtStart = True
    Tips.Strings = (
      
        'You can clear the whole row of pegs with just two clicks. Simply' +
        ' right-click the left board and select "Clear Row".'
      
        'If you don'#39't like the background music you can easily turn it of' +
        'f. Go to Game|Properties, click the Music tab and then disable t' +
        'he Background Music checkbox.'
      
        'There is extensive online help built into Ultra Logic. To use it' +
        ' click the "?" button at the top-right corner of the window and ' +
        'then click on the item you want to get help on. Or, right-click ' +
        'the item and select "What'#39's This?".'
      
        'If you have any suggestions or found a bug, don'#39't hesitate to co' +
        'ntact the author. You can e-mail him at vitaly@idirect.com. Any ' +
        'comments are always welcome!'
      
        'The Beginner, Intermediate and Expert! levels are actually prese' +
        't board sizes. Here are the dimensions: Beginner - 3x10, Interme' +
        'diate - 5x9 and Expert - 8x12.'
      
        'Registering Ultra Logic is easy - simply fill the Registration F' +
        'orm (Help|Registration Form) and send it to the author with the ' +
        'appropriate fee.'
      
        'You can easily repeat part of your previous turn by right clicki' +
        'ng the board and selecting "Repeat" from the pop-up menu.'
      
        'A variety of statistics are being kept by the game. To view a pi' +
        'e chart representation of these statistics select Statistics fro' +
        'm the Game menu.')
    Left = 65
    Top = 343
  end
end