406 lines
12 KiB
Plaintext
406 lines
12 KiB
Plaintext
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
|