inherited CBono: TCBono Left = 328 Top = 158 Caption = 'CBono' OldCreateOrder = True Position = poOwnerFormCenter PixelsPerInch = 96 TextHeight = 13 inherited CoolForm1: TCoolForm Mask2 = { 3002000020000000010000002100000010020000040000000200000064010000 030100001A000000020000004E01000003000000170000000300000051010000 0400000015000000040000005301000005000000130000000500000055010000 0600000012000000060000005601000007000000100000000700000058010000 080000000F0000000800000059010000090000000E000000090000005A010000 0A0000000C0000000A0000005C0100000C0000000B0000000C0000005D010000 0D0000000A0000000D0000005E0100000E000000090000000E0000005F010000 1000000008000000100000006001000011000000070000001100000061010000 1300000006000000130000006201000015000000050000001500000063010000 18000000040000001800000064010000ED00000005000000ED00000063010000 F000000006000000F000000062010000F200000007000000F200000061010000 F400000008000000F400000060010000F500000009000000F50000005F010000 F70000000A000000F70000005E010000F80000000B000000F80000005D010000 F90000000C000000F90000005C010000FB0000000E000000FB0000005A010000 FC0000000F000000FC00000059010000FD00000010000000FD00000058010000 FE00000012000000FE00000056010000FF00000013000000FF00000055010000 0001000015000000000100005301000001010000170000000101000051010000 020100001A000000020100004E01000003010000} end object Terminal: TLabel [1] Left = 72 Top = 5 Width = 209 Height = 20 Alignment = taCenter AutoSize = False Caption = 'Comprar Bonos' Font.Charset = DEFAULT_CHARSET Font.Color = clAqua Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label6: TLabel [2] Left = 34 Top = 41 Width = 145 Height = 20 Caption = 'Fecha de compra:' Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label1: TLabel [3] Left = 184 Top = 41 Width = 71 Height = 20 Caption = '12/02/00' Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label2: TLabel [4] Left = 34 Top = 89 Width = 156 Height = 20 Caption = 'Tiempo contratado:' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label3: TLabel [5] Left = 34 Top = 137 Width = 137 Height = 20 Caption = 'Coste del BONO:' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label4: TLabel [6] Left = 306 Top = 137 Width = 11 Height = 20 Caption = '€' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Shape4: TShape [7] Left = 249 Top = 105 Width = 7 Height = 7 Shape = stCircle end object Shape3: TShape [8] Left = 249 Top = 93 Width = 7 Height = 7 Shape = stCircle end object Bevel1: TBevel [9] Left = 32 Top = 72 Width = 295 Height = 9 Shape = bsTopLine end object CosteBono: TEdit Left = 176 Top = 134 Width = 121 Height = 28 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object Horas: TComboBox Left = 208 Top = 88 Width = 40 Height = 28 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 20 ParentFont = False TabOrder = 2 Text = '00' Items.Strings = ( '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '12' '15' '20' '24') end object Min: TComboBox Left = 258 Top = 88 Width = 40 Height = 28 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 20 ParentFont = False TabOrder = 3 Text = '00' Items.Strings = ( '0' '5' '10' '15' '20' '25' '30' '35' '40' '45' '50' '55') end object BitBtn1: TBitBtn Left = 120 Top = 176 Width = 121 Height = 33 Caption = 'Aceptar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = BitBtn1Click Glyph.Data = { 8E030000424D8E03000000000000760000002800000042000000160000000100 04000000000018030000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555599999999555555555555555555555555555550000005555 5555555555555555555555599999999999955555555555555555555555555500 0000555555555555555555555555559999999999999955555555555555555555 55555500000055555555555555555555555559999FFFFFFF999995552AAAAA2B C4B2ACACC225550000005555555555555555555555559999FFFFFFFFFF999955 2AAAAA2C44C2ACAC22225500000022222222222222222255555999999FFFFFFF FFF999952AAAAA2B4CB2ACACC2A2250000002AAAAA2BC4B2ACACC22555599999 99FF000000FF99952CACCA2C44B2AAAAA2A2220000002AAAAA2C44C2ACAC2222 550000F999907777770FF9992CAC2A2BC4C2AAAAA2A2A20000002AAAAA2B4CB2 ACACC2A2254C4C009999FFF00000F9992CACCA2B44B2AAAAA2A2A20000002CAC CA2C44B2AAAAA2A222C4C40779999FFF777709992222222BBBB2222222A2A200 00002CAC2A2BC4C2AAAAA2A2A2CCCC0FFF9999F00000F9992222222BBBB22222 2AA2A20000002CACCA2B44B2AAAAA2A2A2CCCC000FF9999F7770F9992AAAAA2B C4B2ACACC2AAA20000002222222BBBBB222222A2A200000FF0FF9999000FF999 2AAAAA2C44C2ACAC22A2A2000000522AAAA2BBBBB2AAAA22A2999FFFFF0FF999 9FFFF9992AAAAA2B4CB2ACACC2A2A2000000552222222BBBBB222222A2999FFF FFF00F9999FFF9992CACCA2C44B2AAAAA2A2A200000055522AAAA2BBBBB2AAAA 225999FFFFFFF0F9999F99952CAC2A2BC4C2AAAAA2A2A200000055552222222B BBBB22222259999FFFFFFF00999999952CACCA2B44B2AAAAA2A2A20000005555 555555555555555555559999FFFFFFFFF99999552222222BBBBB222222A2A200 0000555555555555555555555555599999FFFFFF99999555522AAAA2BBBBB2AA AA22A20000005555555555555555555555555599999999999999555555222222 2BBBBB222222A200000055555555555555555555555555599999999999955555 55522AAAA2BBBBB2AAAA22000000555555555555555555555555555559999999 955555555555555555555555555555000000} NumGlyphs = 3 end end