CtrlMstr/ComprarBono.dfm
2021-09-12 22:02:01 +02:00

255 lines
7.1 KiB
Plaintext
Raw Blame History

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 = '<27>'
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