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