PC World Komputer 1998 July & August/Pcwk78a98.iso/Sharewar/STELLA/_SETUP.1/Stella.exe/0/RCDATA/TLIVEFMFORM/TLIVEFMFORM.txt

Text File | 1998-01-06 | 5KB | 209 lines

object LiveFMform: TLiveFMform
  Left = 271
  Top = 237
  Width = 682
  Height = 363
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Coeli Live Ephem'
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  PopupMenu = PopupMenu1
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 125
  TextHeight = 16
  object Bevel1: TBevel
    Left = 0
    Top = 305
    Width = 674
    Height = 2
    Align = alBottom
  end
  object StringGrid1: TStringGrid
    Left = 0
    Top = 0
    Width = 674
    Height = 305
    Align = alClient
    ColCount = 13
    Ctl3D = True
    DefaultColWidth = 70
    FixedColor = 4210688
    RowCount = 12
    Font.Color = clRed
    Font.Height = -14
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    OnColumnMoved = StringGrid1ColumnMoved
    OnMouseUp = StringGrid1MouseUp
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 307
    Width = 674
    Height = 24
    Font.Color = clRed
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <
      item
        Alignment = taCenter
        Text = 'LCT'
        Width = 120
      end
      item
        Alignment = taCenter
        Text = 'GMT'
        Width = 120
      end
      item
        Alignment = taCenter
        Text = 'Sidereal'
        Width = 120
      end
      item
        Alignment = taCenter
        Text = 'Gregorian Date'
        Width = 180
      end
      item
        Alignment = taCenter
        Text = 'Julian Date'
        Width = 120
      end
      item
        Alignment = taCenter
        Text = 'Location'
        Width = 130
      end>
    ParentFont = False
    SimplePanel = False
  end
  object TitlePanel: TPanel
    Left = 32
    Top = 8
    Width = 576
    Height = 28
    Caption = 'Coeli Live Ephemeris for Location'
    TabOrder = 2
    Visible = False
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 250
    OnTimer = Timer1Timer
    Top = 1
  end
  object PopupMenu1: TPopupMenu
    Left = 611
    Top = 96
    object Clock1: TMenuItem
      Caption = 'Clock'
      ShortCut = 0
      object Start1: TMenuItem
        Caption = '&Start'
        ShortCut = 0
        OnClick = Start1Click
      end
      object Stop1: TMenuItem
        Caption = 'Sto&p'
        ShortCut = 0
        OnClick = Stop1Click
      end
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Font1: TMenuItem
      Caption = 'Font'
      ShortCut = 0
      OnClick = Font1Click
    end
    object Colour1: TMenuItem
      Caption = 'Colour'
      ShortCut = 0
      object TableColour1: TMenuItem
        Caption = '&Table'
        ShortCut = 0
        OnClick = TableColour1Click
      end
      object WindowColour1: TMenuItem
        Caption = '&Window'
        ShortCut = 0
        OnClick = WindowColour1Click
      end
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object OnTop1: TMenuItem
      Caption = 'On Top'
      Checked = True
      ShortCut = 0
      OnClick = OnTop1Click
    end
    object Collapsed1: TMenuItem
      Caption = 'Collapsed'
      ShortCut = 0
      OnClick = Collapsed1Click
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Print1: TMenuItem
      Caption = '&Print'
      ShortCut = 0
      OnClick = Print1Click
    end
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 611
    Top = 126
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 612
    Top = 157
  end
  object NameTimer: TTimer
    OnTimer = NameTimerTimer
    Top = 33
  end
  object IniOut1: TIniOut
    FileName = 'STELLA.INI'
    Items.Strings = (
      'LiveFMform;Height;;Dimensions;LiveFMFormHeight;1;0'
      'LiveFMform;Width;;Dimensions;LiveFMFormWidth;1;0'
      'LiveFMform;Left;;Position;LiveFMFormLeft;1;0'
      'LiveFMform;Top;;Position;LiveFMFormTop;1;0'
      'LiveFMform;Color;;Appearance;LiveFMFormColour;1;0'
      'StringGrid1;Color;;Appearance;TableColour;1;0'
      'StringGrid1;FixedColor;;Appearance;TableFixedColour;1;0'
      'LiveFMform;Visible;;Appearance;LiveFMFormVisible;1;0'
      '<Unknown>;;;;;0;0')
    RegistryRoot = CURRENT_USER
    Left = 612
    Top = 193
  end
end