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

Text File | 1998-05-13 | 6.0 KB | 255 lines

object AstroBaseWindow: TAstroBaseWindow
  Left = 187
  Top = 121
  Width = 436
  Height = 300
  Caption = 'AstroBaseWindow'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu1: TMainMenu
    AutoMerge = True
    Left = 48
    Top = 48
    object Edit1: TMenuItem
      Caption = '&Edit'
      GroupIndex = 10
      ShortCut = 0
      object UndoItem: TMenuItem
        Caption = 'Undo'
        ShortCut = 32776
        OnClick = UndoItemClick
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object CopyallItem: TMenuItem
        Caption = 'Copy all'
        ShortCut = 16472
        OnClick = CopyallClick
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Find1: TMenuItem
        Caption = '&Find...'
        ShortCut = 16454
        OnClick = Find1Click
      end
      object Replace1: TMenuItem
        Caption = 'R&eplace...'
        ShortCut = 16466
        OnClick = Replace1Click
      end
      object SelectallItem: TMenuItem
        Caption = 'Select all'
        ShortCut = 0
        OnClick = SelectallItemClick
      end
    end
    object Format: TMenuItem
      Caption = 'Format'
      GroupIndex = 30
      ShortCut = 0
      object FormatBold: TMenuItem
        Caption = 'Bold'
        ShortCut = 16450
        OnClick = FormatBoldClick
      end
      object FormatUnderline: TMenuItem
        Caption = 'Underline'
        ShortCut = 16469
        OnClick = FormatUnderlineClick
      end
      object FormatItalic: TMenuItem
        Caption = 'Italic'
        Hint = 'FormatItalic'
        ShortCut = 16457
        OnClick = FormatItalicClick
      end
      object FormatBigger: TMenuItem
        Caption = 'Font +'
        ShortCut = 0
        OnClick = FormatBiggerClick
      end
      object FormatSmaller: TMenuItem
        Caption = 'Font -'
        ShortCut = 0
        OnClick = FormatSmallerClick
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object FormatFont: TMenuItem
        Caption = 'Font'
        ShortCut = 0
        OnClick = FormatFontClick
      end
    end
    object Chart1: TMenuItem
      Caption = '&Chart'
      GroupIndex = 40
      ShortCut = 0
      object Insert1: TMenuItem
        Caption = 'New'
        Enabled = False
        ShortCut = 0
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object NewList: TMenuItem
        Caption = '&List'
        ShortCut = 0
        OnClick = NewListClick
      end
      object NewAspects: TMenuItem
        Caption = '&Aspects'
        ShortCut = 0
        OnClick = NewAspectsClick
      end
      object NewAnalysis: TMenuItem
        Caption = 'A&nalysis'
        ShortCut = 0
        OnClick = NewAnalysisClick
      end
      object Chart2Item: TMenuItem
        Caption = '&Chart'
        ShortCut = 0
        OnClick = ChartItemClick
      end
      object Add1: TMenuItem
        Break = mbBarBreak
        Caption = 'Add'
        Enabled = False
        ShortCut = 0
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object InsertList: TMenuItem
        Caption = 'List'
        ShortCut = 0
        OnClick = InsertListClick
      end
      object InsertAspects: TMenuItem
        Caption = 'Aspects'
        ShortCut = 0
        OnClick = InsertAspectsClick
      end
      object InsertAnalysis: TMenuItem
        Caption = 'Analysis'
        ShortCut = 118
        OnClick = InsertAnalyseClick
      end
      object Values: TMenuItem
        Caption = 'Values'
        ShortCut = 0
        OnClick = ValuesClick
      end
    end
    object Chart21: TMenuItem
      Caption = 'Chart &2'
      GroupIndex = 60
      ShortCut = 0
      object Transits1: TMenuItem
        Caption = '&Transits'
        ShortCut = 0
        OnClick = TransitsClick
      end
      object CompareDay: TMenuItem
        Caption = '&Compare to day'
        ShortCut = 0
        OnClick = CompareDayClick
      end
      object Previsions: TMenuItem
        Caption = 'Previsions'
        ShortCut = 0
        OnClick = PrevisionsClick
      end
      object Compare2: TMenuItem
        Caption = 'Compare &2 charts'
        ShortCut = 0
        OnClick = Compare2Click
      end
      object CompareFile: TMenuItem
        Caption = 'Compare to &file'
        ShortCut = 0
        OnClick = CompareFileClick
      end
      object Moonreturn: TMenuItem
        Caption = '&Moon return'
        ShortCut = 0
        OnClick = MoonreturnClick
      end
      object Sunreturn: TMenuItem
        Caption = '&Sun return'
        ShortCut = 0
        OnClick = SunreturnClick
      end
      object Progression: TMenuItem
        Caption = '&Progression'
        ShortCut = 0
        OnClick = ProgressionClick
      end
      object Midpoints: TMenuItem
        Caption = '&Mid-points'
        ShortCut = 0
        OnClick = MidpointsClick
      end
      object Secondchart: TMenuItem
        Caption = 'Second chart'
        ShortCut = 0
        OnClick = SecondchartClick
      end
    end
  end
  object FindDialog1: TFindDialog
    OnFind = FindDialog1Find
    Left = 16
    Top = 48
  end
  object ReplaceDialog1: TReplaceDialog
    OnFind = ReplaceDialog1Find
    OnReplace = ReplaceDialog1Replace
    Left = 16
    Top = 96
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.rtf'
    FileEditStyle = fsEdit
    Filter = 'Rich text format files|*.rtf'
    Left = 16
    Top = 144
  end
end