Chip Hitware 6 A/CHIP_HITWARE6_A.iso/edukacja/Adastra/_SETUP.1/Adastra.exe/0/RCDATA/TSETUPFORM/TSETUPFORM.txt

Text File | 1998-12-16 | 15KB | 573 lines

object SetupForm: TSetupForm
  Left = 269
  Top = 168
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'General Setup'
  ClientHeight = 448
  ClientWidth = 511
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 125
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 8
    Top = 7
    Width = 495
    Height = 393
    ActivePage = MailTab
    TabOrder = 0
    object MailTab: TTabSheet
      Caption = 'Mail'
      object MailPanel1: TPanel
        Left = 2
        Top = 7
        Width = 483
        Height = 352
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label1: TLabel
          Left = 16
          Top = 124
          Width = 82
          Height = 16
          Caption = 'SMTP server:'
        end
        object SMTPLabel1: TBoxLabel
          Left = 16
          Top = 17
          Width = 450
          Height = 85
          Caption =
            'Please enter the name of your SMTP server for outgoing mail, alo' +
            'ng with your e-mail address if desired. You can then get in touc' +
            'h with us right here from within Stella if ever you have problem' +
            's, comments, or decide to take advantage of our FREE star bonus'
          TextBorder = 2
          Color = 8454143
          ParentColor = False
          WordWrap = True
        end
        object BoxLabel1: TBoxLabel
          Left = 16
          Top = 190
          Width = 450
          Height = 85
          Caption =
            ' If you are unsure of your SMTP server for outgoing mail, try lo' +
            'oking under Options in MS Mail, under Preferences|Mail in Netsca' +
            'pe Navigator'#39's Edit menu, or Tools|Options|Sending Mail in Eudor' +
            'a. When you find it you can then simply Cut and Paste it here.'
          TextBorder = 2
          Color = 8454143
          ParentColor = False
          WordWrap = True
        end
        object BoxLabel2: TBoxLabel
          Left = 16
          Top = 280
          Width = 448
          Height = 37
          Caption =
            'Once you enter your correct SMTP data, this window will no longe' +
            'r appear at startup.'
          TextBorder = 2
          Font.Color = clRed
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Color = 8454143
          ParentFont = False
          ParentColor = False
          WordWrap = True
        end
        object Label3: TLabel
          Left = 16
          Top = 157
          Width = 94
          Height = 16
          Caption = 'E-mail address:'
        end
        object SMTPEdit: TEdit
          Left = 128
          Top = 117
          Width = 328
          Height = 24
          Hint = 'If you'#39're not sure, ask your ISP'
          TabOrder = 0
        end
        object NotInternetConnected: TCheckBox
          Left = 21
          Top = 325
          Width = 424
          Height = 17
          Caption = 'I currently do not have a connection to the Internet'
          TabOrder = 1
        end
        object EmailEdit: TEdit
          Left = 128
          Top = 151
          Width = 328
          Height = 24
          TabOrder = 2
        end
      end
    end
    object ObserverTab: TTabSheet
      Caption = 'Observer'
      object BoxLabel3: TBoxLabel
        Left = 11
        Top = 4
        Width = 462
        Height = 45
        Caption =
          'Please enter your name, locality, and geographic coordinates on ' +
          'this page. Use '#39'convert'#39' if you type your position in degrees as' +
          ' a decimal fraction.'
        TextBorder = 2
        Color = 8454143
        ParentColor = False
        WordWrap = True
      end
      object Panel8: TPanel
        Left = 11
        Top = 53
        Width = 465
        Height = 303
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label6: TLabel
          Left = 98
          Top = 5
          Width = 251
          Height = 15
          Caption = 'At the very least, please enter your name here:'
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 228
          Top = 183
          Width = 24
          Height = 16
          Caption = 'deg'
          Font.Color = clTeal
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 291
          Top = 183
          Width = 21
          Height = 16
          Caption = 'min'
          Font.Color = clTeal
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 350
          Top = 183
          Width = 22
          Height = 16
          Caption = 'sec'
          Font.Color = clTeal
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 400
          Top = 185
          Width = 51
          Height = 15
          Caption = 'N /S  E/W'
          Font.Color = clTeal
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 98
          Top = 284
          Width = 261
          Height = 15
          Caption = 'Default settings will apply if any field is left blank'
          Font.Color = clRed
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object LatLabel: TPanel
          Left = 8
          Top = 151
          Width = 122
          Height = 32
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Caption = 'Latitude'
          TabOrder = 0
        end
        object LongLabel: TPanel
          Left = 8
          Top = 196
          Width = 121
          Height = 32
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Caption = 'Longitude'
          TabOrder = 1
        end
        object LatDegBox: TEdit
          Left = 216
          Top = 154
          Width = 48
          Height = 24
          Hint = 'Degrees'
          MaxLength = 10
          TabOrder = 2
        end
        object LatMinBox: TEdit
          Left = 277
          Top = 154
          Width = 48
          Height = 24
          Hint = 'Minutes'
          MaxLength = 2
          TabOrder = 3
        end
        object LongDegBox: TEdit
          Left = 216
          Top = 202
          Width = 48
          Height = 24
          Hint = 'Degrees'
          MaxLength = 10
          TabOrder = 6
          OnChange = LongDegBoxChange
        end
        object LongMinBox: TEdit
          Left = 277
          Top = 202
          Width = 48
          Height = 24
          Hint = 'Minutes'
          MaxLength = 2
          TabOrder = 7
        end
        object NSBox: TComboBox
          Left = 399
          Top = 154
          Width = 52
          Height = 24
          Hint = 'North or South'
          ItemHeight = 16
          Items.Strings = (
            'N'
            'S')
          TabOrder = 5
          Text = 'N'
        end
        object EWBox: TComboBox
          Left = 400
          Top = 202
          Width = 52
          Height = 24
          Hint = 'East or West'
          ItemHeight = 16
          Items.Strings = (
            'E'
            'W')
          TabOrder = 9
          Text = 'W'
        end
        object Panel9: TPanel
          Left = 8
          Top = 248
          Width = 122
          Height = 32
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Caption = 'Time Zone'
          TabOrder = 10
        end
        object ZoneBox: TComboBox
          Left = 216
          Top = 252
          Width = 52
          Height = 24
          Hint = 'International time zone'
          ItemHeight = 16
          Items.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9'
            '10'
            '11'
            '12')
          TabOrder = 11
        end
        object LocName1Label: TPanel
          Left = 8
          Top = 65
          Width = 123
          Height = 32
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Caption = 'Locality + State'
          TabOrder = 12
        end
        object DaylightSaving: TCheckBox
          Left = 288
          Top = 255
          Width = 118
          Height = 17
          Caption = 'Daylight saving?'
          State = cbChecked
          TabOrder = 13
        end
        object LocName2Panel: TPanel
          Left = 8
          Top = 104
          Width = 122
          Height = 32
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Caption = 'Country'
          TabOrder = 14
        end
        object LatSecBox: TEdit
          Left = 336
          Top = 154
          Width = 48
          Height = 24
          Hint = 'Seconds'
          MaxLength = 2
          TabOrder = 4
          Text = '0'
        end
        object LongSecBox: TEdit
          Left = 336
          Top = 202
          Width = 48
          Height = 24
          Hint = 'Seconds'
          MaxLength = 2
          TabOrder = 8
          Text = '0'
        end
        object DMSLatConvertButton: TButton
          Left = 144
          Top = 154
          Width = 60
          Height = 25
          Hint = 'Decimal degrees to deg/min/sec'
          Caption = 'Convert'
          TabOrder = 15
          OnClick = DMSLatConvertButtonClick
        end
        object DMSLongConvertButton: TButton
          Left = 144
          Top = 202
          Width = 60
          Height = 25
          Hint = 'Decimal degrees to deg/min/sec'
          Caption = 'Convert'
          TabOrder = 16
          OnClick = DMSLongConvertButtonClick
        end
        object MonikerEdit: TEdit
          Left = 82
          Top = 22
          Width = 147
          Height = 24
          Hint = 'First name'
          TabOrder = 17
        end
        object SurnameEdit: TEdit
          Left = 247
          Top = 22
          Width = 147
          Height = 24
          Hint = 'Surname'
          TabOrder = 18
        end
        object LocusEdit: TComboBox
          Left = 215
          Top = 68
          Width = 235
          Height = 24
          Hint = 'Town/city & state'
          ItemHeight = 0
          TabOrder = 19
        end
        object PatriaEdit: TComboBox
          Left = 215
          Top = 108
          Width = 235
          Height = 24
          Hint = 'Country'
          ItemHeight = 0
          TabOrder = 20
        end
        object SetButton: TButton
          Left = 144
          Top = 89
          Width = 60
          Height = 25
          Hint = 'Apply geographic selection'
          Caption = 'Set'
          TabOrder = 21
          OnClick = SetButtonClick
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 407
    Width = 511
    Height = 41
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 1
    object OKButton: TButton
      Left = 98
      Top = 8
      Width = 75
      Height = 25
      Hint = 'Save current setup to disk'
      Caption = 'OK'
      TabOrder = 0
      OnClick = OKButtonClick
    end
    object CancelButton: TButton
      Left = 208
      Top = 8
      Width = 75
      Height = 25
      Hint = 'Exit dialog and do nothing'
      Caption = 'Cancel'
      TabOrder = 1
      OnClick = CancelButtonClick
    end
    object ApplyButton: TButton
      Left = 318
      Top = 8
      Width = 75
      Height = 25
      Hint = 'Apply settings globally'
      Caption = 'Apply'
      TabOrder = 2
      OnClick = ApplyButtonClick
    end
  end
  object IniOut1: TIniOut
    FileName = 'ADASTRA.INI'
    Items.Strings = (
      'SMTPEdit;Text;;Setup;SMTP server;1;0'
      'StarLoadBox;Text;;Setup;StarsToLoad;1;0'
      'EmailEdit;Text;;Setup;EmailAddress;1;0'

        'NotInternetConnected;Checked;;Setup;Internet connection absent?;' +
        '1;0'

        'ReadoutFontPanel;Caption;MS Sans Serif;Fonts;Readout panel font ' +
        'name;1;0'
      'ReadoutFontSizePanel;Caption;8;Fonts;Readout panel font size;1;0'

        'ReadoutFontStylePanel;Caption;Bold;Fonts;Readout panel font styl' +
        'e;1;0'

        'ReadoutFontColorPanel;Color;clMaroon;Fonts;Readout panel font co' +
        'lor;1;0'
      'ReportFontPanel;Caption;MS Sans Serif;Fonts;Report font name;1;0'
      'ReportFontSizePanel;Caption;7;Fonts;Report font size;1;0'
      'ReportFontStylePanel;Caption;Bold;Fonts;Report font style;1;0'
      'ReportFontColorPanel;Color;clTeal;Fonts;Report font color;1;0'
      'ReportFontPanel;Color;;Fonts;Report background color;1;0'
      'DefaultFonts;Checked;True;Fonts;Use default fonts;1;0'
      'MonikerEdit;Text;;Observer;First name;1;0'
      'SurnameEdit;Text;;Observer;Surname;1;0'
      'LocusEdit;Text;;Observer;Locality;1;0'
      'PatriaEdit;Text;;Observer;Country;1;0'
      'LatDegBox;Text;;Observer;Lat degrees;1;0'
      'LatMinBox;Text;;Observer;Lat minutes;1;0')
    RegistryRoot = CURRENT_USER
    Left = 396
    Top = 1
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 463
    Top = 412
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 432
    Top = 412
  end
  object IniOut2: TIniOut
    FileName = 'ADASTRA.INI'
    Items.Strings = (
      'LatSecBox;Text;0;Observer;Lat seconds;1;0'
      'NSBox;Text;;Observer;North or South;1;0'
      'LongDegBox;Text;;Observer;Long degrees;1;0'
      'LongMinBox;Text;;Observer;Long minutes;1;0'
      'LongSecBox;Text;0;Observer;Long seconds;1;0'
      'ZoneBox;Text;;Observer;Zone;1;0'
      'DaylightSaving;Checked;;Observer;Daylight saving?;1;0'
      'EWBox;Text;;Observer;East or West;1;0'
      'AutoRestorePrefs;Checked;False;General;Auto-restore prefs;1;0'
      'AutoRestorePrefs;Checked;True;General;Auto restore settings;1;0'
      'AutoStorePrefs;Checked;False;General;Auto store settings;1;0')
    RegistryRoot = CURRENT_USER
    Left = 427
    Top = 1
  end
  object CSV1: TCSVStringInfo
    Left = 479
    Top = 1
  end
end