object Form3: TForm3 Left = 12 Top = 107 ActiveControl = Memo2 AutoScroll = False Caption = 'Hoja de Pedidos General' ClientHeight = 452 ClientWidth = 629 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Position = poScreenCenter WindowState = wsMaximized PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 8 Top = 8 Width = 617 Height = 441 BevelInner = bvLowered BevelWidth = 2 BorderWidth = 1 BorderStyle = bsSingle DragMode = dmAutomatic Caption = 'Panel1' TabOrder = 0 object BitBtn1: TBitBtn Left = 16 Top = 16 Width = 41 Height = 41 Hint = 'Volver al Men�' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BitBtn1Click Glyph.Data = { 76020000424D7602000000000000760000002800000020000000200000000100 0400000000000000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 777777777777777777777777777777731444444E131313131377777777FFFF71 F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771 F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471 F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4 4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC 4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971 FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971 F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971 F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971 F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777 7777777777777777777777777777777777777777777777777777} end object BitBtn2: TBitBtn Left = 552 Top = 16 Width = 41 Height = 41 Hint = 'Imprimir' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = BitBtn2Click Glyph.Data = { 76020000424D7602000000000000760000002800000020000000200000000100 0400000000000000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000 000000000000000000070F8888888888888888888888888888800FF800000000 000000000000008888800FF708888888888888888888880778800FF70F777777 777777777777778078800FF70F777777777777777777778808800FF70F777777 777777777777778808800FF708888888888888888888888808800FF000000000 000000000000000808800F0888888888888888888888888008800F0777777777 777777777777777808800F0777777777777777777777777880800F0777777777 777777777777777888000F0777777777777777777777777888000F0777777777 777777777777777888000F0777777777777777777999977888000F0777777777 777777777777777888000F0FFFFFFFFFFFFFFFFFFFFFFFF888000F0777777777 777777777777777F88000FF0777700000000000000008777F8000FF700000FFF FFFFFFFFFFF0000000000FF777770FFCCCCCCCCCCFF0777778800FF777770FFF FFFFFFFFFFF0777778800FF7777788F8CCCCCCCCC8F8877778800FF7777770FF FFFFFFFFFFFF077778800FF77777770FFCCCCCCCCCCFF07778800FF777777770 FFFFFFFFFFFFFF0778800FF7777777788FCCCCCCCCCCFF8878800FF777777777 0FFFFFFFFFFFFFF078800FFFFFFFFFFF0FFFFFFFFFFFFFF0FF800FFFFFFFFFFF 0FFFFFFFFFFFFFF0FFF070000000000000000000000000000007} end object Memo2: TMemo Left = 16 Top = 88 Width = 577 Height = 329 Hint = 'Pulsar el bot�n: Imprimir Hoja de Pedido' DragMode = dmAutomatic Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] Lines.Strings = ( ' Enviar esta Hoja de Pedido a: SOFT MAGIC' ' ' + ' Distribuidor comercial:' ' ' + ' FRANCISCO PATI�O S�NCHEZ' ' ' + ' Apartado de Correos, 114' ' ' + ' 36080 - Pontevedra.' '' ' - Pedidos m�s r�pidos por Tel�fono � Fax: (986)- 844304 ' + ' -- Tel�fono M�vil: 939.501.801' '----------------------------------------------------------------' + '----------------------------------------------------------------' + '----------' ' ' ' [x] Deseo que me env�en el o los programas que he se�al' + 'ado con una X' ' ' ' [ ]> NATUROPAT�A v1.0 (Base de Datos) ............. 9.75' + '0 Ptas. - (En CD-ROM).' ' [ ]> SUE�OS DE LA SUERTE v1.0 ....................... 5.' + '490 Ptas. - (En Disquetes de 3.5").' ' [ ]> SUE�OS DE LA SUERTE v1.0 ....................... 6.' + '490 Ptas. - (En CD-ROM).' ' [ ]> TAROT PREDICTIVO v3.0 ............................' + ' 8.490 Ptas. - (En Disquetes de 3.5").' ' [ ]> TAROT PREDICTIVO v3.0 ............................' + ' 9.490 Ptas. - (En CD-ROM).' ' [ ]> GU�A ASTROL�GICA v3.5 .............................' + ' 5.490 Ptas. - (En Disquetes de 3.5").' ' [ ]> GU�A ASTROL�GICA v3.5 .............................' + ' 6.490 Ptas. - (En CD-ROM).' ' [ ]> NUMEROLOG�A v4.0 ..................................' + '... 5.490 Ptas. - (En Disquetes de 3.5").' ' [ ]> NUMEROLOG�A v4.0 ..................................' + '... 6.490 Ptas. - (En CD-ROM).' ' [ ]> HECHIZOS Y CONTRA-HECHIZOS v1.0 ........... 5.490 P' + 'tas. - (En Disquetes de 3.5").' ' [ ]> HECHIZOS Y CONTRA-HECHIZOS v1.0 ........... 6.490 P' + 'tas. - (En CD-ROM).' ' [ ]> CURSO DE TAROT v3.1 (Nivel Superior)........... 5.4' + '90 Ptas. - (En Disquetes de 3.5").' ' [ ]> CURSO DE TAROT v3.1 (Nivel Superior) .......... 6.4' + '90 Ptas. - (En CD-ROM).' ' [ ]> I CHING (Or�culo Chino) v1.0 ......................' + '.... 5.490 Ptas. - (En Disquetes de 3.5").' ' [ ]> I CHING (Or�culo Chino) v1.0 ......................' + '.... 6.490 Ptas. - (En CD-ROM).' '----------------------------------------------------------------' + '----------------------------------------------------------------' + '----------' '' ' FORMA DE PAGO:' '' ' [ ]> Mediante GIRO POSTAL (Sin Gastos de Env�o). N� de ' + 'Giro: _______________________ ' ' ' ' [ ]> CONTRA-REEMBOLSO: (Deber� de a�adir al Total: 640 P' + 'tas, por los Gastos de Env�o)' ' ' ' [ ]> Mediante TRANSFERENCIA BANCARIA en Pesetas (Sin Gas' + 'tos de Env�o) a:' ' Caja ' + 'de Ahorros de Galicia' ' C/. ' + ' Plaza Calvo Sotelo, 3' ' 36001 - P' + 'ontevedra. - (Espa�a)' '' ' - C�digo Swift: CAGLESMM - Oficina: 0500-PONTEVE' + 'DRA. O.P. - Entidad: 2091' ' - D.C.: 11 - N� de Cuenta: 3000090223 -' + ' Titular: M� MERCEDES SOTO SOLI�O' '----------------------------------------------------------------' + '----------------------------------------------------------------' + '-----------' ' ' ' Por favor, no se olvide de pegar una etiqueta co' + 'n su Nombre y Apellidos y la' ' Direcci�n Completa a donde desea usted que le en' + 'viemos su pedido.' ' ' ' ------------------' + '---------------------------------------------' ' I ' + ' I' ' I ' + ' I' ' ------------------' + '---------------------------------------------') ParentFont = False ParentShowHint = False ReadOnly = True ScrollBars = ssBoth ShowHint = False TabOrder = 2 end object Panel3: TPanel Left = 136 Top = 16 Width = 337 Height = 49 BevelInner = bvRaised BorderWidth = 1 BorderStyle = bsSingle DragMode = dmAutomatic Caption = 'NATUROPAT�A v1.0' Font.Color = clBlue Font.Height = -28 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end end object PrintDialog1: TPrintDialog Left = 232 Top = 8 end object PrinterSetupDialog1: TPrinterSetupDialog Left = 40 Top = 8 end object FontDialog1: TFontDialog Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 80 Top = 8 end object FindDialog1: TFindDialog Left = 112 Top = 8 end object SaveDialog1: TSaveDialog DefaultExt = 'TXT' FileEditStyle = fsEdit Filter = 'TEXT FILES|*.TXT|ALL FILES|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofNoReadOnlyReturn] Title = 'Save Text File' Left = 152 Top = 8 end object ReplaceDialog1: TReplaceDialog Left = 192 Top = 8 end object OpenDialog1: TOpenDialog DefaultExt = 'TXT' FileEditStyle = fsComboBox Filter = 'Text Files|*.TXT|All Files|*.*' Options = [ofHideReadOnly, ofFileMustExist, ofNoReadOnlyReturn] Title = 'OPEN TEXT FILE' Left = 504 Top = 40 end end