object Form1: TForm1 Left = 649 Top = 575 AutoScroll = False Caption = 'www.infdj.com :: JDsoft ::' ClientHeight = 434 ClientWidth = 316 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = { 0000010001001010000001000800680500001600000028000000100000002000 0000010008000000000040010000000000000000000000010000000000000000 0000000080000080000000808000800000008000800080800000C0C0C0008080 80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000606 0600121212001F1F1F002C2C2C003939390045454500525252005F5F5F006C6C 6C007878780085858500929292009F9F9F00ABABAB00B8B8B800C5C5C500D2D2 D200DEDEDE00EBEBEB00F8F8F800F0FBFF00A4A0A000C0DCC000F0CAA6000000 3E0000005D0000007C0000009B000000BA000000D9000000F0002424FF004848 FF006C6CFF009090FF00B4B4FF0000143E00001E5D0000287C0000329B00003C BA000046D9000055F000246DFF004885FF006C9DFF0090B5FF00B4CDFF00002A 3E00003F5D0000547C0000699B00007EBA000093D90000AAF00024B6FF0048C2 FF006CCEFF0090DAFF00B4E6FF00003E3E00005D5D00007C7C00009B9B0000BA BA0000D9D90000F0F00024FFFF0048FFFF006CFFFF0090FFFF00B4FFFF00003E 2A00005D3F00007C5400009B690000BA7E0000D9930000F0AA0024FFB60048FF C2006CFFCE0090FFDA00B4FFE600003E1400005D1E00007C2800009B320000BA 3C0000D9460000F0550024FF6D0048FF85006CFF9D0090FFB500B4FFCD00003E 0000005D0000007C0000009B000000BA000000D9000000F0000024FF240048FF 48006CFF6C0090FF9000B4FFB400143E00001E5D0000287C0000329B00003CBA 000046D9000055F000006DFF240085FF48009DFF6C00B5FF9000CDFFB4002A3E 00003F5D0000547C0000699B00007EBA000093D90000AAF00000B6FF2400C2FF 4800CEFF6C00DAFF9000E6FFB4003E3E00005D5D00007C7C00009B9B0000BABA 0000D9D90000F0F00000FFFF2400FFFF4800FFFF6C00FFFF9000FFFFB4003E2A 00005D3F00007C5400009B690000BA7E0000D9930000F0AA0000FFB62400FFC2 4800FFCE6C00FFDA9000FFE6B4003E1400005D1E00007C2800009B320000BA3C 0000D9460000F0550000FF6D2400FF854800FF9D6C00FFB59000FFCDB4003E00 00005D0000007C0000009B000000BA000000D9000000F0000000FF242400FF48 4800FF6C6C00FF909000FFB4B4003E0014005D001E007C0028009B003200BA00 3C00D9004600F0005500FF246D00FF488500FF6C9D00FF90B500FFB4CD003E00 2A005D003F007C0054009B006900BA007E00D9009300F000AA00FF24B600FF48 C200FF6CCE00FF90DA00FFB4E6003E003E005D005D007C007C009B009B00BA00 BA00D900D900F000F000FF24FF00FF48FF00FF6CFF00FF90FF00FFB4FF002A00 3E003F005D0054007C0069009B007E00BA009300D900AA00F000B624FF00C248 FF00CE6CFF00DA90FF00E6B4FF0014003E001E005D0028007C0032009B003C00 BA004600D9005500F0006D24FF008548FF009D6CFF00B590FF00CDB4FF000000 00000000000000101010101010100000000000000000001F1F1F1F1F1F100000 000000000000001F101A1A101F100000000000000000001F1F1F1F1F1F100000 000000000000001F101A1A101F100505050505050505001F1F1F1F1F1F100505 0505030B0305001F1F1F1F1F1F100505030B0B0B0B0B001F0E0E0E0E1F100505 0B0B05050503001F0E0E0E0E1F1005030B0305050505001F1F1F1F1F1F10050B 0B0B0B0B0305000000000000000005030B030505050505050000000000000505 0B0B0505050B03050000000000000505030B0B0B0B0B05050000000000000505 0505030B0305050500000000000000050505050505050505000000000000FF80 FFFFFF80FFFFFF80FFFFFF80FFFFFF80FFFF0080FFFF0080FFFF0080FFFF0080 FFFF0080FFFF00FFFFFF003FFFFF003FFFFF003FFFFF003FFFFF803FFFFF} KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnDestroy = FormDestroy OnKeyPress = FormKeyPress PixelsPerInch = 96 TextHeight = 13 object PageControl1: TPageControl Left = 0 Top = 0 Width = 316 Height = 434 ActivePage = TabSheet2 Align = alClient Style = tsFlatButtons TabIndex = 1 TabOrder = 0 OnChange = PageControl1Change object TabSheet1: TTabSheet Caption = 'B'#225'sico' object lcd: TLabel Left = 8 Top = 48 Width = 273 Height = 53 Alignment = taRightJustify AutoSize = False Caption = '0.0 '#8364 Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -48 Font.Name = 'Courier New' Font.Style = [fsBold] ParentFont = False Transparent = True end object stepLb: TLabel Left = 8 Top = 8 Width = 152 Height = 36 Caption = 'Importe:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -32 Font.Name = 'Courier New' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label1: TLabel Left = 96 Top = 393 Width = 96 Height = 13 Caption = 'Dise'#241'ado por JDsoft' end object Button1: TButton Left = 8 Top = 112 Width = 57 Height = 57 Caption = '7' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 80 Top = 112 Width = 57 Height = 57 Caption = '8' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = Button2Click end object Button3: TButton Left = 152 Top = 112 Width = 57 Height = 57 Caption = '9' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button3Click end object Button4: TButton Left = 224 Top = 112 Width = 57 Height = 129 Caption = 'C' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = Button4Click end object Button5: TButton Left = 8 Top = 184 Width = 57 Height = 57 Caption = '4' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = Button5Click end object Button6: TButton Left = 80 Top = 184 Width = 57 Height = 57 Caption = '5' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = Button6Click end object Button7: TButton Left = 152 Top = 184 Width = 57 Height = 57 Caption = '6' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = Button7Click end object Button9: TButton Left = 8 Top = 256 Width = 57 Height = 57 Caption = '1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 7 OnClick = Button9Click end object Button10: TButton Left = 80 Top = 256 Width = 57 Height = 57 Caption = '2' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 8 OnClick = Button10Click end object Button11: TButton Left = 152 Top = 256 Width = 57 Height = 57 Caption = '3' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 9 OnClick = Button11Click end object btIntro: TButton Left = 224 Top = 256 Width = 57 Height = 129 Caption = 'Intro' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 10 OnClick = btIntroClick end object Button13: TButton Left = 8 Top = 328 Width = 129 Height = 57 Caption = '0' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 11 OnClick = Button13Click end object Button14: TButton Left = 152 Top = 328 Width = 57 Height = 57 Caption = '.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 12 OnClick = Button14Click end end object TabSheet2: TTabSheet Caption = 'Avanzado' ImageIndex = 1 object Memo1: TMemo Left = 0 Top = 0 Width = 308 Height = 169 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( ' /' ' . Inform'#225'tica D.J. ' ' / \ http://www.infdj.com' ' _|_ \ ' ' / \_|_' ' | D | \ Murillo 11 - 41500' ' \___/ J | Alcala de Gdra. (Sevilla)' ' \___/ T:955.615.854 F:955.614.913' '' '{fecha} . {hora} Ticket: {id}' '' '') ParentFont = False ScrollBars = ssVertical TabOrder = 0 end object Memo2: TMemo Left = 0 Top = 336 Width = 308 Height = 40 Align = alBottom Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( '' ' Gracias por su visita') ParentFont = False ScrollBars = ssVertical TabOrder = 1 end object sg: TStringGrid Left = 0 Top = 169 Width = 308 Height = 167 Align = alClient ColCount = 3 FixedCols = 0 RowCount = 7 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing] ParentFont = False ScrollBars = ssVertical TabOrder = 2 OnKeyPress = sgKeyPress ColWidths = ( 190 31 64) end object Panel1: TPanel Left = 0 Top = 376 Width = 308 Height = 27 Align = alBottom BevelOuter = bvLowered TabOrder = 3 object SpeedButton1: TSpeedButton Left = 88 Top = 2 Width = 137 Height = 22 Caption = 'Imprimir el Ticket' Flat = True OnClick = SpeedButton1Click end end end end end