object frmHaslo: TfrmHaslo Left = 222 Top = 111 Hint = 'Podaj katalog z danymi programu EWMapa' BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Rejestracja pakietu "Polska 1999"' ClientHeight = 287 ClientWidth = 407 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object Label1: TLabel Left = 90 Top = 190 Width = 32 Height = 13 Caption = 'Has�o:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 18 Top = 34 Width = 367 Height = 39 Alignment = taCenter Caption = 'Warunkiem udanej instalacji jest uprzednia rejestracja pakietu u' + ' producenta. W tym celu numer seryjny pakietu nale�y przes�a� do' + ' producenta jednym z trzech podanych ni�ej sposob�w:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Label4: TLabel Left = 130 Top = 84 Width = 169 Height = 15 Caption = 'tel./fax: (91) 4-858-150, 487-97-14' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Image1: TImage Left = 46 Top = 92 Width = 37 Height = 37 Picture.Data = {} end object Label5: TLabel Left = 114 Top = 84 Width = 9 Height = 13 Caption = '1.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 114 Top = 108 Width = 9 Height = 13 Caption = '2.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 114 Top = 132 Width = 9 Height = 13 Caption = '3.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 84 Top = 154 Width = 252 Height = 13 Caption = 'Uzyskane w odpowiedzi has�o nale�y wpisa� poni�ej.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Label9: TLabel Left = 48 Top = 9 Width = 169 Height = 19 Alignment = taRightJustify Caption = 'Numer seryjny pakietu:' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label10: TLabel Left = 8 Top = 214 Width = 389 Height = 31 Alignment = taCenter Caption = 'Je�eli uzyskanie has�a wymaga czasu, mo�esz zainstalowa� wersj� ' + 'demonstracyjn�, a po uzyskaniu has�a ponownie uruchomi� program ' + 'instalacyjny.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Label2: TLabel Left = 130 Top = 168 Width = 164 Height = 12 Caption = '(Podane has�o zapisz i zachowaj)' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [] ParentFont = False WordWrap = True end object TxtHaslo: TEdit Left = 128 Top = 186 Width = 165 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object TxtNumer: TEdit Left = 225 Top = 8 Width = 117 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 2 end object cmdOK: TButton Left = 188 Top = 254 Width = 99 Height = 25 Caption = '&OK' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 3 end object cmdAnuluj: TButton Left = 290 Top = 254 Width = 99 Height = 25 Caption = '&Anuluj' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 5 end object MemoHTML: TMemo Left = 39 Top = 305 Width = 58 Height = 32 Lines.Strings = ( 'MemoHTML') TabOrder = 6 Visible = False WordWrap = False end object cmdMail: TButton Left = 130 Top = 104 Width = 163 Height = 19 Caption = '&e-mail' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = cmdMailClick end object cmdFax: TButton Left = 130 Top = 128 Width = 163 Height = 19 Caption = '&Fax' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = cmdFaxClick end object cmdDemo: TButton Left = 20 Top = 254 Width = 99 Height = 25 Caption = '&Zainstaluj demo' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 7 OnClick = cmdDemoClick end object ExecFile1: TExecFile Associate = True CommandLine = 'c:\main21.htm' Wait = False Left = 6 Top = 110 end object ExecFile2: TExecFile Associate = False CommandLine = 'c:\main21.htm' Wait = False Left = 8 Top = 146 end end