home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 October
/
PCWorld_1999-10_cd2.bin
/
Supreme
/
_SETUP.1
/
Contact.exe
/
0
/
RCDATA
/
TFORMOBJEDNAVKA
/
TFORMOBJEDNAVKA.txt
Wrap
Text File
|
1999-09-06
|
23KB
|
840 lines
object FormObjednavka: TFormObjednavka
Left = 317
Top = 231
BorderStyle = bsDialog
Caption = 'Objedn�vka licence'
ClientHeight = 259
ClientWidth = 347
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object BtnFinish: TBitBtn
Left = 168
Top = 228
Width = 80
Height = 25
Caption = 'Dokon�it'
Default = True
TabOrder = 3
Visible = False
OnClick = BtnFinishClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
EEEEEEEEE00000EEEEEEEEE006666600EEEEEE06666666660EEEE06666666666
60EEE0666666666660EE066666666666660E066666666666660E066666666666
660E066666666666660EE0666666666660EEE0666666666660EEEE0666666666
0EEEEEE006666600EEEEEEEEE00000EEEEEEEEEEEEEEEEEEEEEE}
end
object BtnPrev: TBitBtn
Left = 84
Top = 228
Width = 80
Height = 25
Caption = 'Zp�t'
Enabled = False
TabOrder = 1
OnClick = BtnPrevClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEE0
EEEEEEEEEEEEEE00EEEEEEEEEEEEE060EEEEEEEEEEEE0660EEEEEEEEEEE06660
EEEEEEEEEE066660EEEEEEEEE0666660EEEEEEEE06666660EEEEEEEE06666660
EEEEEEEEE0666660EEEEEEEEEE066660EEEEEEEEEEE06660EEEEEEEEEEEE0660
EEEEEEEEEEEEE060EEEEEEEEEEEEEE00EEEEEEEEEEEEEEE0EEEE}
end
object BtnNext: TBitBtn
Left = 168
Top = 228
Width = 80
Height = 25
Caption = 'D�le'
Default = True
TabOrder = 2
OnClick = BtnNextClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEE0EEEEEEE
EEEEEEEE00EEEEEEEEEEEEEE060EEEEEEEEEEEEE0660EEEEEEEEEEEE06660EEE
EEEEEEEE066660EEEEEEEEEE0666660EEEEEEEEE06666660EEEEEEEE06666660
EEEEEEEE0666660EEEEEEEEE066660EEEEEEEEEE06660EEEEEEEEEEE0660EEEE
EEEEEEEE060EEEEEEEEEEEEE00EEEEEEEEEEEEEE0EEEEEEEEEEE}
end
object BtnCancel: TBitBtn
Left = 260
Top = 228
Width = 80
Height = 25
Cancel = True
Caption = 'Storno'
ModalResult = 2
TabOrder = 4
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888877008888888888778777088888887788877708888888788887770
8888888788887777088888788888777708888878888877770888887888787077
08888878788FF777088888788F88078F7088878F7FFF8807F0888777FFFF80F7
8888887F7FF70788888888887777888888888888888888888888}
end
object PageControl: TPageControlPlus
Left = 4
Top = 4
Width = 337
Height = 217
ActivePage = TabSheet1
TabOrder = 0
BrowserSync = False
object TabSheet1: TTabSheet
Tag = 1
Caption = 'TabSheet1'
TabVisible = False
object Bevel1: TBevel
Left = 8
Top = 8
Width = 313
Height = 189
Shape = bsFrame
end
object Panel1: TPanel
Left = 20
Top = 20
Width = 289
Height = 165
BevelOuter = bvLowered
Color = clInfoBk
TabOrder = 0
object Label1: TLabel
Left = 4
Top = 4
Width = 281
Height = 157
AutoSize = False
Caption =
'V�en� u�ivateli !'#13#10#13#10'V�tejte v pr�vodci, kter� V�m umo�n� jedno' +
'du�e sestavit '#13#10'objedn�vku licence na produkt Supreme Contact. T' +
'uto'#13#10'mo�nost pou�ijte jen v p��pad�, kdy nem�te p��stup na'#13#10'inte' +
'rnet. V opa�n�m p��pad� rad�ji vyu�ijte on-line'#13#10'registraci v me' +
'nu N�pov�da.'#13#10#13#10'V p��pad� nejasnost� nev�hejte kontaktovat spol' +
'e�nost'#13#10'Supreme Technologies s.r.o. dle kontakt� uveden�ch v'#13#10'r�' +
'me�ku "O programu".'
end
end
end
object TabSheet2: TTabSheet
Tag = 2
Caption = 'TabSheet2'
TabVisible = False
object LabelPlus1: TLabelPlus
Left = 28
Top = 96
Width = 37
Height = 13
AttachType = atLeft
Caption = 'N�zev'
FocusControl = EditNazev
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus2: TLabelPlus
Left = 43
Top = 128
Width = 22
Height = 13
AttachType = atLeft
Caption = 'I�O'
FocusControl = EditICO
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus3: TLabelPlus
Left = 43
Top = 160
Width = 22
Height = 13
AttachType = atLeft
Caption = 'DI�'
FocusControl = EditDIC
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel2: TBevel
Left = 8
Top = 8
Width = 313
Height = 189
Shape = bsFrame
end
object EditNazev: TEdit
Left = 72
Top = 92
Width = 221
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object EditICO: TEdit
Left = 72
Top = 124
Width = 121
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object EditDIC: TEdit
Left = 72
Top = 156
Width = 121
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object Panel2: TPanel
Left = 20
Top = 20
Width = 289
Height = 49
BevelOuter = bvLowered
Color = clInfoBk
TabOrder = 3
object Label2: TLabel
Left = 4
Top = 4
Width = 281
Height = 41
AutoSize = False
Caption = 'Uve�te, pros�m, z�kladn� informace o Va�� firm�.'
end
end
end
object TabSheet3: TTabSheet
Tag = 3
Caption = 'TabSheet3'
TabVisible = False
object LabelPlus4: TLabelPlus
Left = 35
Top = 96
Width = 30
Height = 13
AttachType = atLeft
Caption = 'Ulice'
FocusControl = EditUlice
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus5: TLabelPlus
Left = 30
Top = 128
Width = 35
Height = 13
AttachType = atLeft
Caption = 'M�sto'
FocusControl = EditMesto
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus6: TLabelPlus
Left = 208
Top = 128
Width = 25
Height = 13
AttachType = atLeft
Caption = 'PS�'
FocusControl = EditPSC
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus7: TLabelPlus
Left = 42
Top = 160
Width = 23
Height = 13
AttachType = atLeft
Caption = 'Kraj'
FocusControl = EditKraj
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel3: TBevel
Left = 8
Top = 8
Width = 313
Height = 189
Shape = bsFrame
end
object EditUlice: TEdit
Left = 72
Top = 92
Width = 121
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object EditMesto: TEdit
Left = 72
Top = 124
Width = 121
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object EditPSC: TEdit
Left = 240
Top = 124
Width = 61
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object EditKraj: TComboBox
Left = 72
Top = 156
Width = 121
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'Severo�esk�'
'Jiho�esk�'
'Z�pado�esk�'
'V�chodo�esk�'
'St�edo�esk�'
'Praha'
'Severomoravsk�'
'St�edomoravsk�'
'Jihomoravsk�')
ParentFont = False
TabOrder = 3
end
object Panel3: TPanel
Left = 20
Top = 20
Width = 289
Height = 49
BevelOuter = bvLowered
Color = clInfoBk
TabOrder = 4
object Label3: TLabel
Left = 4
Top = 4
Width = 281
Height = 41
AutoSize = False
Caption = 'Uve�te, pros�m, adresu Va�� firmy.'
end
end
end
object TabSheet4: TTabSheet
Tag = 4
Caption = 'TabSheet4'
TabVisible = False
object Bevel4: TBevel
Left = 8
Top = 8
Width = 313
Height = 189
Shape = bsFrame
end
object LabelPlus8: TLabelPlus
Left = 21
Top = 72
Width = 44
Height = 13
AttachType = atLeft
Caption = 'Telefon'
FocusControl = EditTel
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus9: TLabelPlus
Left = 48
Top = 96
Width = 17
Height = 13
AttachType = atLeft
Caption = 'Fax'
FocusControl = EditFax
Attached = True
end
object LabelPlus10: TLabelPlus
Left = 40
Top = 120
Width = 25
Height = 13
AttachType = atLeft
Caption = 'Mobil'
FocusControl = EditMobil
Attached = True
end
object LabelPlus11: TLabelPlus
Left = 37
Top = 144
Width = 28
Height = 13
AttachType = atLeft
Caption = 'E-mail'
FocusControl = EditEmail
Attached = True
end
object LabelPlus12: TLabelPlus
Left = 42
Top = 168
Width = 23
Height = 13
AttachType = atLeft
Caption = 'Web'
FocusControl = EditWeb
Attached = True
end
object EditTel: TEdit
Left = 72
Top = 68
Width = 121
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object EditFax: TEdit
Left = 72
Top = 92
Width = 121
Height = 21
TabOrder = 1
end
object EditMobil: TEdit
Left = 72
Top = 116
Width = 121
Height = 21
TabOrder = 2
end
object EditEmail: TEdit
Left = 72
Top = 140
Width = 121
Height = 21
TabOrder = 3
end
object EditWeb: TEdit
Left = 72
Top = 164
Width = 121
Height = 21
TabOrder = 4
end
object Panel4: TPanel
Left = 20
Top = 20
Width = 289
Height = 37
BevelOuter = bvLowered
Color = clInfoBk
TabOrder = 5
object Label4: TLabel
Left = 4
Top = 4
Width = 281
Height = 29
AutoSize = False
Caption = 'Uve�te, pros�m, kontaktn� �daje Va�i firmy.'
end
end
end
object TabSheet5: TTabSheet
Caption = 'TabSheet5'
TabVisible = False
object Bevel6: TBevel
Left = 8
Top = 8
Width = 313
Height = 189
Shape = bsFrame
end
object LabelPlus13: TLabelPlus
Left = 34
Top = 160
Width = 79
Height = 13
AttachType = atLeft
Caption = '��d�m celkem o'
FocusControl = EditPocet2
Attached = True
end
object Label9: TLabel
Left = 184
Top = 160
Width = 31
Height = 13
Caption = 'licenc�'
end
object Label5: TLabel
Left = 60
Top = 128
Width = 54
Height = 13
Caption = 'Ji� vlastn�m'
end
object Label7: TLabel
Left = 184
Top = 128
Width = 31
Height = 13
Caption = 'licenc�'
end
object Panel6: TPanel
Left = 20
Top = 20
Width = 289
Height = 77
BevelOuter = bvLowered
Color = clInfoBk
TabOrder = 0
object Label6: TLabel
Left = 4
Top = 4
Width = 281
Height = 69
AutoSize = False
Caption =
'Uve�te, pros�m, po�et licenc�, kter� ji� vlastn�te a kter�'#13#10'po�a' +
'dujete. Pro ka�d� po��ta�, na kter�m hodl�te provo-'#13#10'zovat progr' +
'am Supreme Contact budete pot�ebovat jednu'#13#10'samostatnou licenci,' +
' bez ohledu na to, zda jsou po��ta�e'#13#10'zapojeny do s�t� �i nikoli' +
'v.'
end
end
object EditPocet2: TNumEdit
Left = 120
Top = 156
Width = 61
Height = 21
DirectInput = False
FloatDigits = 2
FloatPrecision = 15
Increment = 1.000000000000000000
MaxValue = 9999.000000000000000000
TabOrder = 2
end
object EditPocet1: TNumEdit
Left = 120
Top = 124
Width = 61
Height = 21
DirectInput = False
FloatDigits = 2
FloatPrecision = 15
Increment = 1.000000000000000000
MaxValue = 9999.000000000000000000
TabOrder = 1
end
end
object TabSheet6: TTabSheet
Caption = 'TabSheet6'
ImageIndex = 7
TabVisible = False
object Bevel8: TBevel
Left = 8
Top = 8
Width = 313
Height = 189
Shape = bsFrame
end
object LabelPlus15: TLabelPlus
Left = 20
Top = 104
Width = 49
Height = 13
Caption = 'Pozn�mky'
FocusControl = MemoPozn
Attached = True
end
object LabelPlus16: TLabelPlus
Left = 20
Top = 64
Width = 132
Height = 13
Caption = 'Jm�no kontaktn� osoby'
FocusControl = EditOsoba
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Panel9: TPanel
Left = 20
Top = 20
Width = 289
Height = 37
BevelOuter = bvLowered
Color = clInfoBk
TabOrder = 0
object Label13: TLabel
Left = 4
Top = 4
Width = 281
Height = 29
AutoSize = False
Caption = 'Zde m��ete uv�st Va�e pozn�mky �i p�ipom�nky'#13#10'k objedn�vce.'
end
end
object MemoPozn: TMemo
Left = 20
Top = 120
Width = 289
Height = 65
TabOrder = 2
end
object EditOsoba: TEdit
Left = 20
Top = 80
Width = 289
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
end
object TabSheet8: TTabSheet
Caption = 'TabSheet8'
ImageIndex = 7
TabVisible = False
object Bevel5: TBevel
Left = 8
Top = 8
Width = 313
Height = 189
Shape = bsFrame
end
object LabelPlus14: TLabelPlus
Left = 20
Top = 92
Width = 156
Height = 13
Caption = 'P�edplatitelsk� ��slo PC WORLD'
FocusControl = EditPredpl
Attached = True
end
object Panel5: TPanel
Left = 20
Top = 20
Width = 289
Height = 49
BevelOuter = bvLowered
Caption = 'Panel5'
Color = clInfoBk
TabOrder = 0
object Label8: TLabel
Left = 4
Top = 4
Width = 281
Height = 41
AutoSize = False
Caption =
'Pokud jste p�edplatitelem �asopisu PC WORLD a p�ejete'#13#10'si zdarma' +
' z�skat licenci na jeden po��ta� v r�mci na��'#13#10'promo�n� akce, uv' +
'e�te zde Va�e p�edplatitelsk� ��slo.'
end
end
object EditPredpl: TEdit
Left = 20
Top = 108
Width = 185
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
end
object TabSheet7: TTabSheet
Caption = 'TabSheet7'
ImageIndex = 8
TabVisible = False
object Bevel9: TBevel
Left = 8
Top = 8
Width = 313
Height = 189
Shape = bsFrame
end
object Panel8: TPanel
Left = 20
Top = 20
Width = 289
Height = 125
BevelOuter = bvLowered
Color = clInfoBk
TabOrder = 0
object Label12: TLabel
Left = 4
Top = 4
Width = 281
Height = 121
AutoSize = False
Caption =
'Nyn� jsou k dispozici v�echny �daje nutn� k sestaven�'#13#10'objedn�vk' +
'y. Objedn�vku, pros�m, vytiskn�te a za�lete �i'#13#10'faxujte na adres' +
'u spole�nosti Supreme Technologies s.r.o.,'#13#10'jej� kontaktn� �daj' +
'e najdete v r�me�ku '#39'O programu'#39'.'#13#10#13#10'Rovn� m��ete objedn�vku za' +
'slat p��mo prost�ednictv�m'#13#10'e-mailov�ch slu�eb. K tomu je nutn�,' +
' aby byl na tomto '#13#10'po��ta�i nainstalov�n n�kter� z po�tovn�ch p' +
'rogram�, nap�.'#13#10'MS Outlook Express a byl nastaven jako klient MA' +
'PI.'
end
end
object BtnPrint: TBitBtn
Left = 154
Top = 160
Width = 75
Height = 25
Hint = 'Vytisknout objedn�vku'
Caption = 'Tisk'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = BtnPrintClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDD0000000000DDDDD077777777700DDD088888888880
70DD08888889F9F070DD088888888880770D0FFFFFFFFFF0770DD0F0000000FF
070DDD0FFFFFFF0FF00DDDD007777770000DDDDD0FFFFF0DDDDDDDDDD0FFFFF0
DDDDDDDDDD000000DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
end
object BtnMail: TBitBtn
Left = 234
Top = 160
Width = 75
Height = 25
Hint = 'Odeslat objedn�vku e-mailem'
Caption = 'E-mail'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = BtnMailClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333000000000000000000FFFFFFFFFFFF000F0FFFFFFFFF
F0F00FF0FFFFFFFF0FF00FFF0FF00FF0FFF00FFFF00FF00FFFF00FFFF0FFFF0F
FFF00FFF0FFFFFF0FFF00FF0FFFFFFFF0FF00F0FFFFFFFFFF0F000FFFFFFFFFF
FF00000000000000000033333333333333333333333333333333}
end
end
end
object Wallpaper1: TWallpaper
ResourceName = 'WALLPAPER'
Left = 4
Top = 228
end
end