Revista do CD-ROM 61/CDRom61-2.iso/Programas/astro/astro.exe/0/RCDATA/TFORMASTROLOGIA/TFORMASTROLOGIA.txt

Text File | 1999-12-23 | 19.8 KB | 855 lines

object formAstrologia: TformAstrologia
  Left = 106
  Top = 17
  Width = 657
  Height = 522
  Caption = 'Voc� 2000'
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object panelBase: TPanel
    Left = 8
    Top = 8
    Width = 640
    Height = 480
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 0
    object Fundo: TImage
      Left = 0
      Top = 0
      Width = 640
      Height = 480
      Align = alClient
      Picture.Data = {<image000.bmp>}
    end
    object buttonOcidental: TImage
      Left = 28
      Top = 64
      Width = 213
      Height = 43
      Cursor = crHandPoint
      OnClick = buttonAstroOcidentalClick
    end
    object buttonEgipcio: TImage
      Left = 28
      Top = 120
      Width = 213
      Height = 43
      Cursor = crHandPoint
      OnClick = buttonAstroEgipcioClick
    end
    object buttonCigano: TImage
      Left = 28
      Top = 174
      Width = 213
      Height = 43
      Cursor = crHandPoint
      OnClick = buttonAstroCiganoClick
    end
    object buttonChines: TImage
      Left = 28
      Top = 230
      Width = 213
      Height = 43
      Cursor = crHandPoint
      OnClick = buttonAstroChinesClick
    end
    object buttonAnjos: TImage
      Left = 28
      Top = 286
      Width = 213
      Height = 43
      Cursor = crHandPoint
      OnClick = buttonAnjosClick
    end
    object buttonOraculos: TImage
      Left = 28
      Top = 344
      Width = 213
      Height = 43
      Cursor = crHandPoint
      OnClick = buttonOraculosClick
    end
    object buttonNumerologia: TImage
      Left = 28
      Top = 402
      Width = 213
      Height = 43
      Cursor = crHandPoint
      OnClick = buttonNumerologiaClick
    end
    object buttonCreditos: TImage
      Left = 276
      Top = 440
      Width = 82
      Height = 25
      Cursor = crHandPoint
      OnClick = buttonCreditosClick
    end
    object buttonDados: TImage
      Left = 375
      Top = 441
      Width = 154
      Height = 25
      Cursor = crHandPoint
      OnClick = buttonDadosClick
    end
    object buttonSair: TImage
      Left = 540
      Top = 440
      Width = 82
      Height = 25
      Cursor = crHandPoint
      OnClick = buttonSairClick
    end
    object Label13: TLabel
      Left = 305
      Top = 176
      Width = 273
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'Programa��o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label14: TLabel
      Left = 305
      Top = 194
      Width = 273
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'Leandro Cal�ada'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label15: TLabel
      Left = 305
      Top = 210
      Width = 273
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'Luis Matos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label16: TLabel
      Left = 305
      Top = 258
      Width = 273
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'Miriam Duenhas'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label18: TLabel
      Left = 305
      Top = 240
      Width = 273
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'Ilustra��es'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label17: TLabel
      Left = 305
      Top = 288
      Width = 273
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'Colabora��o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label19: TLabel
      Left = 305
      Top = 306
      Width = 273
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'Luciana Cer�volo'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label20: TLabel
      Left = 337
      Top = 322
      Width = 153
      Height = 17
      Caption = 'Autora do site esot�rico'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label21: TLabel
      Left = 294
      Top = 354
      Width = 313
      Height = 39
      Alignment = taCenter
      AutoSize = False
      Caption =
        'Luciana Cer�volo tamb�m � m�sica profissional e integrante da ba' +
        'nda Centership'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object Label22: TLabel
      Left = 497
      Top = 322
      Width = 72
      Height = 17
      Cursor = crHandPoint
      Caption = 'Astro Page'
      Color = clBlue
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
      Transparent = True
      OnClick = Label22Click
    end
    object Label23: TLabel
      Left = 487
      Top = 371
      Width = 71
      Height = 17
      Cursor = crHandPoint
      Caption = 'Centership'
      Color = clBlue
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
      Transparent = True
      OnClick = Label23Click
    end
    object panelOraculos: TPanel
      Left = 21
      Top = 61
      Width = 219
      Height = 387
      BevelOuter = bvNone
      TabOrder = 3
      object imageOraculos: TImage
        Left = 0
        Top = 0
        Width = 219
        Height = 387
        Align = alClient
        Picture.Data = {<image001.bmp>}
      end
      object buttonTarot: TImage
        Left = 83
        Top = 5
        Width = 137
        Height = 25
        Cursor = crHandPoint
        OnClick = buttonTarotClick
      end
      object buttonRunas: TImage
        Left = 83
        Top = 50
        Width = 137
        Height = 25
        Cursor = crHandPoint
        OnClick = buttonRunasClick
      end
      object buttonGeomancia: TImage
        Left = 83
        Top = 95
        Width = 137
        Height = 25
        Cursor = crHandPoint
        OnClick = buttonGeomanciaClick
      end
      object buttonKhePou: TImage
        Left = 83
        Top = 138
        Width = 137
        Height = 25
        Cursor = crHandPoint
        OnClick = buttonKhePouClick
      end
      object buttonIChing: TImage
        Left = 83
        Top = 182
        Width = 137
        Height = 25
        Cursor = crHandPoint
        OnClick = ButtonIChingClick
      end
      object buttonCleromancia: TImage
        Left = 83
        Top = 227
        Width = 137
        Height = 25
        Cursor = crHandPoint
        OnClick = buttonCleroManciaClick
      end
      object buttonGravidez: TImage
        Left = 83
        Top = 269
        Width = 137
        Height = 25
        Cursor = crHandPoint
        OnClick = buttonGravidezClick
      end
      object buttonBolaCristal: TImage
        Left = 83
        Top = 314
        Width = 137
        Height = 25
        Cursor = crHandPoint
        OnClick = buttonBolaCristalClick
      end
      object buttonNiqueis: TImage
        Left = 83
        Top = 358
        Width = 137
        Height = 25
        Cursor = crHandPoint
        OnClick = buttonNiqueisClick
      end
    end
    object panelView: TPanel
      Left = 248
      Top = 16
      Width = 392
      Height = 417
      BevelOuter = bvNone
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Visible = False
      object FundoView: TImage
        Left = 0
        Top = 0
        Width = 392
        Height = 417
        Align = alClient
        Picture.Data = {<image002.bmp>}
      end
      object Icone: TImage
        Left = 15
        Top = 341
        Width = 70
        Height = 70
        Center = True
      end
      object Label12: TLabel
        Left = 8
        Top = 5
        Width = 62
        Height = 15
        Caption = 'An�lise de:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object labelNome: TLabel
        Left = 72
        Top = 5
        Width = 61
        Height = 15
        Caption = 'labelNome'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object buttonImprimir: TImage
        Left = 228
        Top = 352
        Width = 74
        Height = 23
        Cursor = crHandPoint
        AutoSize = True
        Picture.Data = {<image003.bmp>}
        OnClick = buttonImprimirClick
      end
      object buttonCor: TImage
        Left = 227
        Top = 352
        Width = 134
        Height = 25
        Cursor = crHandPoint
        AutoSize = True
        Picture.Data = {<image004.bmp>}
        OnClick = buttonCOrClick
      end
      object buttonCompatibilidade: TImage
        Left = 227
        Top = 376
        Width = 134
        Height = 25
        Cursor = crHandPoint
        AutoSize = True
        Picture.Data = {<image005.bmp>}
        OnClick = buttonCompatibilidadeClick
      end
      object buttonVoltar: TImage
        Left = 225
        Top = 376
        Width = 61
        Height = 21
        Cursor = crHandPoint
        AutoSize = True
        Picture.Data = {<image006.bmp>}
        OnClick = buttonVoltarClick
      end
      object panelBaseViewer: TPanel
        Left = 8
        Top = 23
        Width = 377
        Height = 314
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Caption = 'panelBaseViewer'
        Color = clWhite
        TabOrder = 0
        object Viewer: TRichEdit
          Left = 5
          Top = 4
          Width = 364
          Height = 304
          BorderStyle = bsNone
          Ctl3D = False
          HideScrollBars = False
          Lines.Strings = (
            'Viewer')
          ParentCtl3D = False
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
    object panelView2: TPanel
      Left = 248
      Top = 16
      Width = 393
      Height = 417
      BevelOuter = bvNone
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Visible = False
      object FundoView2: TImage
        Left = 0
        Top = 0
        Width = 393
        Height = 417
        Align = alClient
        Picture.Data = {<image007.bmp>}
      end
      object OL1: TImage
        Left = 10
        Top = 5
        Width = 70
        Height = 110
        Center = True
      end
      object OL2: TImage
        Left = 162
        Top = 5
        Width = 70
        Height = 110
        Center = True
      end
      object OL3: TImage
        Left = 312
        Top = 5
        Width = 70
        Height = 110
        Center = True
      end
      object Image2: TImage
        Left = 164
        Top = 382
        Width = 74
        Height = 23
        Cursor = crHandPoint
        AutoSize = True
        Picture.Data = {<image008.bmp>}
        OnClick = buttonImprimirClick
      end
      object Panel2: TPanel
        Left = 8
        Top = 120
        Width = 377
        Height = 249
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Caption = 'panelBaseViewer'
        Color = clWhite
        TabOrder = 0
        object Viewer2: TRichEdit
          Left = 5
          Top = 5
          Width = 364
          Height = 236
          BorderStyle = bsNone
          Ctl3D = False
          HideScrollBars = False
          Lines.Strings = (
            'Viewer2')
          ParentCtl3D = False
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
    object panelDados: TPanel
      Left = 248
      Top = 16
      Width = 393
      Height = 417
      BevelOuter = bvNone
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Visible = False
      object Image1: TImage
        Left = 0
        Top = 0
        Width = 393
        Height = 417
        Align = alClient
        Picture.Data = {<image009.bmp>}
      end
      object Label1: TLabel
        Left = 16
        Top = 43
        Width = 114
        Height = 18
        Caption = 'Nome Completo'
        Transparent = True
      end
      object Label2: TLabel
        Left = 16
        Top = 108
        Width = 143
        Height = 18
        Caption = 'Data de Nascimento'
        Transparent = True
      end
      object Label3: TLabel
        Left = 16
        Top = 172
        Width = 54
        Height = 18
        Caption = 'Apelido'
        Transparent = True
      end
      object Label4: TLabel
        Left = 16
        Top = 87
        Width = 369
        Height = 17
        AutoSize = False
        Caption = 'Preencha este espa�o com seu nome completo de nascimento.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label5: TLabel
        Left = 16
        Top = 152
        Width = 116
        Height = 15
        Caption = 'Exemplo: 25/12/2000'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label6: TLabel
        Left = 16
        Top = 216
        Width = 205
        Height = 15
        Caption = 'Se n�o tiver apelido, deixe em branco'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label7: TLabel
        Left = 16
        Top = 283
        Width = 273
        Height = 33
        AutoSize = False
        Caption =
          'Seu primeiro nome deve estar escrito aqui. Se n�o estiver, preen' +
          'cha-o'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label8: TLabel
        Left = 16
        Top = 239
        Width = 106
        Height = 18
        Caption = 'Primeiro Nome'
        Transparent = True
      end
      object Label9: TLabel
        Left = 16
        Top = 322
        Width = 119
        Height = 18
        Caption = 'Nome de Fam�lia'
        Transparent = True
      end
      object Label10: TLabel
        Left = 16
        Top = 366
        Width = 321
        Height = 49
        AutoSize = False
        Caption =
          'Aqui deve estar o seu sobrenome de fam�lia (geralmente o �ltimo ' +
          'nome de nascimento). Caso n�o esteja correto, preencha-o adequad' +
          'amente.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label11: TLabel
        Left = 16
        Top = 8
        Width = 369
        Height = 33
        AutoSize = False
        Caption =
          'Preencha seus dados nos campos abaixo, e depois escolha no menu ' +
          '� esquerda, qual an�lise deseja consultar.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object NomeCompleto: TEdit
        Left = 16
        Top = 63
        Width = 355
        Height = 25
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 255
        ParentFont = False
        TabOrder = 0
        Text = 'NomeCompleto'
        OnExit = NomeCompletoExit
      end
      object DataNascto: TMaskEdit
        Left = 16
        Top = 128
        Width = 145
        Height = 25
        EditMask = '99/99/9999;1; '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 1
        Text = '  /  /    '
        OnExit = DataNasctoExit
      end
      object Apelido: TEdit
        Left = 16
        Top = 192
        Width = 355
        Height = 25
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 255
        ParentFont = False
        TabOrder = 2
        Text = 'Apelido'
      end
      object PrimeiroNome: TEdit
        Left = 16
        Top = 259
        Width = 355
        Height = 25
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 255
        ParentFont = False
        TabOrder = 3
        Text = 'PrimeiroNome'
      end
      object NomeFamilia: TEdit
        Left = 16
        Top = 342
        Width = 355
        Height = 25
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 255
        ParentFont = False
        TabOrder = 4
        Text = 'NomeFamilia'
      end
    end
  end
  object PrintViewer: TRichEdit
    Left = 128
    Top = 480
    Width = 57
    Height = 25
    Lines.Strings = (
      'PrintView'
      'er')
    TabOrder = 1
    Visible = False
  end
  object PrintDialog: TPrintDialog
    Left = 152
    Top = 8
  end
  object timerSplash: TTimer
    Interval = 4000
    OnTimer = timerSplashTimer
    Left = 16
    Top = 16
  end
end