object frmTworzenieSkrytptow: TfrmTworzenieSkrytptow Left = 8 Top = 0 Width = 628 Height = 478 HelpContext = 10 Caption = 'Tworzenie skrypt�w' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter ShowHint = True OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object Label13: TLabel Left = 17 Top = 345 Width = 87 Height = 16 Caption = 'Tytu� orygina�u' end object Label18: TLabel Left = 101 Top = 219 Width = 71 Height = 16 Caption = 'Liczba stron' end object Strony: TTabbedNotebook Left = 0 Top = 0 Width = 620 Height = 422 HelpContext = 10 Align = alClient TabFont.Charset = DEFAULT_CHARSET TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 0 OnClick = StronyClick object TTabPage Left = 4 Top = 24 HelpContext = 13 Caption = 'Skrypt' object Splitter2: TSplitter Left = 404 Top = 0 Width = 11 Height = 394 Cursor = crHSplit Align = alRight end object Panel3: TPanel Left = 415 Top = 0 Width = 197 Height = 394 Align = alRight BevelOuter = bvNone Caption = 'Panel3' TabOrder = 0 object TabbedNotebook1: TTabbedNotebook Left = 0 Top = 0 Width = 197 Height = 394 HelpContext = 14 Align = alClient TabFont.Charset = DEFAULT_CHARSET TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 0 object TTabPage Left = 4 Top = 24 HelpContext = 16 Caption = 'Rozkazy' object Panel1: TPanel Left = 0 Top = 0 Width = 189 Height = 366 Align = alClient BevelOuter = bvNone BorderWidth = 5 Caption = 'Panel1' TabOrder = 0 object lstRozkazy: TListBox Left = 5 Top = 5 Width = 179 Height = 356 Align = alClient ItemHeight = 13 Style = lbOwnerDrawFixed TabOrder = 0 OnDblClick = lstRozkazyDblClick OnDrawItem = lstRozkazyDrawItem end end end object TTabPage Left = 4 Top = 24 HelpContext = 15 Caption = 'Pola' object Panel2: TPanel Left = 0 Top = 0 Width = 189 Height = 366 Align = alClient BevelOuter = bvNone BorderWidth = 5 Caption = 'Panel1' TabOrder = 0 object lstPola: TListBox Left = 5 Top = 5 Width = 179 Height = 356 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 ParentFont = False TabOrder = 0 OnDblClick = lstRozkazyDblClick end end end end end object Panel4: TPanel Left = 0 Top = 0 Width = 404 Height = 394 Align = alClient BevelOuter = bvNone Caption = 'Panel4' TabOrder = 1 object Panel5: TPanel Left = 0 Top = 0 Width = 404 Height = 53 Align = alTop BevelOuter = bvNone TabOrder = 0 object Label8: TLabel Left = 7 Top = 0 Width = 78 Height = 16 Caption = 'Tytu� skryptu:' end object cmdPomoc: TSpeedButton Left = 366 Top = 17 Width = 31 Height = 28 Glyph.Data = { E6000000424DE60000000000000076000000280000000A0000000E0000000100 0400000000007000000084120000841200001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777700077700 00007770BB00770000007770BB007700000077770077770000007770B0077700 00007770B007770000007770B007770000007770BB007700000070070BB00700 00000B0070BB000000000B00770B000000000BB000BB0000000070BBBBB00700 00007700000077000000} OnClick = cmdPomocClick end object tbTytulSkryptu: TEdit Left = 7 Top = 17 Width = 182 Height = 32 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -18 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object cmdNowy: TBitBtn Left = 199 Top = 17 Width = 31 Height = 28 Hint = 'Nowy skrypt' TabOrder = 1 OnClick = cmdNowyClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 end object cmdOtworz: TBitBtn Left = 231 Top = 17 Width = 31 Height = 28 Hint = 'Otw�rz skrypt' TabOrder = 2 OnClick = cmdOtworzClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777000000000007777700333333333077770B033333333307770FB033333333 30770BFB0333333333070FBFB000000000000BFBFBFBFB0777770FBFBFBFBF07 77770BFB00000007777770007777777700077777777777777007777777770777 0707777777777000777777777777777777777777777777777777} end object cmdZapisz: TBitBtn Left = 265 Top = 17 Width = 30 Height = 28 Hint = 'Zapisz skrypt' Enabled = False TabOrder = 3 OnClick = cmdZapiszClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999999999999 9999990000000000000990330000007703099033000000770309903300000077 03099033000000000309903333333333330990330000000033099030FFFFFFFF 03099030FFFFFFFF03099030FFFFFFFF03099030FFFFFFFF03099030FFFFFFFF 00099030FFFFFFFF070990000000000000099999999999999999} end object cmdUtworzFiszke: TBitBtn Left = 331 Top = 17 Width = 31 Height = 28 Hint = 'Podgl�d fiszki' TabOrder = 4 OnClick = cmdUtworzFiszkeClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA AAAA000000000000AA000FFFFFFFFFF0A0000FFFFFFF0000700A0FFFFFF07887 07AA0FFFFF0788E770AA0FFFFF088887A0AA0FFFFF08E887A0AA0FFFFF07EE87 70AA0FFFFFF078870AAA0FFFFFFF0000AAAA0FFFFFFFFFF0AAAA0FFFFFFF0000 AAAA0FFFFFFF080AAAAA0FFFFFFF00AAAAAA000000000AAAAAAA} Layout = blGlyphTop end object Zamknij: TBitBtn Left = 430 Top = 17 Width = 71 Height = 28 Caption = 'Zamknij' TabOrder = 5 OnClick = ZamknijClick end object cmdDrukuj: TBitBtn Left = 297 Top = 17 Width = 30 Height = 28 Hint = 'Drukuj skrypt' TabOrder = 6 OnClick = cmdDrukujClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333300000000000333308888888880803300000000000008030888888BBB88 0003088888877788080300000000000008800888888888808080300000000008 0800330FFFFFFFF080803330F00000F000033330FFFFFFFF033333330F00000F 033333330FFFFFFFF03333333000000000333333333333333333} end end object Panel6: TPanel Left = 0 Top = 53 Width = 404 Height = 341 Align = alClient BevelOuter = bvNone BorderWidth = 5 Caption = 'Panel6' TabOrder = 1 object rtSkrypt: TRichEdit Left = 5 Top = 5 Width = 394 Height = 331 Align = alClient Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -18 Font.Name = 'Courier New' Font.Style = [fsBold] ParentFont = False PlainText = True ScrollBars = ssVertical TabOrder = 0 WordWrap = False OnChange = rtSkryptChange OnKeyDown = rtSkryptKeyDown OnSelectionChange = rtSkryptSelectionChange end end end end object TTabPage Left = 4 Top = 24 HelpContext = 12 Caption = 'Dane' object Label1: TLabel Left = 7 Top = 2 Width = 29 Height = 16 Caption = 'Tytu�' end object Label2: TLabel Left = 15 Top = 47 Width = 31 Height = 16 Caption = 'Autor' end object Label5: TLabel Left = 12 Top = 91 Width = 101 Height = 16 Caption = 'Klucz tematyczny' end object Label4: TLabel Left = 271 Top = 140 Width = 31 Height = 16 Caption = 'ISBN' end object lab777: TLabel Left = 118 Top = 140 Width = 122 Height = 16 Caption = 'Numer inwentarzowy' end object Label3: TLabel Left = 12 Top = 140 Width = 61 Height = 16 Caption = 'Sygnatura' end object lab8987: TLabel Left = 438 Top = 288 Width = 105 Height = 16 Caption = 'Autor t�umaczenia' end object Label9: TLabel Left = 12 Top = 288 Width = 87 Height = 16 Caption = 'Tytu� orygina�u' end object Label7: TLabel Left = 209 Top = 190 Width = 56 Height = 16 Caption = 'Wielko��' end object Label6: TLabel Left = 12 Top = 239 Width = 55 Height = 16 Caption = 'Rok wyd.' end object Label10: TLabel Left = 84 Top = 239 Width = 103 Height = 16 Caption = 'Miejsce wydania:' end object Label11: TLabel Left = 342 Top = 239 Width = 82 Height = 16 Caption = 'Wydawnictwo' end object Label12: TLabel Left = 15 Top = 190 Width = 71 Height = 16 Caption = 'Liczba stron' end object Label14: TLabel Left = 12 Top = 335 Width = 105 Height = 16 Caption = 'Pole dodatkowe1' end object Label15: TLabel Left = 283 Top = 190 Width = 28 Height = 16 Caption = 'Tom' end object Label16: TLabel Left = 308 Top = 91 Width = 69 Height = 16 Caption = 'Nazwa serii' end object Label17: TLabel Left = 436 Top = 140 Width = 31 Height = 16 Caption = 'ISSN' end object Label19: TLabel Left = 94 Top = 190 Width = 87 Height = 16 Caption = 'Strony nienum.' end object tbTytul: TEdit Left = 12 Top = 20 Width = 583 Height = 24 TabOrder = 0 Text = 'Psychoterapia i religia: zagadnienia psychologii g��bi i psychol' + 'ogii analitycznej z listem Karola Gustawa Junga do Autora' end object tbAutor: TEdit Left = 12 Top = 64 Width = 583 Height = 24 TabOrder = 1 Text = 'Rudin Josef' end object tbSygnatura: TEdit Left = 12 Top = 158 Width = 98 Height = 24 TabOrder = 2 Text = '11878' end object tbNumerInwentarzowy: TEdit Left = 118 Top = 158 Width = 144 Height = 24 TabOrder = 3 Text = '989889' end object tbISBN: TEdit Left = 271 Top = 158 Width = 156 Height = 24 TabOrder = 4 Text = '83-85713-00-X' end object tbKluczTematyczny: TEdit Left = 12 Top = 108 Width = 287 Height = 24 TabOrder = 5 Text = 'tbKluczTematyczny' end object chbTlumaczenie: TCheckBox Left = 463 Top = 190 Width = 107 Height = 21 Caption = 'T�umaczenie' TabOrder = 6 end object chbPracaZbiorowa: TCheckBox Left = 463 Top = 209 Width = 119 Height = 21 Caption = 'Praca zbiorowa' TabOrder = 7 end object tbAutorTlumaczenia: TEdit Left = 438 Top = 305 Width = 159 Height = 24 TabOrder = 8 Text = 'Jasi�ska Jadwiga' end object tbTytulOryginalu: TEdit Left = 12 Top = 305 Width = 415 Height = 24 TabOrder = 9 Text = 'Psychotherapie und Religion' end object tbRokWydania: TEdit Left = 12 Top = 256 Width = 63 Height = 24 TabOrder = 10 Text = '1992' end object tbWielkosc: TEdit Left = 209 Top = 207 Width = 61 Height = 24 TabOrder = 11 Text = '22' end object tbMiejsceWydania: TEdit Left = 84 Top = 256 Width = 247 Height = 24 TabOrder = 12 Text = 'Warszawa' end object tbWydawnictwo: TEdit Left = 342 Top = 256 Width = 257 Height = 24 TabOrder = 13 Text = 'SOLARIUM' end object tbLiczbaStron: TEdit Left = 12 Top = 207 Width = 78 Height = 24 TabOrder = 14 Text = '223' end object tbPoleDodatkowe1: TEdit Left = 12 Top = 352 Width = 585 Height = 24 TabOrder = 15 Text = 'tbPoleDodatkowe1' end object tbTom: TEdit Left = 281 Top = 207 Width = 35 Height = 24 TabOrder = 16 Text = '1' end object tbNazwaSerii: TEdit Left = 308 Top = 108 Width = 286 Height = 24 TabOrder = 17 Text = 'Poczytaj mi mamo' end object tbISSN: TEdit Left = 436 Top = 158 Width = 156 Height = 24 TabOrder = 18 Text = '83-85713-00-X' end object tbStronyNienumerowane: TEdit Left = 96 Top = 207 Width = 90 Height = 24 TabOrder = 19 Text = '2' end end object TTabPage Left = 4 Top = 24 HelpContext = 11 Caption = 'Fiszka' object rtFiszka: TRichEdit Left = 33 Top = 19 Width = 530 Height = 324 Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -18 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'rtFiszka') ParentFont = False TabOrder = 0 end object panLogo: TPanel Left = 370 Top = 22 Width = 191 Height = 156 BevelOuter = bvNone Color = clWindow TabOrder = 1 Visible = False object imgLogo: TImage Left = 0 Top = 0 Width = 191 Height = 156 Align = alClient Picture.Data = {} Stretch = True end end end end object StatusBar: TStatusBar Left = 0 Top = 422 Width = 620 Height = 25 Panels = < item Width = 50 end item Width = 100 end item Width = 50 end> SimplePanel = False end object mnuDlaSkryptu: TPopupMenu Left = 368 Top = 214 object mnuWstawRozkaz: TMenuItem Caption = 'wstaw rozkaz' object mnuWstawianie: TMenuItem Caption = 'wstawianie' object wwstaw1: TMenuItem Caption = 'w (wstaw)' Hint = 'w' OnClick = MenuDlaSkryputClick end object wpwstawpodkrelajc1: TMenuItem Caption = 'wp (wstaw podkre�laj�c)' Hint = 'wp' OnClick = MenuDlaSkryputClick end object wppwwstawpodkrelajcpierwszywyraz1: TMenuItem Caption = 'wppw (wstaw podkre�laj�c pierwszy wyraz)' Hint = 'wppw' OnClick = MenuDlaSkryputClick end object wpplwstawpodkrelajcpierwszliter1: TMenuItem Caption = 'wppl (wstaw podkre�laj�c pierwsz� liter�)' Hint = 'wppl' OnClick = MenuDlaSkryputClick end object wwwstawwyraz1: TMenuItem Caption = 'ww (wstaw wyraz)' Hint = 'ww' OnClick = MenuDlaSkryputClick end object wwpplwstawwyrazpodkrelajcpierwszliter1: TMenuItem Caption = 'wwppl (wstaw wyraz podkre�laj�c pierwsz� liter�)' Hint = 'wwppl' OnClick = MenuDlaSkryputClick end object nlnowalinia1: TMenuItem Caption = 'nl (nowa linia)' Hint = 'nl' OnClick = MenuDlaSkryputClick end object TMenuItem end end object formatowanie1: TMenuItem Caption = 'formatowanie' object fccentrujakapit1: TMenuItem Caption = 'fc (centruj akapit)' Hint = 'fc' OnClick = MenuDlaSkryputClick end object flwyrwnajdolewej1: TMenuItem Caption = 'fl (wyr�wnaj do lewej)' Hint = 'fl' OnClick = MenuDlaSkryputClick end object fpwyrwnajdoprawej1: TMenuItem Caption = 'fp (wyr�wnaj do prawej)' Hint = 'fp' OnClick = MenuDlaSkryputClick end object fbwczpogrubianie1: TMenuItem Caption = 'fb (w��cz pogrubianie)' Hint = 'fb' OnClick = MenuDlaSkryputClick end object fnbwyczpogrubianie1: TMenuItem Caption = 'fnb (wy��cz pogrubianie)' Hint = 'fnb' OnClick = MenuDlaSkryputClick end object fuwczpodkrelanie1: TMenuItem Caption = 'fu (w��cz podkre�lanie)' Hint = 'fu' OnClick = MenuDlaSkryputClick end object fnuwyczpodkrelanie1: TMenuItem Caption = 'fnu (wy��cz podkre�lanie)' Hint = 'fnu' OnClick = MenuDlaSkryputClick end object faodakapitu1: TMenuItem Caption = 'fa (od akapitu)' Hint = 'fa' OnClick = MenuDlaSkryputClick end object frrozmiarznakw1: TMenuItem Caption = 'fr (rozmiar znak�w)' Hint = 'fr' OnClick = MenuDlaSkryputClick end end object mnuWarunkowe: TMenuItem Caption = 'instrukcje warunkowe' object mnuRJPN: TMenuItem Caption = 'jpn (je�li pole niepuste)' Hint = 'jpn' OnClick = MenuDlaSkryputClick end object mnuRJPP: TMenuItem Caption = 'jpp (je�li pole puste)' Hint = 'jpp' OnClick = MenuDlaSkryputClick end object mnuRJWPN: TMenuItem Caption = 'jwpn (je�li wyraz pola niepusty)' Hint = 'jwpn' OnClick = MenuDlaSkryputClick end object mnuRJWPP: TMenuItem Caption = 'jwpp (je�li wyraz pola pusty)' Hint = 'jwpp' OnClick = MenuDlaSkryputClick end object przeciwnie1: TMenuItem Caption = 'przeciwnie (w przeciwnym wypadku)' Hint = 'przeciwnie' OnClick = MenuDlaSkryputClick end object mnuRKJ: TMenuItem Caption = 'kj (koniec instrukcji warunkowej)' Hint = 'kj' OnClick = MenuDlaSkryputClick end end end object mnuWstawPole: TMenuItem Caption = 'wstaw pole' object Polapodstawowe1: TMenuItem Caption = 'Pola podstawowe' end object mnuPTytul: TMenuItem Caption = 'tytu�' Hint = '%tytu�' OnClick = MenuDlaSkryputClick end object mnuPAutor: TMenuItem Caption = 'autor' Hint = '%autor' OnClick = MenuDlaSkryputClick end object mnuPSygnatura: TMenuItem Caption = 'sygnatura' Hint = '%sygnatura' OnClick = MenuDlaSkryputClick end object mnuPRokWydania: TMenuItem Caption = 'rok wydania' Hint = '%rok_wydania' OnClick = MenuDlaSkryputClick end object mnuPMiejsceWydania: TMenuItem Caption = 'miejsce wydania' Hint = '%miejsce_wydania' OnClick = MenuDlaSkryputClick end object mnuPWydawnictwo: TMenuItem Caption = 'wydawnictwo' Hint = '%wydawnictwo' OnClick = MenuDlaSkryputClick end object mnuPNumerInwentarzowy: TMenuItem Caption = 'numer inwentarzowy' Hint = '%nr_inwentarzowy' OnClick = MenuDlaSkryputClick end object mnuPKluczTematyczny: TMenuItem Caption = 'klucz tematyczny' Hint = '%klucz_tematyczny' OnClick = MenuDlaSkryputClick end object mnuPLiczbaStron: TMenuItem Caption = 'liczba stron' Hint = '%liczba_stron' OnClick = MenuDlaSkryputClick end object mnuStronyNienumerowane: TMenuItem Caption = 'strony nienumerowane' Hint = '%StronyNienumerowane' OnClick = MenuDlaSkryputClick end object mnuPWielkosc: TMenuItem Caption = 'wielko��' Hint = '%wielko��' OnClick = MenuDlaSkryputClick end object mnuPTom: TMenuItem Caption = 'tom' Hint = '%tom' OnClick = MenuDlaSkryputClick end object mnuTytulOryginalu: TMenuItem Caption = 'tytu� orygina�u' Hint = '%tytu�_orygina�u' OnClick = MenuDlaSkryputClick end object mnuPISBN: TMenuItem Caption = 'numer ISBN' Hint = '%isbn' OnClick = MenuDlaSkryputClick end object mnuPAutorTlumaczenia: TMenuItem Caption = 'autor t�umaczenia' Hint = '%autor_t�umaczenia' OnClick = MenuDlaSkryputClick end object mnuPTlumaczenie: TMenuItem Caption = 't�umaczenie' Hint = '%t�umaczenie' OnClick = MenuDlaSkryputClick end object mnuPracaZbiorowa: TMenuItem Caption = 'praca zbiorowa' Hint = '%praca_zbiorowa' OnClick = MenuDlaSkryputClick end object mnuNazwaSerii: TMenuItem Caption = 'nazwa serii' Hint = '%nazwa_serii' OnClick = MenuDlaSkryputClick end object mnuISSN: TMenuItem Caption = 'numer ISSN' Hint = '%issn' OnClick = MenuDlaSkryputClick end object mnuPoleDodatkowe1: TMenuItem Caption = 'pole dodatkowe 1' Hint = '%pole_dodatkowe1' OnClick = MenuDlaSkryputClick end end end end