Chip 2000 August/chip_08_2000.iso/software/astro/starcalc/STARCALC.EXE/0/RCDATA/TSTARCALCMAINFORM/TSTARCALCMAINFORM.txt

Text File | 2000-05-28 | 43KB | 1,294 lines

object StarCalcMainForm: TStarCalcMainForm
  Left = 140
  Top = 111
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  AutoScroll = False
  Caption = 'StarCalc 5.6'
  ClientHeight = 443
  ClientWidth = 652
  Font.Color = clBlack
  Font.Height = -9
  Font.Name = 'Small Fonts'
  Font.Style = []
  Menu = MainMenu
  Visible = True
  OnCreate = CreateMainForm
  OnDestroy = DestroyMainForm
  OnKeyDown = KeyDownOnMainForm
  OnResize = ResizeMainForm
  PixelsPerInch = 96
  TextHeight = 11
  object EqGridButton: TSpeedButton
    Left = 2
    Top = 406
    Width = 24
    Height = 17
    Hint = 'Equat. grid'
    AllowAllUp = True
    GroupIndex = 1
    Caption = 'E'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    OnClick = N27Click
  end
  object HzGridButton: TSpeedButton
    Left = 29
    Top = 406
    Width = 24
    Height = 17
    Hint = 'Horiz. grid'
    AllowAllUp = True
    GroupIndex = 2
    Caption = 'H'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    OnClick = N26Click
  end
  object SkyScrollBox: TPalettedScrollBox
    Left = 56
    Top = 0
    Width = 596
    Height = 390
    AutoScroll = False
    Color = clWhite
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object SkyPaintBox: TPalettedPaintBox
      Left = 0
      Top = 0
      Width = 592
      Height = 386
      Align = alClient
      DragCursor = crDefault
      OnDblClick = SkyMouseDblClick
      OnDragDrop = SkyPaintBoxDragDrop
      OnDragOver = SkyPaintBoxDragOver
      OnEndDrag = EndRotate
      OnMouseDown = SkyMouseDown
      OnMouseMove = SkyMouseMove
      OnPaint = SkyPaint
      OnStartDrag = SkyPaintBoxStartDrag
    end
  end
  object Panel1: TPanel
    Left = 1
    Top = 35
    Width = 52
    Height = 292
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object ZoomIn: TSpeedButton
      Left = 5
      Top = 179
      Width = 25
      Height = 24
      Hint = 'Zoom in / Zoom out'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        5A010000424D5A01000000000000760000002800000014000000130000000100
        040000000000E400000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77770008000077777777777777700070000077777777800008700F0700007777
        77700777700000770000777777088888F780777700008888880FFFF87F708777
        0000FFFFF0FFFFF877F707770000FFFFF0FEFFF8777707770000FFFFF0FEFFF8
        777707770000FFFFF0FEEFF8777707770000FFFFF80FEEEF777087770000FFFF
        FF08FFF8778077770000FFDFFFF00FF8700777770000FFFDFFFF800008777777
        0000FFCFDFFFFFF8777777770000FFCFFDFCCCC8777777770000CCCCCFDFFFF8
        777777770000FFCFFFFDFFF8777777770000FFCFFFFFDFF8777777770000}
      ParentShowHint = False
      ShowHint = True
      OnClick = ZoomInClick
    end
    object RotateB: TSpeedButton
      Left = 5
      Top = 63
      Width = 25
      Height = 24
      Hint = 'Time back'
      Glyph.Data = {
        5A010000424D5A01000000000000760000002800000014000000130000000100
        040000000000E400000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777777770000777777000007777777770000777700FF0FF00777777700007770
        F0FFFFF0F07777770000770FFFFFFFFFFF07777700007700FFFFFFFFF0077777
        000070FFFFFFFFFFFFF07777000070FFFFFF0FFFFFF077770000700FFFFF0FFF
        FF007777000070FFFF000FFFFFF07777000070FFF0FF0FFFFFF0777700007700
        FFFF0FFFF00777770000770FFFFF0FFFFF07777700007770F0FF0FF0F0777777
        0000777700FF0FF0077777770000777777000007777777770000777777777777
        777777770000777777777777774444470000777777777777777777770000}
      ParentShowHint = False
      ShowHint = True
      OnClick = RotateBClick
    end
    object RotateF: TSpeedButton
      Left = 5
      Top = 37
      Width = 25
      Height = 24
      Hint = 'Time forward'
      Glyph.Data = {
        5A010000424D5A01000000000000760000002800000014000000130000000100
        040000000000E400000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777777770000777777000007777777770000777700FF0FF00777777700007770
        F0FFFFF0F07777770000770FFFFFFFFFFF07777700007700FFFFFFFFF0077777
        000070FFFFFFFFFFFFF07777000070FFFFFF0FFFFFF077770000700FFFFF0FFF
        FF007777000070FFFFFF000FFFF07777000070FFFFFF0FF0FFF0777700007700
        FFFF0FFFF00777770000770FFFFF0FFFFF07777700007770F0FF0FF0F0777777
        0000777700FF0FF0077747770000777777000007777747770000777777777777
        774444470000777777777777777747770000777777777777777747770000}
      ParentShowHint = False
      ShowHint = True
      OnClick = RotateFClick
    end
    object RotateNow: TSpeedButton
      Left = 5
      Top = 89
      Width = 25
      Height = 24
      Hint = 'Now'
      Glyph.Data = {
        5A010000424D5A01000000000000760000002800000014000000130000000100
        040000000000E400000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777777770000777777000007777777770000777700FF0FF00777777700007770
        F0FFFFF0F07777770000770FFFFFFFFFFF07777700007700FFFFFFFFF0077777
        000070FFFFFFFFFFFFF07777000070FFFFFF9FFFFFF077770000700FFFFF9FFF
        FF007777000070FFFFFF9FFFFFF07777000070FFFFFF9FFFFFF0777700007700
        FFFF9FFFF00777770000770FFFFF9FFFFF07777700007770F0FF9FF0F0777777
        0000777700FF9FF0077977970000777777000007777979970000777777777777
        777997970000777777777777777977970000777777777777777777770000}
      ParentShowHint = False
      ShowHint = True
      OnClick = RotateNowClick
    end
    object RegZoom: TSpeedButton
      Left = 5
      Top = 205
      Width = 25
      Height = 24
      Hint = 'Zoom in region'
      AllowAllUp = True
      GroupIndex = 1
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        5A010000424D5A01000000000000760000002800000014000000130000000100
        040000000000E400000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777777777777777700007700077000770007707700007777
        7777777777777077000077077777777777777777000077077777777777777777
        0000770777777777777770770000777777777777777770770000777777777777
        7777707700007707777777777777777700007707777777777777777700007707
        7777777777777077000077777777777777777077000077777777777777777077
        0000770777777777777777770000770777777777777777770000770770007700
        077000770000777777777777777777770000777777777777777777770000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = RegZoomClick
    end
    object AzRotate: TSpeedButton
      Left = 5
      Top = 147
      Width = 25
      Height = 24
      Hint = 'Azimuth rotation'
      AllowAllUp = True
      GroupIndex = 1
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        5A010000424D5A01000000000000760000002800000014000000130000000100
        040000000000E400000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777F777
        777777770000777777FF0FF7777777770000777FFF00000FFF777777000077F0
        00FFFFF000F77777000077F0FF77777F00F77777000077F0F77777F0F0F77777
        00007F0F77777F0F7F0F777700007F0F7777F0FFFF0F77770000F00F777F0000
        0000F77700007F0F777FFFFFFF0F777700007F0F777777777F0F7777000077F0
        F7777777F0F77777000077F0FF77777FF0F77777000077F000FFFFF000F77777
        0000777FFF00000FFF7000070000777777FF0FF777777007000077777777F777
        777707070000777777777777770077070000777777777770007777770000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = AzRotateClick
    end
    object ObjSelect: TSpeedButton
      Left = 5
      Top = 121
      Width = 25
      Height = 24
      Hint = 'Object selection'
      AllowAllUp = True
      GroupIndex = 1
      Down = True
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        5A010000424D5A01000000000000760000002800000014000000130000000100
        040000000000E400000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777777770000777777777770007777770000777777777770F077777700007777
        7777770FF0777777000077777777770F0777777700007777770770FF07777777
        00007777770070F07777777700007777770F0FF07777777700007777770FFFF0
        0007777700007777770FFFFFF077777700007777770FFFFF0777777700007777
        770FFFF07777777700007777770FFF077777777700007777770FF07777777777
        00007777770F0777777777770000777777007777777777770000777777077777
        777777770000777777777777777777770000777777777777777777770000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = ObjSelectClick
    end
    object TrackingBtn: TSpeedButton
      Left = 5
      Top = 263
      Width = 25
      Height = 24
      Hint = 'Object locking'
      AllowAllUp = True
      GroupIndex = 2
      Glyph.Data = {
        5A010000424D5A01000000000000760000002800000014000000130000000100
        040000000000E400000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007000777777777777000700007088077000770007080700007000
        7777777777770807000077077777666677777777000077077766EEEE66777777
        00007707766EEEEEE66770770000777776EEEEEEEE677077000077776EEEEEEE
        EEE67077000077076EEEEEEEEEE67777000077076EEEEEEEEEE6777700007707
        76EEEEEEEE67707700007777766EEEEEE6677077000077777766EEEE66777077
        0000770777776666777777770000708077777777777700070000708070007700
        077088070000700077777777777700070000777777777777777777770000}
      ParentShowHint = False
      ShowHint = True
      OnClick = TrackingBtnClick
    end
    object SetRAngleBtn: TSpeedButton
      Left = 33
      Top = 37
      Width = 14
      Height = 50
      Hint = 'Duration of rotation step'
      Glyph.Data = {
        92000000424D9200000000000000760000002800000007000000070000000100
        0400000000001C00000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0FFF0
        FFF0FF000FF0F00000F000000000FFFFFFF0FFFFFFF0}
      ParentShowHint = False
      ShowHint = True
      OnClick = SetRAngleBtnClick
    end
    object SpeedButton2: TSpeedButton
      Left = 33
      Top = 147
      Width = 14
      Height = 24
      Hint = 'Azimuth rotation angle'
      Glyph.Data = {
        5A000000424D5A000000000000003E0000002800000007000000070000000100
        0100000000001C0000000000000000000000000000000000000000000000FFFF
        FF00FE000000EE000000C60000008200000000000000FE000000FE000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 33
      Top = 179
      Width = 14
      Height = 50
      Hint = 'Set Zoom'
      Glyph.Data = {
        5A000000424D5A000000000000003E0000002800000007000000070000000100
        0100000000001C0000000000000000000000000000000000000000000000FFFF
        FF00FE000000EE000000C60000008200000000000000FE000000FE000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 33
      Top = 89
      Width = 14
      Height = 24
      Hint = 'Set Date and Time'
      Glyph.Data = {
        92000000424D9200000000000000760000002800000007000000070000000100
        0400000000001C00000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0FFF0
        FFF0FF000FF0F00000F000000000FFFFFFF0FFFFFFF0}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object AngSepar: TSpeedButton
      Left = 5
      Top = 237
      Width = 25
      Height = 24
      Hint = 'Angular distance'#13'between two points'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        F2010000424DF201000000000000760000002800000028000000130000000100
        0400000000007C01000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777777777777FFF7777777777777777000777777777777777778887F777777
        777777770EEE0777777777777777877787F7777777777770EEEEE07777777777
        7778F77F78F7777777777770EE0EE077777777777778F787F8F7777777777770
        EEE0E0777777777777787F7878777777777777770EEE077777777777777787FF
        87F7777777777770700070777777777777787888787F77777777770777777707
        77777777778777777787F777777777777777777077777777777FFF7777787F7F
        FF7777000777777707000777778887777777878887F777007777777770EEE077
        77887F777777787F787F7707077777770E0EEE07778787F777778F87F78F7777
        707777770EE0EE077777787F77778F78778F7777770777770EEEEE0777777787
        F7F787F7778777777770707770EEE0777777777878F7787FF877777777770077
        070007777777777788F787888777777777700070777777777777777888787777
        77777777777777777777777777777777777777777777}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = AngSeparClick
    end
    object SetLocation: TSpeedButton
      Left = 5
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Location'
      Glyph.Data = {
        EE000000424DEE0000000000000076000000280000000F0000000F0000000100
        0400000000007800000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770000077
        777077700CCCBC007770770CCFCCBCCC077070CCFCCCBBCCC07070CCCCCBBFBC
        C0700CFCCCBBBBBCCC000CCCCBCBBCCCCC000BCCCBCCCCCCCB000CCCBBBCCFCC
        CB000CCCBBBBCFFCCB0070CCBFFBBCCCC07070CBBBBBCCCCC070770BBBBBCCBC
        077077700BCCCB0077707777700000777770}
      ParentShowHint = False
      ShowHint = True
      OnClick = SetLocationClick
    end
  end
  object ToolBarPanel: TPanel
    Left = 56
    Top = 392
    Width = 596
    Height = 32
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    OnMouseMove = ToolBarPopup
    object StarsOnOff: TSpeedButton
      Left = 65
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Stars'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        56020000424D560200000000000076000000280000003C0000000F0000000100
        040000000000E001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777F7F7F7F7F7F7F70000777777777777
        777777777777777777777777777777777F79999F7F7F7F7F0000779999777777
        7777799997777777777799997777777777999999F7F7F7F70000799999977777
        77779999997777777779999997777777799999999F7F7F7F0000999999997777
        777999999997777777999999997777777999999997F7F7F70000999999997777
        77799999999777777799999999777777799999999F7F7F7F0000999999997777
        7779999999977777779999999977777777999999F7F7F7F70000799999977777
        777799999977777777799999977777777F79999F7F999F990000779999777999
        7997799997779997997799997779997997F7F7F7F9F799F70000777777779779
        977777777779779977777777779779977F7F7F7F797F797F0000777777779777
        9777777777797779777777777797779777F7F7F7F9F7F9F70000777777779777
        977777777779777977777777779777977F7F7F7F797F9F9F0000777777779779
        7977777777797797977777777797797977F7F7F7F79997970000777777777999
        797777777777999797777777777999797F7F7F7F7F7F7F7F0000777777777777
        7777777777777777777777777777777777F7F7F7F7F7F7F70000}
      NumGlyphs = 4
      ParentShowHint = False
      ShowHint = True
      Spacing = 2
      OnClick = ChVisObjects
    end
    object BoundsOnOff: TSpeedButton
      Left = 121
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Constellation boundaries'
      AllowAllUp = True
      GroupIndex = 3
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777C777777
        777777777C777777777777777C777777777777777C777777777777777CCCCCCC
        CCCC7777777777C777777777777777C777777777777777C777777777777777C7
        777777777777CCCCCCCC77777777C7777777CCCCCCCCC777777777C777777777
        777777C777777777777777C777777777777777C7777777777777}
      ParentShowHint = False
      ShowHint = True
      OnClick = ChVisObjects
    end
    object NamesOnOff: TSpeedButton
      Left = 149
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Constellation names'
      AllowAllUp = True
      GroupIndex = 4
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007777787777BB
        BB77777778777777777777777877777777777777787777777777777778888888
        8888777777777787777777777777778777777BBBBBB7778777BB777777777787
        7777777777778888888877777777877777778888888887777777778777777777
        777777877777777BBBB777877777777777777787777777777777}
      ParentShowHint = False
      ShowHint = True
      OnClick = ChVisObjects
    end
    object ObjectsOnOff: TSpeedButton
      Left = 177
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Solar system objects'
      AllowAllUp = True
      GroupIndex = 5
      Glyph.Data = {
        76020000424D7602000000000000760000002800000040000000100000000100
        0400000000000002000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777797777777
        777777779777777777777777977777777777F7F797F7F7F7F7F7777797777777
        7EE77777977777777EE77777977777777EE77F7F9F7F7F7F7EEF999999777777
        EE77999999777777EE77999999777777EE77999999F7F7F7EEF779779777777E
        EE7779779777777EEE7779779777777EEE77797F9F7F7F7EEE7F77979777777E
        EE7777979777777EEE7777979777777EEE77F79797F7F7FEEEF777979777777E
        EE7777979777777EEE7777979777777EEE777F9F9F7F7F7EEE7F779777777777
        EE77779777777777EE77779777777777EE77F797F7F7F7F7EEF7797777777777
        7EE77977777777777EE77977777777777EE7797F7F7F7F7F7EEF777777777777
        777777777777777777777777777777777777F7F7F7F7F7F7F7F7777777777777
        7777777777777777777777777777777777777F7F7F7F7F7F7F7F777777777777
        777777777777777777777777777777777777F7F7F7F7F7F7F7F7777777BBB777
        7777777777BBB7777777777777BBB77777777F7F7FBBBF7F7F7F77777BBBBB77
        777777777BBBBB77777777777BBBBB777777F7F7FBBBBBF7F7F777777BBBBB77
        777777777BBBBB77777777777BBBBB7777777F7F7BBBBB7F7F7F77777BBBBB77
        777777777BBBBB77777777777BBBBB777777F7F7FBBBBBF7F7F7777777BBB777
        7777777777BBB7777777777777BBB77777777F7F7FBBBF7F7F7F}
      NumGlyphs = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = ChVisObjects
    end
    object ShowCatForm: TSpeedButton
      Left = 5
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Catalogs and object groups'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888888000087777777777777777778000087FFFFFFFFFFFFFFFF78000087FF
        FFFFFFFFFFFFFF78000087F000000FFF0FF00078000087FFFFFFFFFFFFFFFF78
        000087FFFFFFFFFFFFFFFF78000087F000FFFFFF0FF00078000087FFFFFFFFFF
        FFFFFF78000087FFFFFFFFFFFFFFFF78000087F0000000FF0FF00078000087FF
        FFFFFFFFFFFFFF78000087FFFFFFFFFFFFFFFF78000087777777777777777778
        000087FFFFFFFFFFFFFFFF78000087FFFFFFFFFFFFFFFF78000087FCCCCCCFFC
        CFFCCC78000087FFFFFFFFFFFFFFFF7800008777777777777777777800008888
        88888888888888880000}
      ParentShowHint = False
      ShowHint = True
      OnClick = N21Click
    end
    object CLinesOnOff: TSpeedButton
      Left = 93
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Constellation lines'
      AllowAllUp = True
      GroupIndex = 2
      Glyph.Data = {
        56020000424D560200000000000076000000280000003C0000000F0000000100
        040000000000E001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777770000799CCCC99777
        777799CCCC99777777799CCCC99777777799CCCC997777770000799777799777
        777799777799777777799777799777777799777799777777000077777777C777
        77777777777C77777777777777C77777777777777C777777000077777777C777
        77777777777C77777777777777C77777777777777C77777700007777777C7777
        7777777777C77777777777777C77777777777777C777777700007777777C7777
        7777777777C77777777777777C77777777777777C7777777000077777799CCCC
        C9977777799CCCCC9977777799CCCCC9977777799CCCCC990000777777997777
        7997777779977777997777779977777997777779977777990000777777777777
        7C77777777777777C77777777777777C77777777777777C70000777777777777
        C77777777777777C77777777777777C77777777777777C77000077777777777C
        77777777777777C77777777777777C77777777777777C77700007777777777C7
        7777777777777C77777777777777C77777777777777C77770000777777779977
        7777777777799777777777777799777777777777799777770000777777779977
        7777777777799777777777777799777777777777799777770000}
      NumGlyphs = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = ChVisObjects
    end
    object DeepSkyOnOff: TSpeedButton
      Left = 205
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Deep-sky objects'
      AllowAllUp = True
      GroupIndex = 6
      Glyph.Data = {
        56020000424D560200000000000076000000280000003C0000000F0000000100
        040000000000E001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777777777777777777777777777777777777222227777700007777AAAAA777
        77777777AAAAA777777777AAAAA7777777777277772277770000777A7777AA77
        7777777A7777AA7777777A7777AA77777777277777722777000077A777777AA7
        777777A777777AA77777A777777AA777777277777772277700007A7777777AA7
        77777A7777777AA7777A7777777AA777777277772222777700007A7777AAAA77
        77777A7777AAAA77777A7777AAAA77777777777233327777000077777ABBBA77
        777777777ABBBA777777777ABBBA77777777777233327777000077777ABBBA77
        777777777ABBBA777777777ABBBA77777777777233327777000077777ABBBA77
        777777777ABBBA777777777ABBBA77777777777222277772000077777AAAA777
        7A7777777AAAA7777A77777AAAA7777A777777227777777200007777AA777777
        7A777777AA7777777A7777AA7777777A777777227777772700007777AA777777
        A7777777AA777777A77777AA777777A77777777227777277000077777AA7777A
        777777777AA7777A7777777AA7777A7777777777222227770000777777AAAAA7
        7777777777AAAAA777777777AAAAA77777777777777777770000777777777777
        7777777777777777777777777777777777777777777777770000}
      NumGlyphs = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = ChVisObjects
    end
    object GroupParamsBtn: TSpeedButton
      Left = 33
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Parameters of object groups'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888800008888888888888888888800008888887777777777777800008888
        88F88888888888780000888888F88888888888780000888888F88088FFFF8878
        0000888888F888888888887800008777777777777788887800008F8888888888
        87FF887800008F88888888888788887800008F88088FFFF88744447800008F88
        888888888744447800008F888888888887FFFFF800008F88008FFFF887888888
        00008F88888888888788888800008F44444444444788888800008F4444444444
        4788888800008FFFFFFFFFFFFF88888800008888888888888888888800008888
        88888888888888880000}
      ParentShowHint = False
      ShowHint = True
      OnClick = GroupParamsBtnClick
    end
    object Panel2: TPanel
      Left = 235
      Top = 4
      Width = 93
      Height = 25
      Hint = 'Stars magnitude'
      BevelInner = bvRaised
      BevelOuter = bvLowered
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object Image1: TImage
        Left = 3
        Top = 7
        Width = 33
        Height = 12
        Picture.Data = {<image000.bmp>}
      end
      object StarDrawVLbl: TLabel
        Left = 41
        Top = 5
        Width = 21
        Height = 16
        Alignment = taRightJustify
        Caption = '-2.0'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object VDraw: TUpDown
        Left = 64
        Top = 3
        Width = 24
        Height = 19
        Min = -20
        Max = 70
        Increment = 5
        Orientation = udHorizontal
        Position = -20
        TabOrder = 0
        Wrap = False
        OnClick = VDrawClick
      end
    end
    object Panel3: TPanel
      Left = 330
      Top = 4
      Width = 92
      Height = 25
      Hint = 'Labeled stars magnitude'
      BevelInner = bvRaised
      BevelOuter = bvLowered
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      object Image2: TImage
        Left = 3
        Top = 5
        Width = 33
        Height = 17
        ParentShowHint = False
        Picture.Data = {<image001.bmp>}
        ShowHint = False
      end
      object StarMarkVLbl: TLabel
        Left = 41
        Top = 5
        Width = 21
        Height = 16
        Alignment = taRightJustify
        Caption = '-2.0'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object VMark: TUpDown
        Left = 63
        Top = 3
        Width = 24
        Height = 19
        Min = -20
        Max = 70
        Increment = 5
        Orientation = udHorizontal
        Position = -20
        TabOrder = 0
        Wrap = False
        OnClick = VMarkClick
      end
    end
    object Panel4: TPanel
      Left = 424
      Top = 4
      Width = 82
      Height = 25
      Hint = 'Labels size'
      BevelInner = bvRaised
      BevelOuter = bvLowered
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      object Image3: TImage
        Left = 2
        Top = 8
        Width = 33
        Height = 12
        Picture.Data = {<image002.bmp>}
      end
      object FontRelSizeLbl: TLabel
        Left = 38
        Top = 5
        Width = 14
        Height = 16
        Alignment = taRightJustify
        Caption = '15'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object FontH: TUpDown
        Left = 53
        Top = 3
        Width = 24
        Height = 19
        Min = 1
        Max = 10
        Orientation = udHorizontal
        Position = 10
        TabOrder = 0
        Wrap = False
        OnClick = FontHClick
      end
    end
    object Panel5: TPanel
      Left = 508
      Top = 4
      Width = 85
      Height = 25
      Hint = 'Number of brightness levels'
      BevelInner = bvRaised
      BevelOuter = bvLowered
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      object Image4: TImage
        Left = 3
        Top = 7
        Width = 33
        Height = 12
        Picture.Data = {<image003.bmp>}
      end
      object StarScaleLbl: TLabel
        Left = 40
        Top = 5
        Width = 14
        Height = 16
        Alignment = taRightJustify
        Caption = '24'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ImageScale: TUpDown
        Left = 56
        Top = 3
        Width = 24
        Height = 19
        Min = 1
        Max = 24
        Orientation = udHorizontal
        Position = 24
        TabOrder = 0
        Wrap = False
        OnClick = ImageScaleClick
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 424
    Width = 652
    Height = 19
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <
      item
        Text = 'Zoom'
        Width = 54
      end
      item
        Text = 'Time'
        Width = 171
      end
      item
        Text = 'Location'
        Width = 135
      end
      item
        Text = 'Horiz. coordinates'
        Width = 124
      end
      item
        Text = 'Equat. coordinates'
        Width = 50
      end>
    ParentFont = False
    SimplePanel = False
    OnMouseMove = ToolBarPopup
  end
  object Panel6: TPanel
    Left = 1
    Top = 0
    Width = 52
    Height = 34
    Hint = 'Autorotation mode'
    BevelInner = bvRaised
    BevelOuter = bvLowered
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    object AutoRotate: TSpeedButton
      Left = 5
      Top = 5
      Width = 25
      Height = 24
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        F2010000424DF201000000000000760000002800000028000000130000000100
        0400000000007C01000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777777777777777777777777777777777777777777777777777FFFF77777777F
        FFF7770000777777770000777788887F77777788887F70FFFF07777770FFFF07
        78777787F7FF787777870FFFFFF070070FFFFFF08F777778F8878F7777780FFF
        9FF070900FFFFFF08F777778F8888F7777780FFF9FF079000FFF9FF08F778778
        F8788F7787780FFF9FF079790FFF9FF087F77878787787F7877870FFF9079779
        70F9FF07787FF887877778787F87770009779777970900777788887787777F88
        8877777779797777979777777777787877777F87777777777979777779977777
        777778F8FFFFF887777777777799999999777777777777888888887777777777
        77977777797777777777FF7F77FFF877777777700707777C799777777778878F
        F778F8FFF77777077700777CCCCCC777778F7788F7788888F777770777707777
        7777C7777787FFF8777777787777777000077777777777777778888777777777
        77777777777777777777777777777777777777777777}
      NumGlyphs = 2
      OnClick = AutoRotateClick
    end
    object SetAutoRParamsBtn: TSpeedButton
      Left = 33
      Top = 5
      Width = 14
      Height = 24
      Hint = 'Autorotation parameters'
      Glyph.Data = {
        92000000424D9200000000000000760000002800000007000000070000000100
        0400000000001C00000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0FFF0
        FFF0FF000FF0F00000F000000000FFFFFFF0FFFFFFF0}
      ParentShowHint = False
      ShowHint = True
      OnClick = SetAutoRParamsBtnClick
    end
  end
  object EHPanel: TPanel
    Left = 2
    Top = 400
    Width = 52
    Height = 2
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 5
  end
  object ShiftPanel: TPanel
    Left = 2
    Top = 328
    Width = 52
    Height = 54
    BevelOuter = bvNone
    TabOrder = 6
    object DownShiftBtn: TSpeedButton
      Left = 17
      Top = 32
      Width = 16
      Height = 15
      Glyph.Data = {
        5A000000424D5A000000000000003E0000002800000007000000070000000100
        0100000000001C0000000000000000000000000000000000000000000000FFFF
        FF00FE000000EE000000C60000008200000000000000FE000000FE000000}
      OnClick = DownShiftBtnClick
    end
    object LeftShiftBtn: TSpeedButton
      Left = 1
      Top = 17
      Width = 16
      Height = 15
      Glyph.Data = {
        5A000000424D5A000000000000003E0000002800000007000000070000000100
        0100000000001C0000000000000000000000000000000000000000000000FFFF
        FF00F6000000E6000000C600000086000000C6000000E6000000F6000000}
      OnClick = LeftShiftBtnClick
    end
    object UpShiftBtn: TSpeedButton
      Left = 17
      Top = 2
      Width = 16
      Height = 15
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        5A000000424D5A000000000000003E0000002800000007000000070000000100
        0100000000001C0000000000000000000000000000000000000000000000FFFF
        FF00FE000000FE0000000000000082000000C6000000EE000000FE000000}
      ParentFont = False
      OnClick = UpShiftBtnClick
    end
    object RightShiftBtn: TSpeedButton
      Left = 33
      Top = 17
      Width = 16
      Height = 15
      Glyph.Data = {
        5A000000424D5A000000000000003E0000002800000007000000070000000100
        0100000000001C0000000000000000000000000000000000000000000000FFFF
        FF00DE000000CE000000C6000000C2000000C6000000CE000000DE000000}
      OnClick = RightShiftBtnClick
    end
    object Panel7: TPanel
      Left = 0
      Top = 50
      Width = 52
      Height = 2
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 0
    end
  end
  object ToolBarTimer: TTimer
    Enabled = False
    Interval = 400
    OnTimer = ToolBarTimerTimer
    Left = 146
    Top = 346
  end
  object MainMenu: TMainMenu
    Left = 72
    Top = 344
    object N1: TMenuItem
      Caption = '&View'
      ShortCut = 16469
      object N4: TMenuItem
        Caption = 'Time &forward'
        ShortCut = 16454
        OnClick = RotateFClick
      end
      object N5: TMenuItem
        Caption = 'Time &back'
        ShortCut = 16450
        OnClick = RotateBClick
      end
      object N8: TMenuItem
        Caption = '&Now'
        ShortCut = 16462
        OnClick = RotateNowClick
      end
      object N23: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object SaveState: TMenuItem
        Caption = '&Save state'
        ShortCut = 113
        OnClick = SaveStateClick
      end
      object RestoreState: TMenuItem
        Caption = '&Restore state'
        ShortCut = 114
        OnClick = RestoreStateClick
      end
      object N19: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object AutorotationMenuItem: TMenuItem
        Caption = '&Autorotation mode'
        ShortCut = 16455
        OnClick = AutorotationMenuItemClick
      end
      object TrackMenuItem: TMenuItem
        Caption = 'Object &locking mode'
        ShortCut = 16460
        OnClick = TrackMenuItemClick
      end
      object N20: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object N10: TMenuItem
        Caption = '&Print'
        ShortCut = 16464
        OnClick = SkyPrint
      end
      object FileSaveWork: TMenuItem
        Caption = 'Sa&ve as file'
        ShortCut = 16467
        OnClick = FileSaveWorkClick
      end
      object N9: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object N7: TMenuItem
        Caption = '&Exit'
        ShortCut = 0
        OnClick = N7Click
      end
      object N22: TMenuItem
        Caption = 'Test of speed'
        ShortCut = 24688
        Visible = False
        OnClick = N22Click
      end
    end
    object Operations: TMenuItem
      Caption = 'Se&rvices'
      ShortCut = 0
      object Find: TMenuItem
        Caption = '&Find...'
        ShortCut = 0
      end
      object GotoPoint: TMenuItem
        Caption = 'Find &point...'
        ShortCut = 0
        object GotoEqu: TMenuItem
          Caption = 'by its &equat. coordinates'
          ShortCut = 0
          OnClick = GotoPointClick
        end
        object GotoHor: TMenuItem
          Caption = 'by its &horiz. coordinates'
          ShortCut = 0
          OnClick = GotoPointClick
        end
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object InfoAboutObjects: TMenuItem
        Caption = '&Information about ...'
        ShortCut = 0
        OnClick = InfoAboutObjectsClick
        object SUNInfo: TMenuItem
          Caption = '&Sun'
          ShortCut = 0
          OnClick = SUNInfoClick
        end
        object MoonInfo: TMenuItem
          Caption = '&Moon'
          ShortCut = 0
          OnClick = MOONInfoClick
        end
        object N40: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object MERInfo: TMenuItem
          Caption = 'M&ercury'
          ShortCut = 0
          OnClick = MERInfoClick
        end
        object VENInfo: TMenuItem
          Caption = '&Venus'
          ShortCut = 0
          OnClick = VENInfoClick
        end
        object MARInfo: TMenuItem
          Caption = 'M&ars'
          ShortCut = 0
          OnClick = MARInfoClick
        end
        object JUPInfo: TMenuItem
          Caption = '&Jupiter'
          ShortCut = 0
          OnClick = JUPInfoClick
        end
        object SATInfo: TMenuItem
          Caption = 'Sa&turn'
          ShortCut = 0
          OnClick = SATInfoClick
        end
        object URAInfo: TMenuItem
          Caption = '&Uranus'
          ShortCut = 0
          OnClick = URAInfoClick
        end
        object NEPInfo: TMenuItem
          Caption = '&Neptune'
          ShortCut = 0
          OnClick = NEPInfoClick
        end
        object PLUInfo: TMenuItem
          Caption = '&Pluto'
          ShortCut = 0
          OnClick = PLUInfoClick
        end
        object N31: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object OTHERInfo: TMenuItem
          Caption = 'se&lected objects'
          ShortCut = 16457
          OnClick = OTHERInfoClick
        end
      end
      object CommonInform: TMenuItem
        Caption = '&Common information'
        ShortCut = 0
        OnClick = CommonInformClick
      end
    end
    object Service: TMenuItem
      Caption = '&Parameters'
      ShortCut = 0
      object N21: TMenuItem
        Caption = 'Catalogs and object &groups'
        ShortCut = 120
        OnClick = N21Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object N17: TMenuItem
        Caption = '&Date and Time'
        ShortCut = 16452
        OnClick = SpeedButton4Click
      end
      object N18: TMenuItem
        Caption = 'Duration of rotation &step'
        ShortCut = 16466
        OnClick = SetRAngleBtnClick
      end
      object N16: TMenuItem
        Caption = 'Auto&rotation parameters'
        ShortCut = 16468
        OnClick = SetAutoRParamsBtnClick
      end
      object N15: TMenuItem
        Caption = '&Azimuth rotation angle'
        ShortCut = 16449
        OnClick = SpeedButton2Click
      end
      object SetZoomWork: TMenuItem
        Caption = '&Zoom'
        ShortCut = 16474
        OnClick = SpeedButton3Click
      end
      object N25: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object N24: TMenuItem
        Caption = 'Auto &hide image adjustment toolbar'
        ShortCut = 0
        OnClick = N24Click
      end
      object N30: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object N14: TMenuItem
        Caption = 'Coordina&te grids'
        ShortCut = 0
        object N26: TMenuItem
          Caption = '&Horizontal'
          ShortCut = 16456
          OnClick = N26Click
        end
        object N27: TMenuItem
          Caption = '&Equatorial'
          ShortCut = 16453
          OnClick = N27Click
        end
        object N29: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object N28: TMenuItem
          Caption = '&Grid setup'
          ShortCut = 0
          OnClick = N28Click
        end
      end
      object N13: TMenuItem
        Caption = '&Colors'
        ShortCut = 0
        OnClick = N13Click
      end
      object N12: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object N11: TMenuItem
        Caption = '&Options'
        ShortCut = 0
        OnClick = N11Click
      end
    end
    object N3: TMenuItem
      Caption = '&About'
      ShortCut = 0
      OnClick = N3Click
    end
  end
  object AutoRotateTimer: TTimer
    Enabled = False
    Interval = 50
    OnTimer = AutoRotateTimerTimer
    Left = 178
    Top = 346
  end
  object BlinkTimer: TTimer
    Enabled = False
    Interval = 200
    OnTimer = DrawBlinkSelection
    Left = 210
    Top = 346
  end
  object SkyHintTimer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = ShowObjectHint
    Left = 242
    Top = 346
  end
  object GroupParamPopup: TPopupMenu
    Left = 282
    Top = 346
  end
end