AbetoDesign_FactuGES2/Source/Cliente/Actualizacion/uActualizacion.dfm

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