home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-01-29 | 53.0 KB | 1,907 lines |
- object Form2: TForm2
- Left = 180
- Top = 93
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'BioTray by Fiens'
- ClientHeight = 283
- ClientWidth = 349
- Color = clSilver
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Label21: TLabel
- Left = 0
- Top = 322
- Width = 641
- Height = 14
- AutoSize = False
- Caption = ' '
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label22: TLabel
- Left = 21
- Top = 362
- Width = 206
- Height = 19
- AutoSize = False
- Caption = 'Best :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- ShowAccelChar = False
- Transparent = True
- end
- object Label23: TLabel
- Left = 21
- Top = 376
- Width = 208
- Height = 19
- AutoSize = False
- Caption = 'Worst :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label24: TLabel
- Left = 229
- Top = 362
- Width = 208
- Height = 19
- AutoSize = False
- Caption = 'Best :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label25: TLabel
- Left = 231
- Top = 376
- Width = 206
- Height = 19
- AutoSize = False
- Caption = 'Worst :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label26: TLabel
- Left = 437
- Top = 362
- Width = 196
- Height = 19
- AutoSize = False
- Caption = 'Best :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label27: TLabel
- Left = 437
- Top = 376
- Width = 196
- Height = 19
- AutoSize = False
- Caption = 'Worst :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label28: TLabel
- Left = 11
- Top = 342
- Width = 188
- Height = 19
- AutoSize = False
- Caption = 'Critical Emotional Days'
- Font.Color = clRed
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- Transparent = True
- end
- object Label30: TLabel
- Left = 441
- Top = 342
- Width = 192
- Height = 19
- AutoSize = False
- Caption = 'Critical Physical Days'
- Font.Color = clLime
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- Transparent = True
- end
- object Label32: TLabel
- Left = 5
- Top = 45
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '100'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label33: TLabel
- Left = 5
- Top = 231
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label34: TLabel
- Left = 5
- Top = 60
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '90'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label35: TLabel
- Left = 5
- Top = 79
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '80'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label36: TLabel
- Left = 5
- Top = 98
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '70'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label37: TLabel
- Left = 5
- Top = 117
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '60'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label38: TLabel
- Left = 5
- Top = 136
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '50'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label39: TLabel
- Left = 5
- Top = 27
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '%'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label40: TLabel
- Left = 5
- Top = 155
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '40'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label41: TLabel
- Left = 5
- Top = 174
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '30'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label42: TLabel
- Left = 5
- Top = 193
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '20'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Label43: TLabel
- Left = 5
- Top = 212
- Width = 22
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '10'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Label31: TLabel
- Left = 8
- Top = 0
- Width = 629
- Height = 29
- Alignment = taCenter
- AutoSize = False
- Caption = 'Hello, here is your power for this month...'
- Font.Color = clBlack
- Font.Height = -24
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- Visible = False
- end
- object Label20: TLabel
- Left = 0
- Top = 306
- Width = 637
- Height = 14
- AutoSize = False
- Caption = ' '
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label29: TLabel
- Left = 233
- Top = 342
- Width = 206
- Height = 19
- AutoSize = False
- Caption = 'Critical Intellectual Days'
- Font.Color = clYellow
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- Transparent = True
- end
- object Label44: TLabel
- Left = 2
- Top = 28
- Width = 639
- Height = 14
- AutoSize = False
- Caption = ' '
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Label55: TLabel
- Left = 28
- Top = 404
- Width = 171
- Height = 16
- Caption = 'UNREGISTERED VERSION'
- Font.Color = clRed
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label56: TLabel
- Left = 430
- Top = 404
- Width = 198
- Height = 16
- Caption = 'You see only the first month of life.'
- Font.Color = clRed
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label63: TLabel
- Left = 23
- Top = 304
- Width = 206
- Height = 19
- AutoSize = False
- Caption = 'Best :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- ShowAccelChar = False
- Transparent = True
- Visible = False
- end
- object Label64: TLabel
- Left = 23
- Top = 318
- Width = 208
- Height = 19
- AutoSize = False
- Caption = 'Worst :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object Label65: TLabel
- Left = 231
- Top = 304
- Width = 208
- Height = 19
- AutoSize = False
- Caption = 'Best :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object Label66: TLabel
- Left = 233
- Top = 318
- Width = 206
- Height = 19
- AutoSize = False
- Caption = 'Worst :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object Label67: TLabel
- Left = 439
- Top = 304
- Width = 196
- Height = 19
- AutoSize = False
- Caption = 'Best :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object Label68: TLabel
- Left = 439
- Top = 318
- Width = 196
- Height = 19
- AutoSize = False
- Caption = 'Worst :'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object Label69: TLabel
- Left = 13
- Top = 284
- Width = 188
- Height = 19
- AutoSize = False
- Caption = 'Critical Emotional Days'
- Font.Color = clFuchsia
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object Label70: TLabel
- Left = 443
- Top = 284
- Width = 192
- Height = 19
- AutoSize = False
- Caption = 'Critical Physical Days'
- Font.Color = clGreen
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object Label71: TLabel
- Left = 235
- Top = 284
- Width = 206
- Height = 19
- AutoSize = False
- Caption = 'Critical Intellectual Days'
- Font.Color = clWhite
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object TabbedNotebook1: TTabbedNotebook
- Left = 0
- Top = 0
- Width = 349
- Height = 249
- Hint = 'Click on one of the tab to choose a other menu...'
- TabFont.Color = clBtnText
- TabFont.Height = -12
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Your Power'
- object Image1: TImage
- Left = -8
- Top = -2
- Width = 357
- Height = 233
- Picture.Data = {<image001.bmp>}
- Stretch = True
- end
- object Label9: TLabel
- Left = 2
- Top = 6
- Width = 339
- Height = 19
- Alignment = taCenter
- AutoSize = False
- Color = clBlue
- Font.Color = clWhite
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object Label1: TLabel
- Left = 18
- Top = 28
- Width = 88
- Height = 23
- Caption = 'Emotional'
- Font.Color = clRed
- Font.Height = -21
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label2: TLabel
- Left = 129
- Top = 28
- Width = 93
- Height = 23
- Caption = 'Intellectual'
- Font.Color = clYellow
- Font.Height = -21
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label3: TLabel
- Left = 239
- Top = 28
- Width = 74
- Height = 23
- Caption = 'Physical '
- Font.Color = clLime
- Font.Height = -21
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object NeatoMeter1: TNeatoMeter
- Left = 28
- Top = 52
- Width = 75
- Height = 157
- Hint = 'Here you see your percent of Emotional Power...'
- BackColor = clSilver
- BorderStyle = bsSingle
- Completed = 0
- Font.Color = clBlack
- Font.Height = -24
- Font.Name = 'Times New Roman'
- Font.Style = []
- ForeColor = clRed
- ParentFont = False
- ParentShowHint = False
- Percent = 0
- ShowHint = True
- BevelDepth = 2
- Direction = mdBottomToTop
- UseFontColor = True
- end
- object NeatoMeter2: TNeatoMeter
- Left = 134
- Top = 52
- Width = 75
- Height = 157
- Hint = 'There you see your percent of Intellectual Power...'
- BackColor = clSilver
- BorderStyle = bsSingle
- Completed = 0
- Font.Color = clBlack
- Font.Height = -24
- Font.Name = 'Times New Roman'
- Font.Style = []
- ForeColor = clYellow
- ParentFont = False
- ParentShowHint = False
- Percent = 0
- ShowHint = True
- BevelDepth = 2
- Direction = mdBottomToTop
- UseFontColor = True
- end
- object NeatoMeter3: TNeatoMeter
- Left = 238
- Top = 52
- Width = 75
- Height = 157
- Hint = 'Here you see your percent of Physical Power...'
- BackColor = clSilver
- BorderStyle = bsSingle
- Completed = 0
- Font.Color = clBlack
- Font.Height = -24
- Font.Name = 'Times New Roman'
- Font.Style = []
- ForeColor = clLime
- ParentFont = False
- ParentShowHint = False
- Percent = 0
- ShowHint = True
- BevelDepth = 2
- Direction = mdBottomToTop
- UseFontColor = True
- end
- end
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Details'
- object Image6: TImage
- Left = 0
- Top = -2
- Width = 353
- Height = 221
- Picture.Data = {<image002.bmp>}
- Stretch = True
- end
- object Label50: TLabel
- Left = 36
- Top = 6
- Width = 269
- Height = 107
- AutoSize = False
- Caption = 'Note the first day of your projection.'
- Font.Color = clBlack
- Font.Height = -37
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object Label51: TLabel
- Left = 38
- Top = 4
- Width = 269
- Height = 107
- AutoSize = False
- Caption = 'Note the first day of your projection.'
- Font.Color = clWhite
- Font.Height = -37
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object Memo1: TMemo
- Left = 36
- Top = 22
- Width = 269
- Height = 153
- Alignment = taCenter
- Color = clRed
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = []
- Lines.Strings = (
- 'Sorry but you dont have yet '
- 'registered BioTray.'
- ''
- 'With the registered version, you '
- 'could have lots '
- 'of interesting informations.'
- ''
- 'You will see a calendar '
- 'displaying '
- 'the curves of '
- 'your biorhythm day by day.'
- ''
- 'The best and critical days will '
- 'flash.'
- ''
- 'You could also compare'
- 'your biorhythm with others.'
- ''
- 'You can also print your '
- 'curves...'
- ''
- 'And much more.'
- ''
- 'Please register now,'
- 'it'#39's good for you...'
- '(and for us).')
- ParentFont = False
- ScrollBars = ssVertical
- TabOrder = 0
- end
- object MaskEdit2: TMaskEdit
- Left = 128
- Top = 134
- Width = 91
- Height = 32
- Hint = 'Note here the begining of your curve...'
- EditMask = '!99/99/00;1;_'
- Font.Color = clBlack
- Font.Height = -21
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 8
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Text = '01/01/01'
- Visible = False
- end
- object BitBtn7: TBitBtn
- Left = 30
- Top = 184
- Width = 281
- Height = 29
- Hint = 'Click here to see your power at the begining...'
- Caption = 'Show me the Biorhythm of the first month of my life'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = BitBtn7Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
- 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
- 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
- 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
- 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
- BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
- 55555555577777555555555705BBB55505555555F5777555F555557B5555055B
- 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
- 5B5557555557F55557555555555B5555555555555557555555550000}
- NumGlyphs = 2
- end
- object BitBtn8: TBitBtn
- Left = 34
- Top = 186
- Width = 129
- Height = 25
- Hint = 'Click here to see your next power...'
- Caption = 'Show Me'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- Visible = False
- OnClick = BitBtn8Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
- 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
- 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
- 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
- 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
- BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
- 55555555577777555555555705BBB55505555555F5777555F555557B5555055B
- 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
- 5B5557555557F55557555555555B5555555555555557555555550000}
- NumGlyphs = 2
- Spacing = 15
- end
- object BitBtn10: TBitBtn
- Left = 178
- Top = 186
- Width = 127
- Height = 25
- Hint = 'Click here to compare 2 Biorhythms...'
- Caption = 'Compare Us'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- Visible = False
- OnClick = BitBtn10Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
- 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
- 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
- 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
- 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
- BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
- 55555555577777555555555705BBB55505555555F5777555F555557B5555055B
- 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
- 5B5557555557F55557555555555B5555555555555557555555550000}
- NumGlyphs = 2
- Spacing = 15
- end
- end
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Setup'
- object Image2: TImage
- Left = -14
- Top = -20
- Width = 355
- Height = 239
- Picture.Data = {<image003.bmp>}
- Stretch = True
- end
- object Label4: TLabel
- Left = 28
- Top = 4
- Width = 285
- Height = 31
- Alignment = taCenter
- Caption = 'Note here your first name '
- Font.Color = clBlack
- Font.Height = -27
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label5: TLabel
- Left = 38
- Top = 96
- Width = 292
- Height = 31
- Caption = 'and there your birthdate... '
- Font.Color = clBlack
- Font.Height = -27
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label52: TLabel
- Left = 40
- Top = 98
- Width = 292
- Height = 31
- Caption = 'and there your birthdate... '
- Font.Color = clWhite
- Font.Height = -27
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label53: TLabel
- Left = 30
- Top = 6
- Width = 285
- Height = 31
- Alignment = taCenter
- Caption = 'Note here your first name '
- Font.Color = clWhite
- Font.Height = -27
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object BitBtn1: TBitBtn
- Left = 112
- Top = 182
- Width = 129
- Height = 29
- Hint = 'Click here if all is OK'
- Caption = 'OK'
- Default = True
- ModalResult = 6
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = BitBtn1Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 333333333337FF3333333333330003333333333333777F333333333333080333
- 3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
- 33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
- B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
- BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
- B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
- 3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
- 333333333337F33333333333333B3333333333333337333333330000}
- NumGlyphs = 2
- Spacing = 30
- end
- object Edit1: TEdit
- Left = 164
- Top = 44
- Width = 167
- Height = 40
- Hint = 'Note here your first name...'
- Font.Color = clBlack
- Font.Height = -27
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Text = 'First Name'
- OnExit = Edit1Exit
- end
- object MaskEdit1: TMaskEdit
- Left = 82
- Top = 134
- Width = 117
- Height = 40
- Hint = 'Note here your birthday..'
- EditMask = '!99/99/00;1;_'
- Font.Color = clBlack
- Font.Height = -27
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 8
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- Text = '01/01/01'
- end
- end
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'What is Biorhythm ?'
- object Memo2: TMemo
- Left = 4
- Top = 2
- Width = 331
- Height = 213
- Alignment = taCenter
- Color = clWhite
- Font.Color = clGreen
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = []
- Lines.Strings = (
- 'Biorhythm means rhythm of life.'
- ''
- 'Our lives are governed by cycles that start at'
- 'our day of birth.'
- ''
- 'The theory has been applied in the past to'
- 'accident prevention.'
- ''
- 'Many companies have studied biorhythms and'
- 'their effects on airline pilots and athletic teams.'
- ''
- 'From the day we are born, we are governed'
- 'by cycles.'
- ''
- 'The 28-day cycle called the emotional or'
- 'sensitivity cycle governs one'#39's temperament.'
- ''
- 'The 33-day cycle, called the intellectual cycle,'
- 'influences our intellect or thinking capacity.'
- ''
- 'The 23-day cycle called the physical cycle'
- 'governs the condition of one'#39's body.'
- ''
- ''
- 'Those who have investigated the theory seem'
- 'to agree on the length of these cycles'
- 'as 28, 33 and 23 days respectively.'
- ''
- 'The Emotional Cycle.'
- ''
- 'The emotional cycle affects our nervous '
- 'systems.'
- ''
- 'The plus-period lasts 14 days and is a period'
- 'of creative ability and moral energy.'
- 'This is a period where we are full of energy,'
- 'good for contests, public performances,'
- 'conducting jobs where teamwork is required.'
- ''
- 'The minus-period also lasting 14 days is a'
- 'period where we lack ambition, tend to be'
- 'moody and should be careful in our personal'
- 'relations with others.'
- ''
- 'The Intellectual Cycle.'
- ''
- 'The intellectual cycle affects our'
- 'understanding, adaptability, logic,'
- 'judgement and concentration.'
- ''
- 'The plus-period, lasting 16 1/2 days, is the'
- 'best time for study, planning, examinations'
- 'and decisions.'
- ''
- 'The minus-period, also lasting 16 1/2 days,'
- 'is a period in which we are apt to be lacking'
- 'in good judgement.'
- 'It is a time for gathering data or for jobs'
- 'that require repetition.'
- ''
- 'The Physical Cycle.'
- ''
- 'The physical cycle is said to affect our'
- 'vitality and strength.'
- ''
- 'The plus-period lasts 11 1/2 days and these'
- 'are days of physical vitality, strength and'
- 'durability.'
- 'It is a period of self confidence, courage and'
- 'progressive spirit.'
- 'Athletes usually find this period best for'
- 'competitive sports.'
- ''
- 'The minus-period also lasts 11 1/2 days and'
- 'is a period of reduced energy.'
- 'One tires more easily, is more liable to'
- 'infectious diseases, medicines seem to work'
- 'well, according to authorities.'
- 'This is a period of rejuvenation where our'
- 'body seems to be recharging.'
- 'A good period for rest and relaxation.'
- ''
- 'Critical Days.'
- ''
- 'Critical days are those during which a cycle'
- 'crosses from plus to minus (or minus to plus).'
- ''
- 'The term critical is relative.'
- 'It is a period of change where our system is'
- 'in a state of flux.'
- ''
- 'Statistical Research.'
- ''
- 'Statistical research for over 50 years seems'
- 'to disclose that during those critical days,'
- 'especially the physical and emotional ones,'
- 'we are more accident prone, lacking in'
- 'coordination, judgement and alertness.'
- ''
- 'During an emotionally critical day one is apt'
- 'to make a slip of the tongue, irresponsible'
- 'utterances, quarrel or have disputes.'
- 'An intellectually critical day might cause'
- 'failure of memory or mistakes.'
- '')
- ParentFont = False
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Stop'
- object Image7: TImage
- Left = 0
- Top = 0
- Width = 343
- Height = 219
- Picture.Data = {<image004.bmp>}
- Stretch = True
- end
- object Label54: TLabel
- Left = 165
- Top = 120
- Width = 147
- Height = 42
- Caption = 'BioTray...'
- Font.Color = clBlack
- Font.Height = -37
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label6: TLabel
- Left = 68
- Top = 26
- Width = 224
- Height = 33
- Caption = 'Click on the button'
- Font.Color = clAqua
- Font.Height = -29
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label7: TLabel
- Left = 50
- Top = 68
- Width = 198
- Height = 33
- Caption = 'if you wanna stop'
- Font.Color = clYellow
- Font.Height = -29
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label8: TLabel
- Left = 163
- Top = 118
- Width = 147
- Height = 42
- Caption = 'BioTray...'
- Font.Color = clLime
- Font.Height = -37
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object BitBtn2: TBitBtn
- Left = 42
- Top = 176
- Width = 93
- Height = 31
- Hint = 'Click here to remove BioTray from memory...'
- Caption = '&Close'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = BitBtn2Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333
- 33333333373F33333333333330B03333333333337F7F33333333333330F03333
- 333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003
- 333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0
- 333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0
- 3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03
- 33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0
- 33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B
- 03333337777777F7F333333300000000033333377777777733330000}
- NumGlyphs = 2
- Spacing = 20
- end
- end
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Help'
- object Label10: TLabel
- Left = 62
- Top = -4
- Width = 206
- Height = 21
- Caption = 'The BioTray icons means : '
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Image3: TImage
- Left = 44
- Top = 15
- Width = 41
- Height = 41
- Picture.Data = {<image005.bmp>}
- end
- object Image4: TImage
- Left = 146
- Top = 15
- Width = 41
- Height = 41
- Picture.Data = {<image006.bmp>}
- end
- object Image5: TImage
- Left = 242
- Top = 15
- Width = 41
- Height = 41
- Picture.Data = {<image007.bmp>}
- end
- object Label11: TLabel
- Left = 40
- Top = 50
- Width = 50
- Height = 19
- Caption = 'Emotion'
- Font.Color = clRed
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label12: TLabel
- Left = 142
- Top = 50
- Width = 47
- Height = 19
- Caption = 'Intellect'
- Font.Color = clYellow
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label13: TLabel
- Left = 238
- Top = 50
- Width = 49
- Height = 19
- Caption = 'Physical'
- Font.Color = clLime
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label14: TLabel
- Left = 8
- Top = 66
- Width = 323
- Height = 17
- Caption = 'How more tray icon is filled, how bigger is your power.'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label15: TLabel
- Left = 16
- Top = 82
- Width = 308
- Height = 17
- Caption = 'Clicking on one of the tray icons show this windows.'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label16: TLabel
- Left = 8
- Top = 98
- Width = 322
- Height = 17
- Caption = 'If you let your cursor on the tray icon, a hint will come.'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label17: TLabel
- Left = 50
- Top = 114
- Width = 236
- Height = 17
- Caption = 'Put your name and birthdate with Setup.'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label18: TLabel
- Left = 6
- Top = 130
- Width = 329
- Height = 17
- Caption = 'Release BioTray with the Exit button in the Stop pannel.'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label19: TLabel
- Left = 10
- Top = 148
- Width = 323
- Height = 17
- Caption = 'Click on the green button if you want hide this window.'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label57: TLabel
- Left = 32
- Top = 164
- Width = 239
- Height = 17
- Caption = 'Click on the right button to get the menu.'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object BitBtn3: TBitBtn
- Left = 106
- Top = 186
- Width = 127
- Height = 33
- Hint = 'You want more info'#39's, then click here...'
- Caption = 'About BioTray'
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = BitBtn3Click
- Glyph.Data = {
- C6050000424DC605000000000000360400002800000014000000140000000100
- 0800000000009001000000000000000000000001000000010000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600FF040400FF080800FF0C0C00FF101000FF141400FF181800FF1C1C00FF20
- 2000FF242400FF282800FF2C2C00FF303000FF343400FF383800FF3C3C00FF40
- 4000FF444400FF484800FF4C4C00FF505000FF555500FF595900FF5D5D00FF61
- 6100FF656500FF696900FF6D6D00FF717100FF757500FF797900FF7D7D00FF81
- 8100FF858500FF898900FF8D8D00FF919100FF959500FF999900FF9D9D00FFA1
- A100FFA5A500FFAAAA00FFAEAE00FFB2B200FFB6B600FFBABA00FFBEBE00FFC2
- C200FFC6C600FFCACA00FFCECE00FFD2D200FFD6D600FFDADA00FFDEDE00FFE2
- E200FFE6E600FFEAEA00FFEEEE00FFF2F200FFF6F600FFFAFA001C4069002450
- 8100B63C2800008100000095000000AA000000BE000000CE000000DE000000EE
- 0000008120000095240000AA280000BE2C0000CE300000DE340000EE380000FF
- 3C0000812C000095340000AA3C0000BE440000CE480000DE500000EE550000FF
- 5D00008138000095440000AA4C0000BE550000CE5D0000DE650000EE6D0000FF
- 7500008144000095500000AA5D0000BE650000CE6D0000DE790000EE810000FF
- 890000814C0000955D0000AA690000BE750000CE7D0000DE890000EE910000FF
- 9900008155000095650000AA750000BE810000CE8D0000DE950000EEA10000FF
- AA0000815D0000956D0000AA7D0000BE8D0000CE990000DEA50000EEB20000FF
- BA00008165000095790000AA890000BE950000CEA50000DEB20000EEBE0000FF
- CA0000816D000095810000AA910000BEA10000CEB20000DEBE0000EECA0000FF
- D600008175000095890000AA990000BEAA0000CEBA0000DECA0000EED60000FF
- E600008179000095910000AAA10000BEB60000CEC60000DED60000EEE20000FF
- F200008181000095950000AAAA0000BEBE0000CECE0000DEDE0000EEEE000079
- 81000091950000A1AA0000B6BE0000C6CE0000D6DE0000E2EE0000F2FF000075
- 8100008995000099AA0000AABE0000BACE0000CADE0000D6EE0000E6FF00006D
- 8100008195000091AA0000A1BE0000B2CE0000BEDE0000CAEE0000D6FF002069
- 8100287995002C8DAA003499BE0038AACE003CB6DE0040C2EE0044CEFF00346D
- 81003C7D95004491AA004C9DBE0050AECE0059BADE0061CAEE0065D6FF007179
- 81008591950095A1AA00A5B6BE00B6C6CE00C6D6DE00D2E2EE00DEF2FF008181
- 810095959500AAAAAA00BEBEBE00CECECE00DEDEDE00EEEEEE00EEEE0000EEE6
- 0000EEDA0000EACE0000EAC20000E6BA0000E6AE0000E6A10000E2910000E285
- 0000DE790000DE690000DE590000DA440000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
- 07070000FAFA0000FA000000000007070707070700000006FAFA0000FA000006
- FA00070707070700000006FA060000FA060000FA0600070707070000000006FA
- 00000000060000FA060007070707000000000000000000000000000000000707
- 000000FCFCFCFC000000FCFCFC000000000007000000FB00FCFC0000000000FC
- 000000FBFB000000FBFBFB00000000FBFBFB000000FBFBFBFB000000FBFBFB00
- 0000FBFBFBFB0000FBFBFBFBFB00FBFBFBFB000000FBFBFBFB000000FBFBFB00
- 0000FBFB0000000000FBFBFB0000070000FBFB000007FB0000000000FBFBFB00
- 000007000000FB0000070000000700FBFBFBFB0000070700F900000000070000
- 070700FBFBFB000007070700F900000000070007070700000000000007070700
- 00F9F90000070707070700F9F90000070707070700F9F90007070707070700F9
- F90000070707070700F9F9000707070707070000000007070707070700000007
- 0707070707070000000707070707070700000007070707070707000007070707
- 07070707070707070707}
- Style = bsNew
- end
- end
- end
- object ShadowButton1: TShadowButton
- Left = 8
- Top = 252
- Width = 335
- Height = 29
- Hint =
- 'Click here if you want to hide this window and only see the tray' +
- ' icons...'
- Caption = 'CLICK HERE TO HIDE THIS WINDOW'
- Font.Color = clWhite
- Font.Height = -12
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = ShadowButton1Click
- FaceColor = clGreen
- end
- object BitBtn5: TBitBtn
- Left = 68
- Top = 400
- Width = 141
- Height = 25
- Hint = 'Click there to see your prior curve...'
- Caption = 'Prior Mounth'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = BitBtn5Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333333333333333333333333333333333333333333FF333333333333
- 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
- E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
- E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
- E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
- 000033333373FF77777733333330003333333333333777333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- NumGlyphs = 2
- end
- object BitBtn6: TBitBtn
- Left = 428
- Top = 400
- Width = 143
- Height = 25
- Hint = 'Click here to see your next curve...'
- Caption = 'Next Mounth'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = BitBtn6Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333FFF333333333333000333333333
- 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
- 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
- 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
- BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
- 33337777773FF733333333333300033333333333337773333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- NumGlyphs = 2
- end
- object BitBtn4: TBitBtn
- Left = 314
- Top = 400
- Width = 105
- Height = 25
- Hint = 'Click here to hide this window...'
- Caption = 'OK'
- Default = True
- ModalResult = 1
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = BitBtn4Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
- 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
- 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
- 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
- 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
- BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
- 55555555577777555555555705BBB55505555555F5777555F555557B5555055B
- 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
- 5B5557555557F55557555555555B5555555555555557555555550000}
- NumGlyphs = 2
- Spacing = 15
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 349
- Height = 283
- Color = clLime
- TabOrder = 5
- Visible = False
- object Label45: TLabel
- Left = 22
- Top = 12
- Width = 306
- Height = 55
- Caption = 'Congratulation !'
- Font.Color = clGreen
- Font.Height = -48
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label46: TLabel
- Left = 14
- Top = 64
- Width = 316
- Height = 55
- Caption = 'In a few seconds'
- Font.Color = clRed
- Font.Height = -48
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label47: TLabel
- Left = 50
- Top = 114
- Width = 241
- Height = 55
- Caption = 'You will use'
- Font.Color = clRed
- Font.Height = -48
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label48: TLabel
- Left = 30
- Top = 158
- Width = 281
- Height = 55
- Caption = 'the full version'
- Font.Color = clRed
- Font.Height = -48
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label49: TLabel
- Left = 56
- Top = 214
- Width = 241
- Height = 55
- Caption = 'of BioTray...'
- Font.Color = clRed
- Font.Height = -48
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- end
- object BitBtn9: TBitBtn
- Left = 216
- Top = 400
- Width = 89
- Height = 25
- Hint = 'Click here to print your curve...'
- Caption = 'Print'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- Visible = False
- OnClick = BitBtn9Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
- 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
- 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
- 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
- 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
- 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
- 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
- 33333337FFFF7733333333300000033333333337777773333333}
- NumGlyphs = 2
- end
- object OK: TBitBtn
- Left = 312
- Top = 400
- Width = 109
- Height = 25
- Hint = 'Click here to come back'
- Caption = 'OK'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- Visible = False
- OnClick = OKClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
- 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
- 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
- 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
- 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
- BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
- 55555555577777555555555705BBB55505555555F5777555F555557B5555055B
- 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
- 5B5557555557F55557555555555B5555555555555557555555550000}
- NumGlyphs = 2
- Spacing = 10
- end
- object BitBtn12: TBitBtn
- Left = 312
- Top = 400
- Width = 109
- Height = 25
- Hint = 'Click here to come back'
- Caption = 'O.K.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- Visible = False
- OnClick = BitBtn12Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
- 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
- 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
- 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
- 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
- BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
- 55555555577777555555555705BBB55505555555F5777555F555557B5555055B
- 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
- 5B5557555557F55557555555555B5555555555555557555555550000}
- NumGlyphs = 2
- Spacing = 20
- end
- object BitBtn13: TBitBtn
- Left = 216
- Top = 400
- Width = 89
- Height = 25
- Hint = 'Click here to say who to compare'
- Caption = 'Compare'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- Visible = False
- OnClick = BitBtn13Click
- Kind = bkAll
- end
- object Panel1: TPanel
- Left = 180
- Top = 140
- Width = 321
- Height = 211
- BevelInner = bvLowered
- BorderStyle = bsSingle
- Color = 8388863
- TabOrder = 10
- Visible = False
- object Label58: TLabel
- Left = 10
- Top = 8
- Width = 294
- Height = 21
- Caption = 'Note here the 2 Biorhythms to compare'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- end
- object Label59: TLabel
- Left = 66
- Top = 30
- Width = 57
- Height = 21
- Caption = 'Name 1'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label60: TLabel
- Left = 66
- Top = 98
- Width = 57
- Height = 21
- Caption = 'Name 2'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label61: TLabel
- Left = 222
- Top = 30
- Width = 67
- Height = 21
- Caption = 'Birthdate'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label62: TLabel
- Left = 222
- Top = 102
- Width = 67
- Height = 21
- Caption = 'Birthdate'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object MaskEdit3: TMaskEdit
- Left = 206
- Top = 52
- Width = 91
- Height = 32
- Hint = 'Note here the begining of your curve...'
- EditMask = '!99/99/00;1;_'
- Font.Color = clBlack
- Font.Height = -21
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 8
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Text = '01/01/01'
- end
- object MaskEdit4: TMaskEdit
- Left = 206
- Top = 124
- Width = 91
- Height = 32
- Hint = 'Note here the begining of your curve...'
- EditMask = '!99/99/00;1;_'
- Font.Color = clBlack
- Font.Height = -21
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 8
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- Text = '01/01/01'
- end
- object Edit2: TEdit
- Left = 16
- Top = 50
- Width = 167
- Height = 40
- Hint = 'Note here your first name...'
- Font.Color = clBlack
- Font.Height = -27
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Text = 'First Name'
- OnExit = Edit2Exit
- end
- object Edit3: TEdit
- Left = 16
- Top = 118
- Width = 167
- Height = 40
- Hint = 'Note here the second first name...'
- Font.Color = clBlack
- Font.Height = -27
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- Text = 'Other'
- OnExit = Edit3Exit
- end
- object BitBtn11: TBitBtn
- Left = 98
- Top = 170
- Width = 111
- Height = 25
- Hint = 'Click here when you are OK'
- Caption = 'Show US'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = BitBtn11Click
- Kind = bkAll
- Spacing = 20
- end
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 5000
- OnTimer = Timer1Timer
- Left = 38
- Top = 116
- end
- object BalloonHint1: TBalloonHint
- BorderColor = clBlack
- Color = clInfoBk
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxWidth = -4
- Behavior = [bbNoShowMouseDown, bbUseRegions, bbHideOnPaint]
- Position = bpAboveRight
- ShadowDepth = 8
- Shape = bsRoundRect
- Active = True
- Left = 108
- Top = 105
- end
- object Timer2: TTimer
- Enabled = False
- Interval = 500
- OnTimer = Timer2Timer
- Left = 60
- Top = 68
- end
- end
-