object frmBio: TfrmBio Left = 222 Top = 145 HelpContext = 1052 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'frmBio' ClientHeight = 327 ClientWidth = 544 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsMDIChild OldCreateOrder = False Position = poDefault Visible = True OnClose = FormClose OnCreate = FormCreate OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object Bevel2: TBevel Left = 200 Top = 258 Width = 337 Height = 61 Shape = bsFrame end object Bevel1: TBevel Left = 8 Top = 258 Width = 187 Height = 61 Shape = bsFrame end object Image1: TImage Left = 22 Top = 10 Width = 500 Height = 240 end object Label1: TLabel Left = 14 Top = 268 Width = 72 Height = 13 Caption = 'Data urodzenia' Font.Charset = DEFAULT_CHARSET Font.Color = 14024447 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label2: TLabel Left = 14 Top = 296 Width = 77 Height = 13 Caption = 'Biorytm na dzien' Font.Charset = DEFAULT_CHARSET Font.Color = 14024447 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object DataUr: TDateEdit Left = 98 Top = 264 Width = 87 Height = 21 Color = 14024447 DefaultToday = True NumGlyphs = 2 YearDigits = dyFour TabOrder = 0 Text = '08-03-1999' OnChange = DataUrChange end object cb1: TCheckBox Left = 210 Top = 274 Width = 155 Height = 17 Caption = 'Rytm fizyczny' Checked = True Color = clRed Font.Charset = DEFAULT_CHARSET Font.Color = 14024447 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False State = cbChecked TabOrder = 2 OnClick = DataUrChange end object cb2: TCheckBox Left = 210 Top = 290 Width = 155 Height = 17 Caption = 'Rytm psychiczny' Checked = True Color = clGreen Font.Charset = DEFAULT_CHARSET Font.Color = 14024447 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False State = cbChecked TabOrder = 3 OnClick = DataUrChange end object cb3: TCheckBox Left = 372 Top = 274 Width = 155 Height = 17 Caption = 'Rytm intelektualny' Checked = True Color = clBlue Font.Charset = DEFAULT_CHARSET Font.Color = 14024447 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False State = cbChecked TabOrder = 4 OnClick = DataUrChange end object cb4: TCheckBox Left = 372 Top = 290 Width = 155 Height = 17 Caption = 'Rytm intuicyjny' Checked = True Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = 14024447 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False State = cbChecked TabOrder = 5 OnClick = DataUrChange end object DataBio: TDateEdit Left = 98 Top = 292 Width = 87 Height = 21 Color = 14024447 DefaultToday = True NumGlyphs = 2 YearDigits = dyFour TabOrder = 1 Text = '08-03-1999' OnChange = DataUrChange end end