first commit (2008-08-30)

imprimirTicket_main.~dfm

@@ -0,0 +1,405 @@
+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 = TabSheet1
+    Align = alClient
+    Style = tsFlatButtons
+    TabIndex = 0
+    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