object frmRejestracja: TfrmRejestracja Left = 239 Top = 223 BorderStyle = bsDialog Caption = 'Zam�wienie programu' ClientHeight = 339 ClientWidth = 497 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object Notebook: TNotebook Left = 0 Top = 0 Width = 497 Height = 339 Align = alClient PageIndex = 2 TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'Objasnienie' object Label9: TLabel Left = 12 Top = 10 Width = 164 Height = 16 Caption = 'Szanowny u�ytkowniku. ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label11: TLabel Left = 10 Top = 28 Width = 446 Height = 32 Caption = 'Je�li zamierzasz zam�wi� komercyjn� wersj� programu to masz mo�l' + 'iwo�� wyboru sposobu w jaki to uczynisz.' WordWrap = True end object Label12: TLabel Left = 88 Top = 72 Width = 346 Height = 32 Caption = 'Skontaktowa� si� z nami telefonicznie pod numerem: 0602 779 884 ' + 'od poniedzia�ku do pi�tku w godzinach od 8 do 17' WordWrap = True end object Label13: TLabel Left = 88 Top = 110 Width = 224 Height = 16 Caption = 'Wys�a� zam�wienie poczt� na adres: ' end object Label14: TLabel Left = 88 Top = 126 Width = 329 Height = 16 Caption = 'Je�yk Software, Skrytka Pocztowa nr 8, 33-100 Tarn�w 8' end object Label15: TLabel Left = 88 Top = 154 Width = 334 Height = 64 Caption = 'Wys�a� zam�wienie poczt� elektroniczn� (email). W tym ostatnim p' + 'rzypadku mo�esz wys�a� list samodzielnie na adres jezyk@green.ta' + 'rman.pl lub skorzysta� z pomocy niniejszego kreatora (przycisk D' + 'alej). ' WordWrap = True end object Label16: TLabel Left = 70 Top = 242 Width = 353 Height = 32 Alignment = taCenter Caption = 'Dzi�kujemy za wyb�r naszego programu i �yczymy satysfakcji z jeg' + 'o u�ytkowania.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label17: TLabel Left = 46 Top = 70 Width = 24 Height = 36 Caption = '1.' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False end object Label18: TLabel Left = 46 Top = 106 Width = 24 Height = 36 Caption = '2.' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False end object Label19: TLabel Left = 46 Top = 152 Width = 24 Height = 36 Caption = '3.' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False end object Bevel2: TBevel Left = 12 Top = 276 Width = 475 Height = 21 Shape = bsBottomLine end object BitBtn2: TBitBtn Left = 298 Top = 304 Width = 90 Height = 28 Caption = 'Anuluj' TabOrder = 0 Kind = bkAbort end object BitBtn3: TBitBtn Left = 8 Top = 304 Width = 90 Height = 28 Caption = 'Pomoc' TabOrder = 1 OnClick = cmdHelp2Click Kind = bkHelp end object BitBtn4: TBitBtn Left = 396 Top = 304 Width = 90 Height = 28 Caption = 'Dalej' Default = True TabOrder = 2 OnClick = BitBtn4Click Glyph.Data = { 06010000424D060100000000000076000000280000000C000000120000000100 0400000000009000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 0000844888888888000084648888888800008466488888880000846664888888 0000846666488888000084666664888800008466666648880000846666666488 0000846666666E88000084666666E88800008466666E88880000846666E88888 000084666E88888800008466E88888880000846E88888888000088E888888888 00008888888888880000} Layout = blGlyphRight end end object TPage Left = 0 Top = 0 Caption = 'Formularz' object Label1: TLabel Left = 270 Top = 236 Width = 75 Height = 16 Caption = 'Liczba sztuk:' end object Label2: TLabel Left = 358 Top = 236 Width = 127 Height = 16 Caption = 'Warto�� zam�wienia:' end object Bevel1: TBevel Left = 10 Top = 280 Width = 477 Height = 18 Shape = bsBottomLine end object Label8: TLabel Left = 16 Top = 240 Width = 105 Height = 16 Caption = 'Nazwa programu:' end object GroupBox1: TGroupBox Left = 18 Top = 8 Width = 467 Height = 125 Caption = 'Dane personalne klienta: ' TabOrder = 0 object Label3: TLabel Left = 20 Top = 24 Width = 61 Height = 16 Caption = 'Nazwisko:' end object Label4: TLabel Left = 18 Top = 48 Width = 75 Height = 48 Caption = 'Adres wraz z kodem pocztowym: ' WordWrap = True end object tbNazwisko: TEdit Left = 100 Top = 24 Width = 353 Height = 24 TabOrder = 0 end object memAdres: TMemo Left = 100 Top = 50 Width = 353 Height = 59 TabOrder = 1 end end object spnLiczbaSztuk: TSpinEdit Left = 276 Top = 254 Width = 65 Height = 26 TabStop = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] MaxValue = 20 MinValue = 1 ParentFont = False TabOrder = 3 Value = 2 OnChange = spnLiczbaSztukChange end object panWartoscZamowienia: TPanel Left = 360 Top = 254 Width = 123 Height = 27 BevelOuter = bvLowered Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object GroupBox2: TGroupBox Left = 18 Top = 136 Width = 237 Height = 97 Caption = ' ' TabOrder = 5 object chbRachunek: TCheckBox Left = 14 Top = 0 Width = 161 Height = 17 TabStop = False Caption = 'Wystawi� rachunek na: ' TabOrder = 0 OnClick = chbRachunekClick end object memRachunkobiorca: TMemo Left = 12 Top = 20 Width = 211 Height = 65 TabStop = False Lines.Strings = ( '') TabOrder = 1 end end object cmdDalej: TBitBtn Left = 396 Top = 304 Width = 90 Height = 28 Caption = 'Dalej' Default = True TabOrder = 2 OnClick = cmdDalejClick Glyph.Data = { 06010000424D060100000000000076000000280000000C000000120000000100 0400000000009000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 0000844888888888000084648888888800008466488888880000846664888888 0000846666488888000084666664888800008466666648880000846666666488 0000846666666E88000084666666E88800008466666E88880000846666E88888 000084666E88888800008466E88888880000846E88888888000088E888888888 00008888888888880000} Layout = blGlyphRight end object GroupBox3: TGroupBox Left = 268 Top = 136 Width = 215 Height = 97 Caption = ' Informacje dla korespondencji: ' TabOrder = 1 object Label6: TLabel Left = 18 Top = 26 Width = 17 Height = 16 Caption = 'tel:' end object Label7: TLabel Left = 8 Top = 60 Width = 36 Height = 16 Caption = 'email:' end object tbTelefon: TEdit Left = 48 Top = 22 Width = 155 Height = 24 TabOrder = 0 end object tbEmail: TEdit Left = 48 Top = 58 Width = 155 Height = 24 TabOrder = 1 end end object cmdHelp2: TBitBtn Left = 8 Top = 304 Width = 90 Height = 28 Caption = 'Pomoc' TabOrder = 6 OnClick = cmdHelp2Click Kind = bkHelp end object cmbNazwaProgramu: TComboBox Left = 16 Top = 256 Width = 249 Height = 24 Style = csDropDownList ItemHeight = 16 TabOrder = 7 OnChange = cmbNazwaProgramuChange end object BitBtn1: TBitBtn Left = 302 Top = 304 Width = 90 Height = 28 Caption = 'Cofnij' TabOrder = 8 OnClick = BitBtn1Click Glyph.Data = { 06010000424D060100000000000076000000280000000B000000120000000100 0400000000009000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888885 555F888888884485555F888888846485555F888888466485555F888884666485 555F888846666485555F888466666485555F884666666485555F846666666485 555F8E6666666485555F88E666666484444C888E6666648000088888E6666480 000088888E6664800000888888E6648000008888888E6480000088888888E681 00108888888888800000} end end object TPage Left = 0 Top = 0 Caption = 'Tekst' object Label5: TLabel Left = 8 Top = 8 Width = 111 Height = 16 Caption = 'Tekst zam�wienia:' end object Label50: TLabel Left = 10 Top = 284 Width = 40 Height = 16 Caption = 'Status:' end object labStatus: TLabel Left = 52 Top = 284 Width = 429 Height = 16 AutoSize = False end object memTekstZamowienia: TMemo Left = 10 Top = 24 Width = 475 Height = 257 ScrollBars = ssVertical TabOrder = 0 end object cmdCofnij: TBitBtn Left = 394 Top = 304 Width = 90 Height = 28 Caption = 'Cofnij' TabOrder = 1 OnClick = cmdCofnijClick Glyph.Data = { 06010000424D060100000000000076000000280000000B000000120000000100 0400000000009000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888885 555F888888884485555F888888846485555F888888466485555F888884666485 555F888846666485555F888466666485555F884666666485555F846666666485 555F8E6666666485555F88E666666484444C888E6666648000088888E6666480 000088888E6664800000888888E6648000008888888E6480000088888888E681 00108888888888800000} end object cmdPomoc: TBitBtn Left = 8 Top = 304 Width = 90 Height = 29 Caption = 'Pomoc' TabOrder = 2 OnClick = cmdHelp2Click Kind = bkHelp end object cmdWydrukuj: TBitBtn Left = 107 Top = 304 Width = 90 Height = 28 Caption = 'Wydrukuj' TabOrder = 3 OnClick = cmdWydrukujClick Glyph.Data = { E6000000424DE6000000000000007600000028000000100000000E0000000100 04000000000070000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BBBBBB000BBB BBBBBBBB0078800BBBBBBB00777888800BBB807777788888800B8F7777F88888 88808F77FF77788888808FFF7799777888808F77AA7778807880B88F777887F0 788BBBB88F87FFFF0BBBBBBBB88FFFFFF0BBBBBBBBB8FFFFFF00BBBBBBBB8FFF 88BBBBBBBBBBB888BBBB} end object cmdPolacz: TBitBtn Left = 201 Top = 304 Width = 90 Height = 28 Caption = 'Po��cz' TabOrder = 4 OnClick = cmdPolaczClick end object cmdWyslij: TBitBtn Left = 296 Top = 304 Width = 90 Height = 28 Caption = 'Wy�lij' Default = True TabOrder = 5 OnClick = cmdWyslijClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000 000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF 9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000 0000777777777777777733333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end end object TPage Left = 0 Top = 0 Caption = 'Wysylanie' object Label20: TLabel Left = 12 Top = 12 Width = 189 Height = 16 Caption = 'Informacja o przesy�aniu poczty:' end object memInfo: TMemo Left = 12 Top = 32 Width = 473 Height = 139 TabOrder = 0 end object BitBtn5: TBitBtn Left = 400 Top = 306 Width = 90 Height = 28 Caption = 'Cofnij' TabOrder = 1 OnClick = BitBtn5Click Glyph.Data = { 06010000424D060100000000000076000000280000000B000000120000000100 0400000000009000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888885 555F888888884485555F888888846485555F888888466485555F888884666485 555F888846666485555F888466666485555F884666666485555F846666666485 555F8E6666666485555F88E666666484444C888E6666648000088888E6666480 000088888E6664800000888888E6648000008888888E6480000088888888E681 00108888888888800000} end object BitBtn6: TBitBtn Left = 8 Top = 304 Width = 90 Height = 29 Caption = 'Pomoc' TabOrder = 2 OnClick = cmdHelp2Click Kind = bkHelp end object Wait1: TWait Left = 366 Top = 4 Width = 119 Height = 27 Caption = '60' ModalResult = 0 Interval = 1000 IsControl = True end end end object SmtpClient: TSmtpClient Tag = 0 Port = 'smtp' Wait = Wait1 CharSet = 'iso-8859-1' TimeOut = 15 OnDisplay = SmtpClientDisplay OnGetData = SmtpClientGetData Left = 188 Top = 90 end end