home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1999 mARCH
/
PCWK3A99.iso
/
Polskie
/
Malabibl
/
_SETUP.1
/
biblio.exe
/
0
/
RCDATA
/
TFRMREJESTRACJA
/
TFRMREJESTRACJA.txt
Wrap
Text File
|
1998-07-13
|
17KB
|
605 lines
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