Chip Hitware 6 A/CHIP_HITWARE6_A.iso/edukacja/AstroMart/_SETUP.1/Astro5.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1998-05-13 | 32.4 KB | 921 lines

object MainForm: TMainForm
  Left = 62
  Top = 20
  Width = 589
  Height = 453
  Caption = 'AstroMart 5.3'
  Color = clAppWorkSpace
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  Position = poScreenCenter
  ShowHint = True
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedPanel: TPanel
    Left = 0
    Top = 0
    Width = 581
    Height = 29
    Align = alTop
    TabOrder = 0
    object OpenBtn: TSpeedButton
      Left = 5
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Open'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        333FFFFFFFFFFFFFF3333380000000000000333333888888888888883F333300
        7B7B7B7B7B7B033333883F33333333338F33330F07B7B7B7B7B70333338F8F33
        3333333383F3330B0B7B7B7B7B7B7033338F83F33333333338F3330FB0B7B7B7
        B7B7B033338F38F333333333383F330BF07B7B7B7B7B7B03338F383FFFFF3333
        338F330FBF000007B7B7B703338F33888883FFFFFF83330BFBFBFBF000000033
        338F3333333888888833330FBFBFBFBFBFB03333338F333333333338F333330B
        FBFBFBFBFBF03333338F33333FFFFFF83333330FBFBF0000000333333387FFFF
        8888888333333330000033333333333333388888333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = FileOpenItemClick
    end
    object SaveBtn: TSpeedButton
      Left = 29
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Save'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333FFFFFFFFFFFFFF3333380000000000008333
        333888F8FF888F888F333330CC08CCF770CC0333333888F8FF888F888F333330
        CC08CCF770CC0333333888F888888F888F333330CC07887770CC03333338888F
        FFFFF8888F333330CC60000006CC033333388888888888888F333330CCCCCCCC
        CCCC033333388888888888888F333330C6000000006C03333338888888888888
        8F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330C0FFFFFFFF0C0333
        333888FFFFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330
        C0FFFFFFFF0C0333333888FFFFFFFF888F33333000FFFFFFFF000333333888FF
        FFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F33333800000000
        0000833333388888888888888333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = FileSaveItemClick
    end
    object CutBtn: TSpeedButton
      Left = 110
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Cut'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333FFFF333333FF
        FF33333844833333384483333338888FF33338888FF333843348333384334833
        3388F388F333883388F3338433343333433348333388F338F3338F3388F33384
        33343333433348333388FF38FF338F3388333338433483384334833333388FF8
        8FF88FF883333333844448844448333333338888888888883333333333444444
        4433333333333388888888333333333333346FF6433333333333333883F88F33
        333333333330F00F0333333333333338388383F333333333330FFFF0F0333333
        3333338333F8383F3333333330FFF00FFF033333333338333883F383F3333333
        0FFF0330FFF033333333833383383F383F333330FFF033330FFF033333383338
        333383F383F3330FFF03333330FFF033338F33833333383F38F3330FF0333333
        330FF033338F383333333383F8F3330F033333333330F033338F833333333338
        38F3330033333333333300333388333333333333883333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = CutBtnClick
    end
    object CopyBtn: TSpeedButton
      Left = 134
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Copy'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333FFFFFFFFFF33333333300000000003333333333888888888
        8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBFBFBF0333
        33333338F3FFFFFF8F3333333330F888888F033333333338F88888838F333333
        3330BFBFBFBF0333333FFFF8F3FFFFFF8F3333000000F888888F033333888888
        F88888838F33330FFFF0BFBFBFBF0333338F3338F3FFFFFF8F33330FFFF0F888
        888F0333338F3338F88888838F33330F7770BFBFBFBF0333338F3338F333333F
        8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333
        338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F
        777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333
        33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003
        33333333338FFFFFF88333333333330000000033333333333388888888333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = CopyBtnClick
    end
    object PasteBtn: TSpeedButton
      Left = 158
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Paste'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333FFFFFFFFF333333333300000000033333333333888888
        888F33333333330BFBFBFB03333FFFFFFF8F3FFFFF8F33000000000F88888F03
        33888888888F8888838F307F7F7F7F0BFBFBFB0338F33333338F333FFF8F30F7
        F7F7F70F77888F0338F33333338FFF88838F307F7F7F74444BFBFB0338F33333
        38888F3FFF8F30F7F7F7F7C447888F0338F3333333888F88838F307F7F7F744C
        4BFBFB0338F3333338888F333F8F30F7F7F7444F4FFF880338F33333888F8333
        8883307F7F74440BFBFB803338F33338888FFFFF883330F7F744470000000333
        38F33388838888888333307F7F747F7F0333333338F3333833338F33333330F7
        F7F7F7F70333333338F3333333338F333333307F7F7F7F7F0333333338F33FFF
        FFF38F33333330F7444444F703333333383F888888FF833333333300ECCCC400
        33333333338838888888333333333333ECCCC433333333333333388888333333
        333333333EEEE333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = PasteBtnClick
    end
    object ExitBtn: TSpeedButton
      Left = 443
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Exit'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777
        777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333
        33888888888888877F7F788888888888888F333FF88844444400888FFF444444
        88888888888333888883333334D5007FFF433333333338F888F3338F33333333
        345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8
        78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF
        FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F
        3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333
        3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333
        345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8
        F8FFFF8F33333333344444444443333333333888888888833333333333333333
        3333333333333333FFFFFF333333333333300000033333333333333888888F33
        333333333330AAAA0333333333333338FFFF8F33333333333330000003333333
        33333338888883333333}
      NumGlyphs = 2
      OnClick = ExitBtnClick
    end
    object NewBtn: TSpeedButton
      Left = 53
      Top = 2
      Width = 25
      Height = 25
      Hint = 'New'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
      OnClick = FileNewItemClick
    end
    object PrintBtn: TSpeedButton
      Left = 77
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Print'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      NumGlyphs = 2
      OnClick = PrintWindowClick
    end
    object ListBtn: TSpeedButton
      Left = 191
      Top = 2
      Width = 25
      Height = 25
      Hint = 'List'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555FFFFFFFFFF5555550000000000555557777777777F5555550FFFFFFFF
        0555557F5FFFF557F5555550F0000FFF0555557F77775557F5555550FFFFFFFF
        0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF
        0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF
        0555557F5FFF5557F5555550F000FFFF0555557F77755FF7F5555550FFFFF000
        0555557F5FF5777755555550F00FF0F05555557F77557F7555555550FFFFF005
        5555557FFFFF7755555555500000005555555577777775555555555555555555
        55555555555555555555555555555555555555555555555555550000}
      NumGlyphs = 2
      OnClick = ListBtnClick
    end
    object AspectsBtn: TSpeedButton
      Left = 215
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Aspects'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555500000000
        0555555F7777777775F55500FFFFFFFFF0555577F5FFFFFFF7F550F0FEEEEEEE
        F05557F7F777777757F550F0FFFFFFFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
        F05557F7F777777757F550F0FF777FFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
        F05557F7F777777757F550F0FF7F777FF05557F7F5FFFFFFF7F550F0FEEEEEEE
        F05557F7F777777757F550F0FF77F7FFF05557F7F5FFFFFFF7F550F0FEEEEEEE
        F05557F7F777777757F550F0FFFFFFFFF05557F7FF5F5F5F57F550F00F0F0F0F
        005557F77F7F7F7F77555055070707070555575F7F7F7F7F7F55550507070707
        05555575757575757555555050505050555555575757575755550000}
      NumGlyphs = 2
      OnClick = AspectsBtnClick
    end
    object AnalysisBtn: TSpeedButton
      Left = 239
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Analysis'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      OnClick = AnalysisBtnClick
    end
    object GraphicBtn: TSpeedButton
      Left = 272
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Graphic/aspects'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000CE0E0000D80E0000000000000000000000000000FFFF
        FF00F7BFD8005B008100F9BF0000D28148000000000000007900F7BF18000000
        F4005B002E00F7BF2F00F6832800B97F080043004200B67FE400111111111111
        1111111100001111111111111111111100001114111111111119991100001144
        1110000001191911000011141101151110191111000011111011000051011111
        0000111105101911011017710000111011011911101107110000111010111911
        1101011100001110104CCC9CCC01011100001CC010141191110501110000C110
        1101449110110111000011110510114105101111000011111011000011011111
        0000111111011151101411110000111111100000011141410000111111F11114
        11111441000011111FF111114491114100001111FFF111111491111100001111
        11111111111111110000}
      OnClick = DaisywheelClick
    end
    object Graphic2Btn: TSpeedButton
      Left = 296
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Graphic'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000CE0E0000D80E0000000000000000000000000000FFFF
        FF00F7BFD8005B008100F9BF0000D28108000000000000007900F7BF18000000
        F4005B002E00F7BF2F00F6832800B97F080043004200B67FE400111111111111
        1111111100001111111111111111111100001111111111141111111100001111
        1110000001111111000011114101111110111111000011111011111991014111
        000011110111111911101111000011101FF111191111011100001110F1191001
        CCC10111000011101111011011110111000011101DD110011111011100001110
        1D11111441110111000011110111411141101111000011141011141111041111
        0000111111011111101111110000111111100000011111110000111111114111
        1111111100001111111111111111111100001111111111111111111100001111
        11111111111111110000}
      OnClick = USDaisywheelClick
    end
    object LinegraphBtn: TSpeedButton
      Left = 320
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Line graphic'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373
        3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000
        000077777777777777773303333333333333337FF333333F33333709333333C3
        333337773F3FF373F333330393993C3C33333F7F7F77F7F7FFFF77079797977C
        77777777777777777777330339339333C333337FF73373F37F33370C333C3933
        933337773F3737F37FF33303C3C33939C9333F7F7F7FF7F777FF7707C7C77797
        7C97777777777777777733033C3333333C33337F37F33333373F37033C333333
        33C3377F37333333337333033333333333333F7FFFFFFFFFFFFF770777777777
        77777777777777777777333333333333333333333333333333330000}
      NumGlyphs = 2
      OnClick = Linegraph1Click
    end
    object NextBtn: TSpeedButton
      Left = 377
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Next window'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333FF3333333333333003333
        3333333333773FF3333333333309003333333333337F773FF333333333099900
        33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
        99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
        33333333337F3F77333333333309003333333333337F77333333333333003333
        3333333333773333333333333333333333333333333333333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      OnClick = NextBtnClick
    end
    object ProcedingBtn: TSpeedButton
      Left = 353
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Proceding window'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333FF3333333333333003333333333333F77F33333333333009033
        333333333F7737F333333333009990333333333F773337FFFFFF330099999000
        00003F773333377777770099999999999990773FF33333FFFFF7330099999000
        000033773FF33777777733330099903333333333773FF7F33333333333009033
        33333333337737F3333333333333003333333333333377333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      OnClick = ProcedingBtnClick
    end
    object HelpBtn: TSpeedButton
      Left = 410
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Help'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
        33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
        FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
        FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
        FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
        FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
        FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
        3333333773FFFF77333333333FBFBF33333333333777773333330000}
      NumGlyphs = 2
      OnClick = Help1Click
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 385
    Width = 581
    Height = 22
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <
      item
        Width = 300
      end
      item
        Width = 120
      end>
    ParentFont = False
    SimplePanel = False
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'Chart files (*.db)|*.db|Chart files (*.4*)|*.4*'
    Options = [ofReadOnly, ofNoChangeDir, ofPathMustExist, ofCreatePrompt]
    Left = 12
    Top = 84
  end
  object MainMenu1: TMainMenu
    Left = 56
    Top = 96
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object FileNewItem: TMenuItem
        Caption = '&New'
        GroupIndex = 2
        ShortCut = 16462
        OnClick = FileNewItemClick
      end
      object FileOpenItem: TMenuItem
        Caption = 'Open'
        GroupIndex = 4
        ShortCut = 16463
        OnClick = FileOpenItemClick
      end
      object FileSaveItem: TMenuItem
        Caption = '&Save'
        GroupIndex = 6
        ShortCut = 16467
        OnClick = FileSaveItemClick
      end
      object FileModifyItem: TMenuItem
        Caption = '&Modify'
        GroupIndex = 9
        ShortCut = 0
        OnClick = FileModifyItemClick
      end
      object FileClose: TMenuItem
        Caption = 'Close'
        GroupIndex = 9
        ShortCut = 0
        OnClick = FileCloseItemClick
      end
      object N4: TMenuItem
        Caption = '-'
        GroupIndex = 9
        ShortCut = 0
      end
      object FileSelectChartfile: TMenuItem
        Caption = 'Select chart file'
        GroupIndex = 10
        ShortCut = 0
        OnClick = DBSelectchartfileClick
      end
      object FileExportFile: TMenuItem
        Caption = 'Export to file'
        GroupIndex = 12
        ShortCut = 0
        OnClick = FileExportFileClick
      end
      object N3: TMenuItem
        Caption = '-'
        GroupIndex = 16
        ShortCut = 0
      end
      object Pagesetup: TMenuItem
        Caption = 'Page setup'
        GroupIndex = 18
        ShortCut = 0
        OnClick = PagesetupClick
      end
      object Print1: TMenuItem
        Caption = '&Print'
        GroupIndex = 20
        ShortCut = 0
        object PrintWindow: TMenuItem
          Caption = '&Window'
          ShortCut = 16464
          OnClick = PrintWindowClick
        end
        object N2: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object PrintChartAspects: TMenuItem
          Caption = '&Chart and aspects'
          ShortCut = 0
          OnClick = PrintChartAspectsClick
        end
        object PrintAnalysis: TMenuItem
          Caption = '&Analysis'
          ShortCut = 0
          OnClick = PrintAnalysisClick
        end
        object PrintGraphic: TMenuItem
          Caption = '&Graphic'
          ShortCut = 0
          OnClick = PrintGraphicClick
        end
        object PrintAll: TMenuItem
          Caption = '&All'
          ShortCut = 0
          OnClick = PrintAllClick
        end
      end
      object Printersetup1: TMenuItem
        Caption = 'Printer setup'
        GroupIndex = 22
        ShortCut = 0
        OnClick = PrintersetupClick
      end
      object N1: TMenuItem
        Caption = '-'
        GroupIndex = 24
        ShortCut = 0
      end
      object Quit1: TMenuItem
        Caption = 'Quit'
        GroupIndex = 26
        ShortCut = 0
        OnClick = ExitBtnClick
      end
    end
    object Display1: TMenuItem
      Caption = 'Display'
      GroupIndex = 20
      ShortCut = 0
      object Toolbar1: TMenuItem
        Caption = 'Tool bar'
        ShortCut = 0
        OnClick = Toolbar1Click
      end
      object Formatbar1: TMenuItem
        Caption = 'Format bar'
        ShortCut = 0
        OnClick = Formatbar1Click
      end
      object Graphicbar1: TMenuItem
        Caption = 'Graphic bar'
        ShortCut = 0
        OnClick = Graphicbar1Click
      end
      object Statusbar1: TMenuItem
        Caption = 'Status bar'
        ShortCut = 0
        OnClick = Statusbar1Click
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ZoomIn: TMenuItem
        Caption = 'Zoom in'
        ShortCut = 0
        OnClick = ZoomInClick
      end
      object ZoomOut: TMenuItem
        Caption = 'Zoom out'
        ShortCut = 0
        OnClick = ZoomOutClick
      end
    end
    object Graphics1: TMenuItem
      Caption = '&Graphics'
      GroupIndex = 100
      ShortCut = 0
      object Daisywheel: TMenuItem
        Caption = '&Daisy wheel'
        ShortCut = 117
        OnClick = DaisywheelClick
      end
      object Daisywheel21: TMenuItem
        Caption = 'Daisy &wheel 2'
        ShortCut = 0
        OnClick = USDaisywheelClick
      end
      object Valuespie: TMenuItem
        Caption = 'Values - pie'
        ShortCut = 0
        OnClick = ValuespieClick
      end
      object Valuesbars: TMenuItem
        Caption = 'Values - bars'
        ShortCut = 0
        OnClick = ValuesbarsClick
      end
      object PrevisionsItem: TMenuItem
        Caption = '&Previsions'
        ShortCut = 0
        OnClick = PrevisionsItemClick
      end
      object Sidebyside: TMenuItem
        Caption = '&Side by side'
        ShortCut = 0
        OnClick = SidebysideClick
      end
      object Sidebyside2: TMenuItem
        Caption = 'Side &by side 2'
        ShortCut = 0
        OnClick = Sidebyside2Click
      end
      object Clock1: TMenuItem
        Caption = '&Clock'
        ShortCut = 0
        OnClick = Clock1Click
      end
      object Linegraph1: TMenuItem
        Caption = '&Line graph'
        ShortCut = 0
        OnClick = Linegraph1Click
      end
      object Transitslinegraph: TMenuItem
        Caption = '&Transits line graph'
        ShortCut = 0
        OnClick = TransitslinegraphClick
      end
      object Mooncycle1: TMenuItem
        Caption = '&Moon cycle'
        ShortCut = 0
        OnClick = Mooncycle1Click
      end
    end
    object Database1: TMenuItem
      Caption = 'Database'
      GroupIndex = 140
      ShortCut = 0
      object DBSelectchartfile: TMenuItem
        Caption = 'Select chart file'
        ShortCut = 0
        OnClick = DBSelectchartfileClick
      end
      object FilterChartFile: TMenuItem
        Caption = 'Filter chartFile'
        ShortCut = 0
        Visible = False
        object ByField1: TMenuItem
          Caption = 'By field'
          ShortCut = 0
        end
        object Byplaned1: TMenuItem
          Caption = 'By planet'
          ShortCut = 0
        end
        object Byaspect1: TMenuItem
          Caption = 'By aspect'
          ShortCut = 0
        end
      end
      object DBEditchartfile: TMenuItem
        Caption = 'Edit chart file'
        ShortCut = 0
        OnClick = DBEditchartfileClick
      end
      object DBConvertchartfile: TMenuItem
        Caption = 'Convert chart file'
        ShortCut = 0
        OnClick = DBConvertchartfileClick
      end
      object N9: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object DBCity: TMenuItem
        Caption = '&Localities'
        ShortCut = 0
        OnClick = DBCityClick
      end
      object DBCountries: TMenuItem
        Caption = 'Countries'
        ShortCut = 0
        OnClick = DBCountryClick
      end
      object DBStates: TMenuItem
        Caption = 'States'
        ShortCut = 0
        OnClick = DBStatesClick
      end
      object DBTimefiles: TMenuItem
        Caption = 'Time files'
        ShortCut = 0
        OnClick = DBTimefilesClick
      end
      object DBPlanets: TMenuItem
        Caption = 'Planets and stars'
        ShortCut = 0
        OnClick = DBStarFileClick
      end
      object Analysisfiles1: TMenuItem
        Caption = '&Analysis files'
        GroupIndex = 12
        ShortCut = 0
        OnClick = Analysisfiles1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Utilities'
      GroupIndex = 180
      ShortCut = 0
      object Options2: TMenuItem
        Caption = 'Options'
        ShortCut = 0
        object OptBirthchart: TMenuItem
          Caption = 'Birth chart'
          ShortCut = 0
          OnClick = OptBirthchartClick
        end
        object OptLowerchart: TMenuItem
          Caption = 'Lower chart'
          ShortCut = 0
          OnClick = OptLowerchartClick
        end
        object OptUpperchart: TMenuItem
          Caption = 'Upper chart'
          ShortCut = 0
          OnClick = OptUpperchartClick
        end
      end
      object ChartSetupItem: TMenuItem
        Caption = 'Chart setup'
        ShortCut = 0
        OnClick = ChartSetupItemClick
      end
      object Language1: TMenuItem
        Caption = 'Language and national'
        ShortCut = 0
        OnClick = Language1Click
      end
      object FontItem: TMenuItem
        Caption = 'Font'
        ShortCut = 0
        OnClick = FontItemClick
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object OptionsOpen: TMenuItem
        Caption = '&Open options'
        ShortCut = 0
        OnClick = OptionsOpenClick
      end
      object OptionsSave: TMenuItem
        Caption = '&Save options'
        ShortCut = 0
        OnClick = OptionsSaveClick
      end
      object OptionsSaveAs: TMenuItem
        Caption = 'Save options &as'
        ShortCut = 0
        OnClick = OptionsSaveAsClick
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object OptionsSaveasdefault: TMenuItem
        Caption = 'Save as default'
        ShortCut = 0
        OnClick = OptionsSaveasdefaultClick
      end
      object OptionsLoaddefault: TMenuItem
        Caption = 'Load default'
        ShortCut = 0
        OnClick = OptionsLoaddefaultClick
      end
      object ResetOptions: TMenuItem
        Caption = '&Reset options'
        ShortCut = 0
        OnClick = ResetOptionsClick
      end
    end
    object Window2: TMenuItem
      Caption = '&Window'
      GroupIndex = 200
      ShortCut = 0
      object WindowTileItem: TMenuItem
        Caption = '&Tile'
        ShortCut = 0
        OnClick = WindowTileClick
      end
      object WindowCascade: TMenuItem
        Caption = '&Cascade'
        ShortCut = 0
        OnClick = WindowCascadeClick
      end
      object WindowArrangeAll: TMenuItem
        Caption = '&Arrange All'
        ShortCut = 0
        OnClick = WindowArrangeAllClick
      end
      object WindowMinimize: TMenuItem
        Caption = 'Minimize'
        ShortCut = 0
        OnClick = WindowMinimizeClick
      end
      object WindowCloseAll: TMenuItem
        Caption = 'Close All'
        ShortCut = 0
        OnClick = WindowCloseAllClick
      end
    end
    object N8: TMenuItem
      Caption = '&?'
      GroupIndex = 200
      ShortCut = 0
      object AstroMartWindows: TMenuItem
        Caption = '&AstroMart Windows 5.2'
        GroupIndex = 200
        ShortCut = 0
        OnClick = AstroMartWindowsClick
      end
      object Readme1: TMenuItem
        Caption = 'Read me'
        GroupIndex = 200
        ShortCut = 0
        OnClick = Readme1Click
      end
      object Help1: TMenuItem
        Caption = '&Help'
        GroupIndex = 200
        ShortCut = 0
        OnClick = Help1Click
      end
    end
    object Register1: TMenuItem
      Caption = 'Register'
      GroupIndex = 200
      ShortCut = 0
      object Viewregistrationform1: TMenuItem
        Caption = 'View registration form'
        ShortCut = 0
        OnClick = Viewregistrationform1Click
      end
      object Printregistrationform1: TMenuItem
        Caption = 'Print registration form'
        ShortCut = 0
        OnClick = Printregistrationform1Click
      end
      object N10: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Enterregistrationdata1: TMenuItem
        Caption = 'Enter registration data'
        ShortCut = 0
        OnClick = Enterregistrationdata1Click
      end
    end
  end
  object PrinterSetupDlg: TPrinterSetupDialog
    Left = 8
    Top = 128
  end
  object FontDialog: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 8
    Top = 176
  end
  object Timer: TTimer
    Interval = 10000
    OnTimer = TimerTimer
    Left = 7
    Top = 224
  end
end