273 lines
6.8 KiB
Plaintext
273 lines
6.8 KiB
Plaintext
object fActualizacion: TfActualizacion
|
|
Left = 447
|
|
Top = 316
|
|
Caption = 'Configuraci'#243'n'
|
|
ClientHeight = 340
|
|
ClientWidth = 354
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poOwnerFormCenter
|
|
OnActivate = FormActivate
|
|
DesignSize = (
|
|
354
|
|
340)
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 306
|
|
Width = 354
|
|
Height = 34
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ParentColor = True
|
|
TabOrder = 0
|
|
object OKBtn: TButton
|
|
Left = 190
|
|
Top = 2
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '&Aceptar'
|
|
Default = True
|
|
ModalResult = 1
|
|
TabOrder = 0
|
|
OnClick = OKBtnClick
|
|
end
|
|
object CancelBtn: TButton
|
|
Left = 270
|
|
Top = 2
|
|
Width = 75
|
|
Height = 25
|
|
Cancel = True
|
|
Caption = '&Cancelar'
|
|
ModalResult = 2
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 8
|
|
Top = 8
|
|
Width = 337
|
|
Height = 289
|
|
ActivePage = TabSheet1
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
TabOrder = 1
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Configuraci'#243'n'
|
|
object GroupBox1: TGroupBox
|
|
Left = 7
|
|
Top = 6
|
|
Width = 313
|
|
Height = 242
|
|
Caption = 'Configuraci'#243'n de acceso'
|
|
TabOrder = 0
|
|
object Label2: TLabel
|
|
Left = 32
|
|
Top = 115
|
|
Width = 259
|
|
Height = 26
|
|
Margins.Bottom = 0
|
|
Caption =
|
|
'Para poder descargar actualizaciones de FactuGES desde Internet ' +
|
|
'debe introducir su usuario y contrase'#241'a:'
|
|
WordWrap = True
|
|
end
|
|
object Label3: TLabel
|
|
Left = 41
|
|
Top = 180
|
|
Width = 39
|
|
Height = 13
|
|
Margins.Bottom = 0
|
|
Caption = 'Usuario:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 23
|
|
Top = 205
|
|
Width = 57
|
|
Height = 13
|
|
Margins.Bottom = 0
|
|
Caption = 'Contrase'#241'a:'
|
|
end
|
|
object bDirectorio: TSpeedButton
|
|
Left = 272
|
|
Top = 48
|
|
Width = 23
|
|
Height = 22
|
|
Caption = '...'
|
|
OnClick = bDirectorioClick
|
|
end
|
|
object Label6: TLabel
|
|
Left = 32
|
|
Top = 155
|
|
Width = 48
|
|
Height = 13
|
|
Margins.Bottom = 0
|
|
Caption = 'Direcci'#243'n:'
|
|
end
|
|
object edUsuario: TEdit
|
|
Left = 87
|
|
Top = 176
|
|
Width = 208
|
|
Height = 21
|
|
TabOrder = 0
|
|
end
|
|
object edPassword: TEdit
|
|
Left = 87
|
|
Top = 201
|
|
Width = 208
|
|
Height = 21
|
|
PasswordChar = '*'
|
|
TabOrder = 1
|
|
end
|
|
object edRutaLan: TEdit
|
|
Left = 32
|
|
Top = 48
|
|
Width = 241
|
|
Height = 21
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
end
|
|
object rbInternet: TRadioButton
|
|
Left = 16
|
|
Top = 96
|
|
Width = 257
|
|
Height = 17
|
|
Caption = 'Actualizaci'#243'n por Internet'
|
|
TabOrder = 3
|
|
OnClick = Action1Update
|
|
end
|
|
object rbLan: TRadioButton
|
|
Left = 16
|
|
Top = 24
|
|
Width = 265
|
|
Height = 17
|
|
Caption = 'Actualizaci'#243'n por red local'
|
|
TabOrder = 4
|
|
OnClick = Action1Update
|
|
end
|
|
object edLocation: TEdit
|
|
Left = 87
|
|
Top = 151
|
|
Width = 208
|
|
Height = 21
|
|
TabOrder = 5
|
|
end
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Opciones avanzadas'
|
|
ImageIndex = 1
|
|
object GroupBox2: TGroupBox
|
|
Left = 8
|
|
Top = 7
|
|
Width = 313
|
|
Height = 242
|
|
Caption = 'Opciones avanzadas'
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 16
|
|
Top = 19
|
|
Width = 282
|
|
Height = 13
|
|
Margins.Bottom = 0
|
|
Caption = 'Por favor, s'#243'lo modificar si se sabe lo que se est'#225' haciendo.'
|
|
WordWrap = True
|
|
end
|
|
object Label5: TLabel
|
|
Left = 16
|
|
Top = 52
|
|
Width = 177
|
|
Height = 13
|
|
Margins.Bottom = 0
|
|
Caption = 'Nombre del archivo de configuraci'#243'n:'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 200
|
|
Top = 76
|
|
Width = 90
|
|
Height = 13
|
|
Margins.Bottom = 0
|
|
Caption = 'p.e: versionlocal.ini'
|
|
end
|
|
object edFicheroConfig: TEdit
|
|
Left = 16
|
|
Top = 72
|
|
Width = 177
|
|
Height = 21
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object JvAppRegistryStorage1: TJvAppRegistryStorage
|
|
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
|
|
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
|
|
StorageOptions.BooleanAsString = False
|
|
RegRoot = hkLocalMachine
|
|
Root = 'Software\FactuGES\Update'
|
|
SubStorages = <>
|
|
Left = 326
|
|
end
|
|
object JvFormStorage1: TJvFormStorage
|
|
Active = False
|
|
AppStorage = JvAppRegistryStorage1
|
|
AppStoragePath = '\'
|
|
Options = []
|
|
StoredProps.Strings = (
|
|
'edPassword.Text'
|
|
'edUsuario.Text'
|
|
'edRutaLan.Text'
|
|
'rbInternet.Checked'
|
|
'rbLan.Checked'
|
|
'edFicheroConfig.Text'
|
|
'edLocation.Text')
|
|
StoredValues = <
|
|
item
|
|
Name = 'TipoActualizacion'
|
|
Value = ''
|
|
OnSave = JvFormStorage1StoredValues0Save
|
|
end>
|
|
Left = 296
|
|
end
|
|
object ActionList1: TActionList
|
|
Left = 242
|
|
Top = 2
|
|
object Action1: TAction
|
|
Caption = 'Action1'
|
|
OnUpdate = Action1Update
|
|
end
|
|
object Action2: TAction
|
|
Caption = 'Action2'
|
|
end
|
|
end
|
|
object JvBrowseForFolderDialog1: TJvBrowseForFolderDialog
|
|
Options = [odOnlyDirectory, odStatusAvailable, odNewDialogStyle]
|
|
Title = 'Ruta de las actualizaciones'
|
|
Left = 268
|
|
Top = 1
|
|
end
|
|
object JvProgramVersionCheck1: TJvProgramVersionCheck
|
|
CheckFrequency = 0
|
|
LocalDirectory = 'update'
|
|
LocalVersionInfoFileName = 'versioninfo.ini'
|
|
LocationNetwork = JvProgramVersionNetworkLocation1
|
|
LocationType = pvltHTTP
|
|
UserOptions = [uoLocalDirectory, uoAllowedReleaseType, uoLocationType, uoLocationNetwork, uoLocationHTTP]
|
|
Left = 176
|
|
Top = 48
|
|
end
|
|
object JvProgramVersionNetworkLocation1: TJvProgramVersionNetworkLocation
|
|
Left = 208
|
|
Top = 48
|
|
end
|
|
object JvProgramVersionHTTPLocation1: TJvProgramVersionHTTPLocation
|
|
Left = 232
|
|
Top = 48
|
|
end
|
|
end
|