object FormaGlowna: TFormaGlowna Left = 212 Top = 192 Hint = '�' HelpContext = 2 VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMinimize, biHelp] BorderStyle = bsSingle Caption = 'WITaj! 98' ClientHeight = 209 ClientWidth = 423 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True Position = poScreenCenter Visible = True OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object ImageTrayRanek: TImage Left = 8 Top = 8 Width = 16 Height = 16 Picture.Data = {} end object ImageTrayDzien: TImage Left = 32 Top = 8 Width = 16 Height = 16 Picture.Data = {} end object ImageTrayWieczor: TImage Left = 56 Top = 8 Width = 17 Height = 17 Picture.Data = {} end object ImageTrayNoc: TImage Left = 80 Top = 8 Width = 17 Height = 17 Picture.Data = {} end object TImage Left = 323 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} OnClick = ImageBioUser1Click end object PageKonfiguracja: TPageControl Left = 0 Top = 0 Width = 424 Height = 190 Hint = '�' ActivePage = TabPrywatneKonfiguracja ParentShowHint = False ShowHint = False TabOrder = 1 Visible = False OnChange = PageKonfiguracjaChange object TabZakladki: TTabSheet Hint = 'W��czenie/wy��czenie wy�wietlania zak�adek' Caption = 'Zak�adki' object LblKtoreZakladki: TLabel Left = 16 Top = 8 Width = 180 Height = 13 Caption = 'Kt�re zak�adki maj� by� wy�wietlane?' end object LiniaWZakladkach: TBevel Left = 8 Top = 102 Width = 401 Height = 8 Shape = bsBottomLine Style = bsRaised end object LblPoczatkowaBezczynnoscB: TLabel Left = 160 Top = 128 Width = 20 Height = 13 Caption = 'sek.' end object CheckPrzyslowia: TCheckBox Left = 16 Top = 32 Width = 113 Height = 17 Hint = 'W��czenie/wy��czenie zak�adki '#39'Przys�owia'#39 Caption = 'Przys�owia' TabOrder = 0 end object CheckKoscielne: TCheckBox Left = 16 Top = 56 Width = 113 Height = 17 Hint = 'W��czenie/wy��czenie zak�adki '#39'Ko�cielne'#39 Caption = 'Ko�cielne' TabOrder = 1 end object CheckOkolicznosciowe: TCheckBox Left = 16 Top = 80 Width = 113 Height = 17 Hint = 'W��czenie/wy��czenie zak�adki '#39'Okoliczno�ciowe'#39 Caption = 'Okoliczno�ciowe' TabOrder = 2 end object CheckPanstwowe: TCheckBox Left = 264 Top = 32 Width = 113 Height = 17 Hint = 'W��czenie/wy��czenie zak�adki '#39'Pa�stwowe'#39 Caption = 'Pa�stwowe' TabOrder = 3 end object CheckPrywatne: TCheckBox Left = 264 Top = 56 Width = 113 Height = 17 Hint = 'W��czenie/wy��czenie zak�adki '#39'Prywatne'#39 Caption = 'Prywatne' TabOrder = 4 end object CheckBiorytm: TCheckBox Left = 264 Top = 80 Width = 97 Height = 17 Hint = 'W��czenie/wy��czenie zak�adki '#39'Biorytm'#39 Caption = 'Biorytm' TabOrder = 5 end object CheckZapisywanie: TCheckBox Left = 264 Top = 128 Width = 145 Height = 17 Hint = 'W��czenie/wy��czenie zapisywania konfiguracji' Caption = 'Zapisywanie konfiguracji' TabOrder = 6 end object SpinEditPoczatkowaBezczynnosc: TSpinEdit Left = 112 Top = 124 Width = 41 Height = 22 MaxValue = 59 MinValue = 3 TabOrder = 7 Value = 10 end object CheckBezczynnosc: TCheckBox Left = 16 Top = 128 Width = 97 Height = 17 Hint = 'Automatyczne zamykanie programu po up�ywie okre�lonego czasu' Caption = 'Wy��czenie po' TabOrder = 8 end end object TabPrywatneKonfiguracja: TTabSheet Hint = 'Zmiana prywatnych wydarze�' Caption = 'Dane Prywatne' object LblDzienPrywatne: TLabel Left = 112 Top = 88 Width = 27 Height = 13 Caption = 'Dzie�' end object LblMiesiacPrywatne: TLabel Left = 64 Top = 88 Width = 36 Height = 13 Caption = 'Miesi�c' end object LblRokPrywatne: TLabel Left = 8 Top = 88 Width = 20 Height = 13 Caption = 'Rok' end object LblOpisPrywatne: TLabel Left = 8 Top = 139 Width = 24 Height = 17 Caption = 'Opis:' end object LblLiczbaPrywatnych: TLabel Left = 201 Top = 80 Width = 103 Height = 13 Alignment = taRightJustify Caption = 'Liczba element�w: ??' end object LblPrywatneRodzaj: TLabel Left = 312 Top = 8 Width = 88 Height = 13 Caption = 'Wybierz typ wpisu:' end object EditPrywatne: TEdit Left = 40 Top = 136 Width = 361 Height = 21 Hint = 'Edycja wydarzenia' MaxLength = 200 TabOrder = 3 OnChange = EditPrywatneChange end object BtnDodajPrywatne: TButton Left = 200 Top = 104 Width = 57 Height = 22 Hint = 'Dodanie wpisu do listy' Caption = '&Dodaj' Enabled = False TabOrder = 7 OnClick = BtnDodajPrywatneClick end object BtnPoprawPrywatne: TButton Left = 272 Top = 104 Width = 57 Height = 22 Hint = 'Poprawienie wpis na li�cie' Caption = '&Popraw' Enabled = False TabOrder = 8 OnClick = BtnPoprawPrywatneClick end object BtnUsunPrywatne: TButton Left = 344 Top = 104 Width = 57 Height = 22 Hint = 'Usuni�cie wpisu z listy' Caption = '&Usu�' Enabled = False TabOrder = 9 OnClick = BtnUsunPrywatneClick end object ComboMiesiacPrywatne: TComboBox Left = 64 Top = 104 Width = 41 Height = 21 DropDownCount = 5 ItemHeight = 13 Items.Strings = ( '01' '02' '03' '04' '05' '06' '07' '08' '09' '10' '11' '12') TabOrder = 1 Text = '01' OnChange = ComboMiesiacPrywatneChange end object SpinEditDzienPrywatne: TSpinEdit Left = 112 Top = 104 Width = 41 Height = 22 MaxValue = 31 MinValue = 1 TabOrder = 2 Value = 1 end object SpinEditRokPrywatne: TSpinEdit Left = 8 Top = 104 Width = 49 Height = 22 MaxLength = 4 MaxValue = 2100 MinValue = 1900 TabOrder = 0 Value = 1900 end object ListaPrywatne: TListBox Left = 8 Top = 8 Width = 297 Height = 73 Hint = 'Lista zawieraj�ca prywatne wpisy' ItemHeight = 13 Sorted = True TabOrder = 10 OnClick = ListaPrywatneClick OnDblClick = ListaPrywatneDblClick end object RadioPrywatnePrzypomnienie: TRadioButton Left = 312 Top = 32 Width = 97 Height = 17 Hint = 'Wpis jest przypomnieniem' Caption = 'Przypo&mnienie' Checked = True TabOrder = 4 TabStop = True OnClick = RadioPrywatnePrzypomnienieClick end object RadioPrywatneUrodziny: TRadioButton Left = 312 Top = 48 Width = 97 Height = 17 Hint = 'Wpis zawiera wiadomo�ci o urodzinach' Caption = '&Urodziny' TabOrder = 5 OnClick = RadioPrywatneUrodzinyClick end object RadioPrywatneRocznica: TRadioButton Left = 312 Top = 64 Width = 97 Height = 17 Hint = 'Wpis zawiera wiadomo�ci o rocznicy' Caption = '&Rocznica' TabOrder = 6 OnClick = RadioPrywatneRocznicaClick end end object TabUzytkownicy: TTabSheet Hint = 'Podawanie danych dotycz�cych u�ytkownik�w' Caption = 'U�ytkownicy' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = False object EditDaneUser1: TEdit Left = 32 Top = 8 Width = 161 Height = 21 Hint = 'Dane g��wnego u�ytkownika' MaxLength = 40 TabOrder = 0 Text = 'Autor' end object ComboMiesiacUser1: TComboBox Tag = 1 Left = 248 Top = 8 Width = 97 Height = 21 Hint = 'Miesi�c urodzenia g��wnego u�ytkownika' DropDownCount = 12 ItemHeight = 13 Items.Strings = ( 'stycznia' 'lutego' 'marca' 'kwietnia' 'maja' 'czerwca' 'lipca' 'sierpnia' 'wrze�nia' 'pa�dziernika' 'listopada' 'grudnia') TabOrder = 2 Text = 'stycznia' OnChange = ComboMiesiacUser1Change end object SpinEditRokUser1: TSpinEdit Left = 352 Top = 8 Width = 57 Height = 22 Hint = 'Rok urodzenia g��wnego u�ytkownika' Ctl3D = True MaxLength = 4 MaxValue = 2100 MinValue = 1900 ParentCtl3D = False TabOrder = 3 Value = 1900 end object SpinEditDzienUser1: TSpinEdit Left = 200 Top = 8 Width = 41 Height = 22 Hint = 'Dzie� urodzenia g��wnego u�ytkownika' MaxLength = 2 MaxValue = 31 MinValue = 1 TabOrder = 1 Value = 1 end object CheckUser2: TCheckBox Left = 8 Top = 40 Width = 17 Height = 17 Hint = 'W��czenie/wy��czenie drugiego u�ytkownika' Color = clBtnFace ParentColor = False TabOrder = 4 OnClick = CheckUser2Click end object EditDaneUser2: TEdit Left = 32 Top = 40 Width = 161 Height = 21 Hint = 'Dane drugiego u�ytkownika' MaxLength = 40 TabOrder = 5 Text = 'Jola' end object EditDaneUser3: TEdit Left = 32 Top = 72 Width = 161 Height = 21 Hint = 'Dane trzeciego u�ytkownika' MaxLength = 40 TabOrder = 10 end object EditDaneUser4: TEdit Left = 32 Top = 104 Width = 161 Height = 21 Hint = 'Dane czwartego u�ytkownika' MaxLength = 40 TabOrder = 15 end object EditDaneUser5: TEdit Left = 32 Top = 136 Width = 161 Height = 21 Hint = 'Dane pi�tego u�ytkownika' MaxLength = 40 TabOrder = 20 end object CheckUser3: TCheckBox Left = 8 Top = 72 Width = 17 Height = 17 Hint = 'W��czenie/wy��czenie trzeciego u�ytkownika' TabOrder = 9 OnClick = CheckUser3Click end object CheckUser4: TCheckBox Left = 8 Top = 104 Width = 17 Height = 17 Hint = 'W��czenie/wy��czenie czwartego u�ytkownika' TabOrder = 14 OnClick = CheckUser4Click end object CheckUser5: TCheckBox Left = 8 Top = 136 Width = 17 Height = 17 Hint = 'W��czenie/wy��czenie pi�tego u�ytkownika' TabOrder = 19 OnClick = CheckUser5Click end object SpinEditDzienUser2: TSpinEdit Left = 200 Top = 40 Width = 41 Height = 22 Hint = 'Dzie� urodzenia drugiego u�ytkownika' MaxLength = 2 MaxValue = 31 MinValue = 1 TabOrder = 6 Value = 1 end object SpinEditDzienUser3: TSpinEdit Left = 200 Top = 72 Width = 41 Height = 22 Hint = 'Dzie� urodzenia trzeciego u�ytkownika' MaxLength = 2 MaxValue = 31 MinValue = 1 TabOrder = 11 Value = 1 end object SpinEditDzienUser4: TSpinEdit Left = 200 Top = 104 Width = 41 Height = 22 Hint = 'Dzie� urodzenia czwartego u�ytkownika' MaxLength = 2 MaxValue = 31 MinValue = 1 TabOrder = 16 Value = 1 end object SpinEditDzienUser5: TSpinEdit Left = 200 Top = 136 Width = 41 Height = 22 Hint = 'Dzie� urodzenia pi�tego u�ytkownika' MaxLength = 2 MaxValue = 31 MinValue = 1 TabOrder = 21 Value = 1 end object SpinEditRokUser2: TSpinEdit Left = 352 Top = 40 Width = 57 Height = 22 Hint = 'Rok urodzenia drugiego u�ytkownika' MaxLength = 4 MaxValue = 2100 MinValue = 1900 TabOrder = 8 Value = 1900 end object SpinEditRokUser3: TSpinEdit Left = 352 Top = 72 Width = 57 Height = 22 Hint = 'Rok urodzenia trzeciego u�ytkownika' MaxLength = 4 MaxValue = 2100 MinValue = 1900 TabOrder = 13 Value = 1900 end object SpinEditRokUser4: TSpinEdit Left = 352 Top = 104 Width = 57 Height = 22 Hint = 'Rok urodzenia czwartego u�ytkownika' MaxLength = 4 MaxValue = 2100 MinValue = 1900 TabOrder = 18 Value = 1900 end object SpinEditRokUser5: TSpinEdit Left = 352 Top = 136 Width = 57 Height = 22 Hint = 'Rok urodzenia pi�tego u�ytkownika' MaxLength = 4 MaxValue = 2100 MinValue = 1900 TabOrder = 23 Value = 1900 end object ComboMiesiacUser5: TComboBox Tag = 1 Left = 248 Top = 136 Width = 97 Height = 21 Hint = 'Miesi�c urodzenia pi�tego u�ytkownika' DropDownCount = 12 ItemHeight = 13 Items.Strings = ( 'stycznia' 'lutego' 'marca' 'kwietnia' 'maja' 'czerwca' 'lipca' 'sierpnia' 'wrze�nia' 'pa�dziernika' 'listopada' 'grudnia') TabOrder = 22 Text = 'stycznia' OnChange = ComboMiesiacUser5Change end object ComboMiesiacUser2: TComboBox Tag = 1 Left = 248 Top = 40 Width = 97 Height = 21 Hint = 'Miesi�c urodzenia drugiego u�ytkownika' DropDownCount = 12 ItemHeight = 13 Items.Strings = ( 'stycznia' 'lutego' 'marca' 'kwietnia' 'maja' 'czerwca' 'lipca' 'sierpnia' 'wrze�nia' 'pa�dziernika' 'listopada' 'grudnia') TabOrder = 7 Text = 'stycznia' OnChange = ComboMiesiacUser2Change end object ComboMiesiacUser3: TComboBox Tag = 1 Left = 248 Top = 72 Width = 97 Height = 21 Hint = 'Miesi�c urodzenia trzeciego u�ytkownika' DropDownCount = 12 ItemHeight = 13 Items.Strings = ( 'stycznia' 'lutego' 'marca' 'kwietnia' 'maja' 'czerwca' 'lipca' 'sierpnia' 'wrze�nia' 'pa�dziernika' 'listopada' 'grudnia') TabOrder = 12 Text = 'stycznia' OnChange = ComboMiesiacUser3Change end object ComboMiesiacUser4: TComboBox Tag = 1 Left = 248 Top = 104 Width = 97 Height = 21 Hint = 'Miesi�c urodzenia czwartego u�ytkownika' DropDownCount = 12 ItemHeight = 13 Items.Strings = ( 'stycznia' 'lutego' 'marca' 'kwietnia' 'maja' 'czerwca' 'lipca' 'sierpnia' 'wrze�nia' 'pa�dziernika' 'listopada' 'grudnia') TabOrder = 17 Text = 'stycznia' OnChange = ComboMiesiacUser4Change end end end object PageGlowna: TPageControl Left = 0 Top = 0 Width = 424 Height = 190 Hint = '�' ActivePage = TabDzisiaj TabOrder = 0 OnChange = PageGlownaChange OnMouseDown = PageGlownaMouseDown object TabDzisiaj: TTabSheet Hint = 'Ekran powitalny' Caption = 'Dzisiaj' ParentShowHint = False ShowHint = False OnMouseDown = TabDzisiajMouseDown object LblKolejnyDzienRoku: TLabel Left = 56 Top = 40 Width = 86 Height = 13 Caption = 'Kolejny dzien roku' Visible = False OnClick = LblKolejnyDzienRokuClick end object LblRok2000: TLabel Left = 56 Top = 40 Width = 41 Height = 13 Caption = 'Rok2000' Visible = False OnClick = LblRok2000Click end object ImageNoc: TImage Left = 8 Top = 8 Width = 32 Height = 32 Hint = 'Ikonka okre�la por� dnia' Picture.Data = {} Visible = False end object LblPowitanie: TLabel Left = 56 Top = 8 Width = 115 Height = 20 Caption = 'Tekst powitania' Font.Color = clBlack Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = LblPowitanieClick end object LblAktualnaGodzina: TLabel Left = 56 Top = 64 Width = 85 Height = 13 Caption = 'Aktualna godzina:' OnClick = LblAktualnaGodzinaClick end object LblGodzina: TLabel Left = 144 Top = 64 Width = 47 Height = 13 Caption = 'Godzina' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LblData: TLabel Left = 56 Top = 40 Width = 153 Height = 13 Caption = 'Data' OnClick = LblDataClick end object ImageRanek: TImage Left = 8 Top = 8 Width = 32 Height = 32 Hint = 'Ikonka okre�la por� dnia' Picture.Data = {} Visible = False end object ImageDzien: TImage Left = 9 Top = 8 Width = 32 Height = 32 Hint = 'Ikonka okre�la por� dnia' Picture.Data = {} Visible = False end object ImageWieczor: TImage Left = 8 Top = 8 Width = 32 Height = 32 Hint = 'Ikonka okre�la por� dnia' Picture.Data = {} Visible = False end object LiniaNadImieninami: TBevel Left = 8 Top = 86 Width = 401 Height = 8 Shape = bsBottomLine Style = bsRaised end object LblImieninyObchodza: TLabel Left = 56 Top = 104 Width = 101 Height = 13 Caption = 'Obchodzimy imieniny:' OnClick = LblImieninyObchodzaClick end object LblImieniny: TLabel Left = 56 Top = 128 Width = 47 Height = 13 Hint = 'Dzisiejsi solenizanci' Caption = 'Imieniny' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False OnClick = LblImieninyClick end object LblDodatkoweInformacje: TLabel Left = 240 Top = 8 Width = 160 Height = 13 Alignment = taRightJustify Caption = 'DZI� PI�TEK TRZYNASTEGO!!!' Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Visible = False end object ImageUrodziny: TImage Left = 320 Top = 48 Width = 32 Height = 32 Hint = 'Wszystkiego Najlepszego w Dniu Urodzin!' Picture.Data = {} Visible = False OnMouseDown = ImageUrodzinyMouseDown end end object TabPrzyslowia: TTabSheet Hint = 'Przys�owie(a) zwi�zane z danym dniem' Caption = 'Przys�owie' ParentShowHint = False ShowHint = False TabVisible = False object LblPrzyslowia: TLabel Left = 16 Top = 16 Width = 51 Height = 13 Caption = 'Przys�owie' end end object TabKoscielne: TTabSheet Hint = 'Uroczysto�ci, �wi�ta i Wspomnienia ko�cielne' Caption = 'Ko�cielne' ParentShowHint = False ShowHint = False object LblKoscielne: TLabel Left = 16 Top = 16 Width = 46 Height = 13 Caption = 'Ko�cielne' end object LblKoscielneDodatki: TLabel Left = 16 Top = 136 Width = 86 Height = 13 Caption = 'Dodatki Ko�cielne' end object LiniaNadKoscielnymiDodatkami: TBevel Left = 8 Top = 120 Width = 401 Height = 9 Shape = bsBottomLine end end object TabOkolicznosciowe: TTabSheet Hint = 'Wydarzenia okoliczno�ciowe' Caption = 'Okoliczno�ciowe' ParentShowHint = False ShowHint = False TabVisible = False object LblOkolicznosciowe: TLabel Left = 16 Top = 16 Width = 80 Height = 13 Caption = 'Okoliczno�ciowe' end end object TabPanstwowe: TTabSheet Hint = '�wi�ta pa�stwowe' Caption = 'Pa�stwowe' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = False TabVisible = False object LblPanstwowe: TLabel Left = 16 Top = 16 Width = 55 Height = 13 Caption = 'Pa�stwowe' end end object TabPrywatne: TTabSheet Hint = 'Przypomnienia prywatne ' Caption = 'Prywatne' ParentShowHint = False ShowHint = False object LblPrywatne: TLabel Left = 16 Top = 16 Width = 44 Height = 13 Caption = 'Prywatne' end object LblPrywatneJutro: TLabel Left = 16 Top = 96 Width = 87 Height = 13 Hint = 'Co b�dzie jutro?' Caption = 'Prywatne Na Jutro' Visible = False end object LblPrywatneJutroNapis: TLabel Left = 16 Top = 80 Width = 39 Height = 13 Caption = 'JUTRO:' Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Visible = False end object MemoPrywatne: TMemo Left = 392 Top = 0 Width = 25 Height = 25 BorderStyle = bsNone Color = clBtnFace Ctl3D = False Enabled = False Lines.Strings = ( '') ParentCtl3D = False TabOrder = 0 WordWrap = False end end object TabBiorytm: TTabSheet Caption = 'Biorytm' OnMouseMove = TabBiorytmMouseMove object ShapePodBiorytmem: TShape Left = 16 Top = 16 Width = 273 Height = 121 Brush.Color = clSilver Enabled = False end object LblPrognoza: TLabel Left = 0 Top = 128 Width = 9 Height = 13 Hint = 'Prognoza samopoczucia w dniu dzisiejszym' Caption = 'Prognoza na dzi�' Visible = False OnClick = LblPrognozaClick end object LblLiczbaDniZycia: TLabel Left = 248 Top = 0 Width = 41 Height = 13 Alignment = taRightJustify OnClick = LblLiczbaDniZyciaClick end object LblBioMiesiac: TLabel Left = 304 Top = 16 Width = 105 Height = 13 Hint = 'Miesi�c wyliczenia biorytmu' Alignment = taCenter AutoSize = False Caption = 'Miesi�c' OnClick = LblBioMiesiacClick end object LblBioDzien: TLabel Left = 16 Top = 0 Width = 15 Height = 13 Caption = ' ' end object BevelBiorytm: TBevel Left = 16 Top = 16 Width = 273 Height = 121 end object PaintBoxBiorytm: TPaintBox Left = 17 Top = 16 Width = 271 Height = 120 ParentShowHint = False ShowHint = False OnMouseDown = PaintBoxBiorytmMouseDown OnMouseMove = PaintBoxBiorytmMouseMove OnPaint = PaintBoxBiorytmPaint end object LblBioUzytkownik: TLabel Left = 16 Top = 144 Width = 3 Height = 13 end object ImageBioUser1: TImage Left = 323 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} Visible = False OnClick = ImageBioUser1Click end object ImageBioUser2: TImage Left = 339 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} Visible = False OnClick = ImageBioUser2Click end object ImageBioUser3: TImage Left = 355 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} Visible = False OnClick = ImageBioUser3Click end object ImageBioUser4: TImage Left = 371 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} Visible = False OnClick = ImageBioUser4Click end object ImageBioUser5: TImage Left = 387 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} Visible = False OnClick = ImageBioUser5Click end object ImageBisUser1: TImage Left = 323 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} OnClick = ImageBisUser1Click end object ImageBisUser2: TImage Left = 339 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} Visible = False OnClick = ImageBisUser2Click end object ImageBisUser3: TImage Left = 355 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} Visible = False OnClick = ImageBisUser3Click end object ImageBisUser4: TImage Left = 371 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} Visible = False OnClick = ImageBisUser4Click end object ImageBisUser5: TImage Left = 387 Top = 145 Width = 9 Height = 9 AutoSize = True Picture.Data = {} Visible = False OnClick = ImageBisUser5Click end object SpeedNextMiesiac: TSpeedButton Left = 290 Top = 16 Width = 12 Height = 12 Hint = 'Nast�pny miesi�c' Caption = '�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False OnClick = SpeedNextMiesiacClick end object SpeedPrevMiesiac: TSpeedButton Left = 3 Top = 16 Width = 12 Height = 12 Hint = 'Poprzedni miesi�c' Caption = '�' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False OnClick = SpeedPrevMiesiacClick end object CheckBioFizyczny: TCheckBox Left = 304 Top = 40 Width = 97 Height = 17 Hint = 'W��czenie/wy��czenie biorytmu fizycznego' Caption = 'Fizyczny' Color = clBtnFace Font.Color = clGreen Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 0 OnClick = CheckBioFizycznyClick end object CheckBioEmocjonalny: TCheckBox Left = 304 Top = 56 Width = 97 Height = 17 Hint = 'W��czenie/wy��czenie biorytmu emocjonalnego' Caption = 'Emocjonalny' Color = clBtnFace Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 1 OnClick = CheckBioEmocjonalnyClick end object CheckBioIntelektualny: TCheckBox Left = 304 Top = 72 Width = 97 Height = 17 Hint = 'W��czenie/wy��czenie biorytmu intelektualnego' Caption = 'Intelektualny' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = CheckBioIntelektualnyClick end object CheckBioSrednia: TCheckBox Left = 304 Top = 88 Width = 97 Height = 17 Hint = 'W��czenie/wy��czenie �redniej trzech powy�szych biorytm�w' Caption = '�rednia' Font.Color = clFuchsia Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = CheckBioSredniaClick end object CheckBioZero: TCheckBox Left = 304 Top = 120 Width = 97 Height = 17 Hint = 'W��czenie/wy��czenie linii zerowej (krytycznej)' Caption = 'Linia zerowa' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = CheckBioZeroClick end object CheckBioDzisiaj: TCheckBox Left = 304 Top = 104 Width = 97 Height = 17 Hint = 'W��czenie/wy��czenie zaznaczenia dnia dzisiejszego' Caption = 'Dzisiaj' Color = clBtnFace Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 4 OnClick = CheckBioDzisiajClick end end object TabAbout: TTabSheet Hint = 'Informacje o programie...' Caption = 'Info' ParentShowHint = False ShowHint = False object ImageLogoWITaj3: TImage Left = 16 Top = 16 Width = 100 Height = 50 AutoSize = True Picture.Data = {} OnMouseDown = ImageLogoWITaj3MouseDown end object ImageLogoWITaj2: TImage Left = 16 Top = 16 Width = 100 Height = 50 AutoSize = True Picture.Data = {} OnMouseDown = ImageLogoWITaj2MouseDown end object ImageLogoWITaj: TImage Left = 16 Top = 16 Width = 100 Height = 50 AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = False OnMouseDown = ImageLogoWITajMouseDown IsControl = True end object LblWersja: TLabel Left = 183 Top = 19 Width = 42 Height = 15 Alignment = taRightJustify Caption = 'Wersja:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False IsControl = True end object LblDataWersji: TLabel Left = 135 Top = 46 Width = 90 Height = 15 Alignment = taRightJustify Caption = 'Ostatnie zmiany:' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object LblCopyright: TLabel Left = 8 Top = 80 Width = 401 Height = 15 Hint = 'Kliknij tutaj aby uzyska� dalsze informacje dotycz�ce autora' Alignment = taCenter AutoSize = False Caption = 'Copyright � 1996-98 Maciej Haudek [SerVanT]' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = LblCopyrightClick IsControl = True end object LblKomentarz: TLabel Left = 8 Top = 107 Width = 401 Height = 25 Alignment = taCenter AutoSize = False Caption = 'Program powitalny dla u�ytkownik�w systemu Windows 95/NT' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial CE' Font.Style = [fsBold] ParentFont = False WordWrap = True OnClick = LblKomentarzClick IsControl = True end object LblFreeware: TLabel Left = 64 Top = 136 Width = 266 Height = 16 Alignment = taCenter Caption = 'PROGRAM BEZP�ATNY ���� FREEWARE' Color = clBtnFace Font.Color = clNavy Font.Height = -13 Font.Name = 'Arial CE' Font.Style = [fsBold] ParentColor = False ParentFont = False ParentShowHint = False ShowHint = False OnMouseDown = LblFreewareMouseDown end object LblWersjaAuto: TLabel Left = 232 Top = 19 Width = 78 Height = 15 Caption = 'Automatycznie' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial CE' Font.Style = [] ParentFont = False end object LblDataWersjiAuto: TLabel Left = 232 Top = 46 Width = 78 Height = 15 Caption = 'Automatycznie' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end end object StatusBar: TStatusBar Left = 0 Top = 190 Width = 423 Height = 19 DragCursor = crDefault Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Panels = < item Alignment = taCenter Bevel = pbRaised Text = 'KONIEC' Width = 55 end item Alignment = taCenter Bevel = pbRaised Text = 'K' Width = 19 end item Width = 334 end> ParentFont = False ParentShowHint = False ShowHint = False SimplePanel = False SizeGrip = False OnMouseDown = StatusBarMouseDown OnMouseMove = StatusBarMouseMove end object Timer: TTimer OnTimer = TimerTimer Left = 272 Top = 176 end end