2021-09-12 22:08:04 +02:00

483 lines
6.5 KiB
Plaintext

object Form1: TForm1
Left = 191
Top = 116
Width = 391
Height = 392
Caption = 'Generador de números'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 29
object Label1: TLabel
Left = 8
Top = 24
Width = 258
Height = 29
Caption = 'Empezar por el número:'
end
object Label2: TLabel
Left = 32
Top = 144
Width = 319
Height = 24
Caption = '[el orden debe ser de menor a mayor]'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 32
Top = 168
Width = 311
Height = 24
Caption = 'y las casillas marcadas de V5->a->V1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 8
Top = 216
Width = 322
Height = 24
Caption = 'No mas de de la misma decena.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ComboBox1: TComboBox
Left = 8
Top = 64
Width = 49
Height = 37
ItemHeight = 29
TabOrder = 0
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49')
end
object ComboBox2: TComboBox
Left = 72
Top = 64
Width = 49
Height = 37
ItemHeight = 29
TabOrder = 1
Text = '2'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49')
end
object ComboBox3: TComboBox
Left = 136
Top = 64
Width = 49
Height = 37
ItemHeight = 29
TabOrder = 2
Text = '3'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49')
end
object ComboBox4: TComboBox
Left = 200
Top = 64
Width = 49
Height = 37
ItemHeight = 29
TabOrder = 3
Text = '4'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49')
end
object ComboBox5: TComboBox
Left = 264
Top = 64
Width = 49
Height = 37
ItemHeight = 29
TabOrder = 4
Text = '5'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49')
end
object ComboBox6: TComboBox
Left = 328
Top = 64
Width = 49
Height = 37
ItemHeight = 29
TabOrder = 5
Text = '6'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49')
end
object CheckBox1: TCheckBox
Left = 8
Top = 112
Width = 49
Height = 17
Caption = 'v1'
TabOrder = 6
end
object CheckBox2: TCheckBox
Left = 72
Top = 112
Width = 49
Height = 17
Caption = 'v2'
TabOrder = 7
end
object CheckBox3: TCheckBox
Left = 136
Top = 112
Width = 49
Height = 17
Caption = 'v3'
TabOrder = 8
end
object CheckBox4: TCheckBox
Left = 200
Top = 112
Width = 49
Height = 17
Caption = 'v4'
TabOrder = 9
end
object CheckBox5: TCheckBox
Left = 264
Top = 112
Width = 49
Height = 17
Caption = 'v5'
TabOrder = 10
end
object Button1: TButton
Left = 24
Top = 312
Width = 345
Height = 49
Caption = '&Generar >> gnum.txt'
TabOrder = 11
OnClick = Button1Click
end
object mismaDecena: TComboBox
Left = 104
Top = 208
Width = 49
Height = 37
ItemHeight = 29
TabOrder = 12
Text = '2'
Items.Strings = (
'3'
'4'
'5'
'6'
'7'
'8'
'9')
end
end