Chip 1998 April/ChipCD_498.iso/software/sharewar/nowos/witaj98/wit98.exe/RCDATA/TFORMAGLOWNA/TFORMAGLOWNA.txt

Text File | 1998-01-22 | 37KB | 1,474 lines

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 = {<image000.ico>}
  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 = {<image001.ico>}
  end
  object ImageTrayDzien: TImage
    Left = 32
    Top = 8
    Width = 16
    Height = 16
    Picture.Data = {<image002.ico>}
  end
  object ImageTrayWieczor: TImage
    Left = 56
    Top = 8
    Width = 17
    Height = 17
    Picture.Data = {<image003.ico>}
  end
  object ImageTrayNoc: TImage
    Left = 80
    Top = 8
    Width = 17
    Height = 17
    Picture.Data = {<image004.ico>}
  end
  object TImage
    Left = 323
    Top = 145
    Width = 9
    Height = 9
    AutoSize = True
    Picture.Data = {<image005.bmp>}
    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 = {<image006.ico>}
        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 = {<image007.ico>}
        Visible = False
      end
      object ImageDzien: TImage
        Left = 9
        Top = 8
        Width = 32
        Height = 32
        Hint = 'Ikonka okre�la por� dnia'
        Picture.Data = {<image008.ico>}
        Visible = False
      end
      object ImageWieczor: TImage
        Left = 8
        Top = 8
        Width = 32
        Height = 32
        Hint = 'Ikonka okre�la por� dnia'
        Picture.Data = {<image009.ico>}
        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 = {<image010.ico>}
        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 = {<image011.bmp>}
        Visible = False
        OnClick = ImageBioUser1Click
      end
      object ImageBioUser2: TImage
        Left = 339
        Top = 145
        Width = 9
        Height = 9
        AutoSize = True
        Picture.Data = {<image012.bmp>}
        Visible = False
        OnClick = ImageBioUser2Click
      end
      object ImageBioUser3: TImage
        Left = 355
        Top = 145
        Width = 9
        Height = 9
        AutoSize = True
        Picture.Data = {<image013.bmp>}
        Visible = False
        OnClick = ImageBioUser3Click
      end
      object ImageBioUser4: TImage
        Left = 371
        Top = 145
        Width = 9
        Height = 9
        AutoSize = True
        Picture.Data = {<image014.bmp>}
        Visible = False
        OnClick = ImageBioUser4Click
      end
      object ImageBioUser5: TImage
        Left = 387
        Top = 145
        Width = 9
        Height = 9
        AutoSize = True
        Picture.Data = {<image015.bmp>}
        Visible = False
        OnClick = ImageBioUser5Click
      end
      object ImageBisUser1: TImage
        Left = 323
        Top = 145
        Width = 9
        Height = 9
        AutoSize = True
        Picture.Data = {<image016.bmp>}
        OnClick = ImageBisUser1Click
      end
      object ImageBisUser2: TImage
        Left = 339
        Top = 145
        Width = 9
        Height = 9
        AutoSize = True
        Picture.Data = {<image017.bmp>}
        Visible = False
        OnClick = ImageBisUser2Click
      end
      object ImageBisUser3: TImage
        Left = 355
        Top = 145
        Width = 9
        Height = 9
        AutoSize = True
        Picture.Data = {<image018.bmp>}
        Visible = False
        OnClick = ImageBisUser3Click
      end
      object ImageBisUser4: TImage
        Left = 371
        Top = 145
        Width = 9
        Height = 9
        AutoSize = True
        Picture.Data = {<image019.bmp>}
        Visible = False
        OnClick = ImageBisUser4Click
      end
      object ImageBisUser5: TImage
        Left = 387
        Top = 145
        Width = 9
        Height = 9
        AutoSize = True
        Picture.Data = {<image020.bmp>}
        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 = {<image021.bmp>}
        OnMouseDown = ImageLogoWITaj3MouseDown
      end
      object ImageLogoWITaj2: TImage
        Left = 16
        Top = 16
        Width = 100
        Height = 50
        AutoSize = True
        Picture.Data = {<image022.bmp>}
        OnMouseDown = ImageLogoWITaj2MouseDown
      end
      object ImageLogoWITaj: TImage
        Left = 16
        Top = 16
        Width = 100
        Height = 50
        AutoSize = True
        ParentShowHint = False
        Picture.Data = {<image023.bmp>}
        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