object Form1: TForm1 Left = 228 Top = 152 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Terminarz ucznia - Wersja 2.0' ClientHeight = 381 ClientWidth = 675 Color = clWhite TransparentColorValue = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OldCreateOrder = False Position = poDesktopCenter ShowHint = True OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label2: TLabel Left = 144 Top = 136 Width = 36 Height = 13 Hint = 'To jest informacja o dacie wpisu.' Caption = 'Data: ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object SpeedButton1: TSpeedButton Left = 456 Top = 344 Width = 0 Height = 0 Hint = 'Zapisuje wpis' Caption = 'Zapisz' Flat = True Visible = False OnClick = SpeedButton1Click end object Label1: TLabel Left = 8 Top = 32 Width = 177 Height = 313 Alignment = taCenter AutoSize = False Caption = 'TERMINARZ UCZNIA Wersja 2.0' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'Courier New' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True end object Panel: TPanel Left = 0 Top = 0 Width = 228 Height = 381 Align = alLeft AutoSize = True BevelOuter = bvNone Color = clWhite TabOrder = 0 object Label6: TLabel Left = 0 Top = 166 Width = 228 Height = 13 Align = alTop Alignment = taCenter Caption = 'NOTATKI' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Kalendarz: TMonthCalendar Left = 0 Top = 0 Width = 228 Height = 153 Hint = 'To jest kalendarz. Z niego mo'#380'esz wybiera'#263' wpis, kt'#243'ry chcesz ut' + 'worzy'#263' lub zmieni'#263'.' Align = alTop AutoSize = True CalColors.TitleBackColor = clSkyBlue CalColors.MonthBackColor = clWindow Date = 37626.404184988420000000 FirstDayOfWeek = dowMonday TabOrder = 0 WeekNumbers = True OnClick = KalendarzClick end object Panel1: TPanel Left = 0 Top = 153 Width = 228 Height = 13 Align = alTop BevelOuter = bvNone Color = clWhite TabOrder = 1 end object editor: TFlatMemo Left = 8 Top = 188 Width = 210 Height = 187 Hint = 'Tutaj mo'#380'esz wpiywa'#263' r'#243#380'ne notatki' ColorFlat = 14872561 PopupMenu = menu TabOrder = 2 end end object Panel3: TPanel Left = 224 Top = 1 Width = 305 Height = 48 BevelOuter = bvNone Color = clWhite TabOrder = 1 object Label8: TLabel Left = 1 Top = 4 Width = 32 Height = 13 Caption = 'Data:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 0 Top = 20 Width = 5 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Bevel2: TBevel Left = 0 Top = 40 Width = 120 Height = 3 Shape = bsTopLine end end object ppanel: TPanel Left = 555 Top = 0 Width = 120 Height = 381 Align = alRight BevelOuter = bvNone Color = clWhite TabOrder = 2 object Label10: TLabel Left = 0 Top = 8 Width = 44 Height = 13 Hint = 'Tu program podaje informacje o liczbie wpis'#243'w...' Caption = 'Wpis'#243'w: ' end object Label11: TLabel Left = 0 Top = 24 Width = 26 Height = 13 Hint = 'To jest zegar' Caption = 'Czas:' end object FlatSpeedButton1: TFlatSpeedButton Left = 0 Top = 240 Width = 113 Height = 25 Hint = 'Je'#380'eli chcesz zmieni'#263' plan lekcji, kliknij tu' ColorHighLight = clSkyBlue ColorShadow = clSkyBlue Caption = 'Ustaw plan lekcji' OnClick = FlatSpeedButton1Click end object FlatSpeedButton2: TFlatSpeedButton Left = 0 Top = 288 Width = 0 Height = 0 ColorHighLight = clSkyBlue ColorShadow = clSkyBlue Caption = 'Pomoc' Visible = False OnClick = FlatSpeedButton2Click end object Bevel1: TBevel Left = 0 Top = 40 Width = 120 Height = 3 Shape = bsTopLine end object FlatButton1: TFlatButton Left = 0 Top = 192 Width = 113 Height = 25 Hint = 'Kliknij tu aby wyczy'#347'ci'#263' pola ocen. Je'#380'eli klikniesz tu prawym p' + 'rzyciskiem myszy uzyskasz wi'#281'cej opcji...' ColorHighLight = clSkyBlue ColorShadow = clSkyBlue Caption = 'Wyczy'#347#263' pola' PopupMenu = PopupMenu1 TabOrder = 0 OnClick = FlatButton1Click end object FlatButton2: TFlatButton Left = 0 Top = 80 Width = 113 Height = 25 Hint = 'Kliknij tu, aby wydrukowa'#263' wpis' ColorHighLight = clSkyBlue ColorShadow = clSkyBlue Caption = 'Drukuj wpis' TabOrder = 1 OnClick = FlatButton2Click end object Laduj: TFlatButton Left = 0 Top = 112 Width = 113 Height = 25 Hint = 'Je'#380'eli klikniesz na ten przycisk w pola przedmiot'#243'w zostan'#261' auto' + 'matycznie wpisane przedmioty...' ColorHighLight = clSkyBlue ColorShadow = clSkyBlue Caption = #321'aduj przedmioty' TabOrder = 2 OnClick = LadujClick end object FlatButton4: TFlatButton Left = 0 Top = 48 Width = 113 Height = 25 Hint = 'Je'#380'eli chcesz wiedzie'#263' kiedy masz najbli'#380'szy sprawdzian, kliknij' + ' tu...' ColorHighLight = clSkyBlue ColorShadow = clSkyBlue Caption = 'Najbli'#380'szy sprawdzian' TabOrder = 3 OnClick = FlatButton4Click end object FlatButton5: TFlatButton Left = 0 Top = 144 Width = 113 Height = 25 Hint = 'Kliknij tu prawym przyciskiem myszy...' ColorHighLight = clSkyBlue ColorShadow = clSkyBlue Caption = 'Kopia zapasowa' PopupMenu = PopupMenu2 TabOrder = 4 end object FlatButton3: TFlatButton Left = 0 Top = 256 Width = 0 Height = 0 ColorHighLight = clSkyBlue ColorShadow = clSkyBlue Caption = 'O programie...' TabOrder = 5 Visible = False OnClick = FlatButton3Click end object FlatButton6: TFlatButton Left = 0 Top = 352 Width = 113 Height = 25 Hint = 'Je'#380'eli tu klikniesz zako'#324'czysz dzia'#322'anie programu...' ColorHighLight = clSkyBlue ColorShadow = clSkyBlue Caption = 'Koniec' TabOrder = 6 OnClick = FlatButton6Click end end object Panel2: TPanel Left = 224 Top = 48 Width = 313 Height = 329 BevelOuter = bvNone Color = clWhite TabOrder = 3 object Label4: TLabel Left = 8 Top = 0 Width = 70 Height = 13 Caption = 'Sprawdzian:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 8 Top = 48 Width = 61 Height = 13 Caption = 'Kartk'#243'wki:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 138 Top = 0 Width = 30 Height = 13 Caption = 'Inne:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Panel4: TPanel Left = 8 Top = 120 Width = 249 Height = 213 BevelOuter = bvNone Color = clWindow TabOrder = 0 object Label7: TLabel Left = 32 Top = 0 Width = 62 Height = 13 Caption = 'Przedmioty' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 168 Top = 0 Width = 37 Height = 13 Caption = 'Oceny' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Edit2: TFlatEdit Left = 0 Top = 44 Width = 121 Height = 19 Hint = 'Tutaj wpisz przedmiot...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 0 end object Edit3: TFlatEdit Left = 0 Top = 68 Width = 121 Height = 19 Hint = 'Tutaj wpisz przedmiot...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 1 end object Edit4: TFlatEdit Left = 0 Top = 92 Width = 121 Height = 19 Hint = 'Tutaj wpisz przedmiot...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 2 end object Edit5: TFlatEdit Left = 0 Top = 116 Width = 121 Height = 19 Hint = 'Tutaj wpisz przedmiot...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 3 end object Edit6: TFlatEdit Left = 0 Top = 140 Width = 121 Height = 19 Hint = 'Tutaj wpisz przedmiot...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 4 end object Edit7: TFlatEdit Left = 0 Top = 164 Width = 121 Height = 19 Hint = 'Tutaj wpisz przedmiot...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 5 end object Edit8: TFlatEdit Left = 0 Top = 188 Width = 121 Height = 19 Hint = 'Tutaj wpisz przedmiot...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 6 end object edit9: TFlatEdit Left = 128 Top = 20 Width = 121 Height = 19 Hint = 'Tutaj wpisz oceny...' ColorFlat = 14872561 MaxLength = 20 PopupMenu = Lista_ocen TabOrder = 7 end object Edit10: TFlatEdit Left = 128 Top = 44 Width = 121 Height = 19 Hint = 'Tutaj wpisz oceny...' ColorFlat = 14872561 MaxLength = 20 PopupMenu = Lista_ocen TabOrder = 8 end object Edit11: TFlatEdit Left = 128 Top = 68 Width = 121 Height = 19 Hint = 'Tutaj wpisz oceny...' ColorFlat = 14872561 MaxLength = 20 PopupMenu = Lista_ocen TabOrder = 9 end object Edit12: TFlatEdit Left = 128 Top = 92 Width = 121 Height = 19 Hint = 'Tutaj wpisz oceny...' ColorFlat = 14872561 MaxLength = 20 PopupMenu = Lista_ocen TabOrder = 10 end object Edit13: TFlatEdit Left = 128 Top = 116 Width = 121 Height = 19 Hint = 'Tutaj wpisz oceny...' ColorFlat = 14872561 MaxLength = 20 PopupMenu = Lista_ocen TabOrder = 11 end object Edit14: TFlatEdit Left = 128 Top = 140 Width = 121 Height = 19 Hint = 'Tutaj wpisz oceny...' ColorFlat = 14872561 MaxLength = 20 PopupMenu = Lista_ocen TabOrder = 12 end object Edit15: TFlatEdit Left = 128 Top = 164 Width = 121 Height = 19 Hint = 'Tutaj wpisz oceny...' ColorFlat = 14872561 MaxLength = 20 PopupMenu = Lista_ocen TabOrder = 13 end object Edit16: TFlatEdit Left = 128 Top = 188 Width = 121 Height = 19 Hint = 'Tutaj wpisz oceny...' ColorFlat = 14872561 MaxLength = 20 PopupMenu = Lista_ocen TabOrder = 14 end object Edit1: TFlatEdit Left = 0 Top = 20 Width = 121 Height = 19 Hint = 'Tutaj wpisz przedmiot...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 15 end end object RichEdit1: TFlatMemo Left = 136 Top = 20 Width = 175 Height = 91 Hint = 'Tutaj mo'#380'esz wpisywa'#263' inne notatki. Notatka mo'#380'e zajmowa'#263' maksym' + 'alnie 255 znak'#243'w.' ColorFlat = 14872561 MaxLength = 255 ScrollBars = ssVertical TabOrder = 1 end object Combobox1: TFlatEdit Left = 8 Top = 20 Width = 121 Height = 19 Hint = 'Tu wpisz nazw'#281' przedmiotu, z jakiego masz sprawdzian...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 2 end object Combobox2: TFlatEdit Left = 8 Top = 68 Width = 121 Height = 19 Hint = 'Tu wpisz nazw'#281' przedmiotu, z jakiego masz kartk'#243'wk'#281'...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 3 end object Combobox3: TFlatEdit Left = 8 Top = 92 Width = 121 Height = 19 Hint = 'Tu wpisz nazw'#281' przedmiotu, z jakiego masz kartk'#243'wk'#281'...' ColorFlat = 14872561 MaxLength = 20 TabOrder = 4 end end object Timer1: TTimer Interval = 800 OnTimer = Timer1Timer Left = 72 Top = 344 end object PrintDialog1: TPrintDialog Left = 112 Top = 304 end object FlatHint1: TFlatHint ColorArrowBackground = clSkyBlue Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Left = 136 Top = 347 end object menu: TPopupMenu Left = 8 Top = 315 object Wytnij1: TMenuItem Caption = 'Wytnij' OnClick = Wytnij1Click end object Kopiuj1: TMenuItem Caption = 'Kopiuj' OnClick = Kopiuj1Click end object Wklej1: TMenuItem Caption = 'Wklej' OnClick = Wklej1Click end object N2: TMenuItem Caption = '-' end object Zaznacz1: TMenuItem Caption = 'Zaznacz wszystko' OnClick = Zaznacz1Click end end object Lista_ocen: TPopupMenu Left = 40 Top = 347 object N11: TMenuItem Caption = '1' OnClick = N11Click end object N21: TMenuItem Caption = '2' OnClick = N21Click end object N31: TMenuItem Caption = '3' OnClick = N31Click end object N41: TMenuItem Caption = '4' OnClick = N41Click end object N51: TMenuItem Caption = '5' OnClick = N51Click end object N61: TMenuItem Caption = '6' OnClick = N61Click end end object PopupMenu1: TPopupMenu Left = 8 Top = 283 object ylkooceny1: TMenuItem Caption = 'Tylko oceny' OnClick = ylkooceny1Click end object Sprawdzianyikartkwki1: TMenuItem Caption = 'Sprawdziany i kartk'#243'wki' OnClick = Sprawdzianyikartkwki1Click end object Inne1: TMenuItem Caption = 'Inne' OnClick = Inne1Click end object Wszystko1: TMenuItem Caption = 'Wszystko' OnClick = Wszystko1Click end end object PopupMenu2: TPopupMenu Left = 8 Top = 345 object Utwrzkopi1: TMenuItem Caption = 'Utw'#243'rz kopi'#281' zapasow'#261 OnClick = Utwrzkopi1Click end object Wczytajkopi1: TMenuItem Caption = 'Wczytaj kopi'#281' zapasow'#261 OnClick = Wczytajkopi1Click end end object MainMenu1: TMainMenu Left = 40 Top = 288 object Plik1: TMenuItem Caption = 'Plik' object Zamknij1: TMenuItem Caption = 'Koniec' ShortCut = 16472 OnClick = Zamknij1Click end end object Wpis1: TMenuItem Caption = 'Wpis' object drukuj1: TMenuItem Caption = 'Drukuj wpis' ShortCut = 16464 Visible = False OnClick = drukuj1Click end object Najbliszysprawdzian1: TMenuItem Caption = 'Najbli'#380'szy sprawdzian' OnClick = Najbliszysprawdzian1Click end object Wyczy1: TMenuItem Caption = 'Wyczy'#347#263' pola' object ylkooceny2: TMenuItem Caption = 'Tylko oceny' OnClick = ylkooceny2Click end object Sprawdzianyikartkwki2: TMenuItem Caption = 'Sprawdziany i kartk'#243'wki' OnClick = Sprawdzianyikartkwki2Click end object Inne3: TMenuItem Caption = 'Inne' OnClick = Inne3Click end object Wszystko2: TMenuItem Caption = 'Wszystko' OnClick = Wszystko2Click end end object aduj1: TMenuItem Caption = #321'aduj przedmioty' ShortCut = 16460 Visible = False OnClick = aduj1Click end object N1: TMenuItem Caption = '-' end object Utwrzkopizapasow1: TMenuItem Caption = 'Utw'#243'rz kopi'#281' zapasow'#261 OnClick = Utwrzkopizapasow1Click end object Wczytajkopizapasow1: TMenuItem Caption = 'Wczytaj kopi'#281' zapasow'#261 OnClick = Wczytajkopizapasow1Click end end object Inne2: TMenuItem Caption = 'Inne' object Ustawplanlekcji1: TMenuItem Caption = 'Ustaw plan lekcji' OnClick = Ustawplanlekcji1Click end end object Pomoc1: TMenuItem Caption = 'Pomoc' object Oprogramie1: TMenuItem Caption = 'O programie' ShortCut = 113 OnClick = Oprogramie1Click end object Pomoc2: TMenuItem Caption = 'Pomoc' ShortCut = 112 Visible = False OnClick = Pomoc2Click end object StronaWWW1: TMenuItem Caption = 'Strona WWW' OnClick = StronaWWW1Click end end end end