home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 57
/
Freelog057.iso
/
Bas
/
Systeme
/
Netone
/
netoneecole.exe
/
install.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
2002-11-01
|
11KB
|
490 lines
object Form1: TForm1
Left = 92
Top = 187
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Programme d'#39'installation de NetOneEcole'
ClientHeight = 281
ClientWidth = 614
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnActivate = FormActivate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 64
Top = 8
Width = 276
Height = 24
Caption = 'Installation de NetOneEcole�'
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Image1: TImage
Left = 8
Top = 8
Width = 57
Height = 49
Picture.Data = {<image000.bmp>}
end
object Label2: TLabel
Left = 8
Top = 64
Width = 192
Height = 16
Caption = 'Pour installer NetOneEcole:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 168
Top = 168
Width = 150
Height = 13
Caption = 'Liste des ordinateurs � utiliser: '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 16
Top = 168
Width = 78
Height = 13
Caption = 'Nom du serveur:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object Label11: TLabel
Left = 256
Top = 36
Width = 133
Height = 20
Caption = 'Version Gratuite'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object LabelA: TLabel
Left = 8
Top = 152
Width = 220
Height = 13
Caption = 'Analyse en cours, Veuillez patienter ...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label15: TLabel
Left = 64
Top = 26
Width = 146
Height = 13
Caption = 'Logiciel d'#39'administration r�seau'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -5
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Memo1: TMemo
Left = 8
Top = 80
Width = 441
Height = 73
Color = clInfoBk
Enabled = False
Lines.Strings = (
'Si cet ordinateur fonctionnne en r�seau alors appuyez sur le bou' +
'ton Installation en r�seau '
'sinon appuyez sur le bouton Installation mono-poste. '
''
'ATTENTION: Pour la premi�re installation de NetOneEcole en fonct' +
'ionnement r�seau, vous '
'devez au pr�alable ex�cuter le programme InstA.exe sur tous vos ' +
'ordinateurs.')
TabOrder = 0
end
object Panel1: TPanel
Left = 456
Top = 0
Width = 158
Height = 281
Align = alRight
BevelInner = bvRaised
BevelOuter = bvLowered
BevelWidth = 2
Color = clBlack
TabOrder = 1
object Image2: TImage
Left = 4
Top = 4
Width = 150
Height = 273
Align = alClient
Picture.Data = {<image001.bmp>}
Stretch = True
end
object SpeedButton1: TSpeedButton
Left = 16
Top = 24
Width = 129
Height = 33
Caption = 'Analyse'
Visible = False
OnClick = SpeedButton1Click
end
object SpeedButton3: TSpeedButton
Left = 16
Top = 128
Width = 129
Height = 33
Caption = 'Installation en r�seau'
Enabled = False
Visible = False
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 16
Top = 216
Width = 129
Height = 49
Caption = 'Annuler'
OnClick = SpeedButton4Click
end
object BtnRedem: TSpeedButton
Left = 16
Top = 72
Width = 129
Height = 33
Caption = 'Mot de passe'
Visible = False
OnClick = BtnRedemClick
end
object SpeedButton2: TSpeedButton
Left = 16
Top = 72
Width = 129
Height = 33
Caption = 'pr�-Installation'
Enabled = False
Visible = False
OnClick = SpeedButton2Click
end
object SpeedButton5: TSpeedButton
Left = 16
Top = 24
Width = 129
Height = 33
Caption = 'Installation en r�seau'
Visible = False
OnClick = c
end
object SpeedButton6: TSpeedButton
Left = 16
Top = 72
Width = 129
Height = 33
Caption = 'Installation monoposte'
Visible = False
OnClick = SpeedButton6Click
end
object Panel3: TPanel
Left = 16
Top = 112
Width = 129
Height = 57
Color = clGreen
TabOrder = 0
Visible = False
OnClick = Label16Click
object Label16: TLabel
Left = 8
Top = 8
Width = 113
Height = 49
AutoSize = False
Caption = 'Appuyez ici, pour copier InstA.exe sur disquette.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
WordWrap = True
OnClick = Label16Click
end
end
end
object ComboBox1: TComboBox
Left = 16
Top = 184
Width = 121
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 2
Visible = False
end
object CheckListBox1: TCheckListBox
Left = 168
Top = 184
Width = 257
Height = 89
Columns = 2
ItemHeight = 13
TabOrder = 3
Visible = False
end
object Memo2: TMemo
Left = 8
Top = 152
Width = 441
Height = 121
Color = clBlack
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Copyright � Lopez Eric 2001 .Ce logiciel est prot�g� par la loi ' +
'de la propri�t� Intellectuelle. '
'Tous droits r�serv�s pour tous pays.'
''
'Note: cette version de NetOneEcole est GRATUITE donc en libre di' +
'ffusion.'
''
'Adresse: M. Lopez Eric e-mail: neto' +
'neecole@free.fr '
' R�sidence Croix Daurade'
' 156 Bis route d'#39'Albi'
' 31200 TOULOUSE France'
' ')
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 4
end
object Panel2: TPanel
Left = 0
Top = 64
Width = 457
Height = 225
BevelOuter = bvLowered
TabOrder = 5
object Label5: TLabel
Left = 0
Top = 8
Width = 459
Height = 33
Alignment = taCenter
AutoSize = False
Caption =
'Formulaire � compl�ter obligatoirement avant de proc�der � l'#39'ins' +
'tallation'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
WordWrap = True
end
object Label6: TLabel
Left = 16
Top = 48
Width = 111
Height = 13
Caption = 'Nom de l'#39'�tablissement:'
end
object Label7: TLabel
Left = 16
Top = 88
Width = 22
Height = 13
Caption = 'Ville:'
end
object Label9: TLabel
Left = 312
Top = 88
Width = 41
Height = 13
Caption = 'N� RNE:'
end
object Label8: TLabel
Left = 224
Top = 48
Width = 41
Height = 13
Caption = 'Adresse:'
end
object Label10: TLabel
Left = 224
Top = 88
Width = 57
Height = 13
Caption = 'Code Postal'
end
object Label12: TLabel
Left = 16
Top = 128
Width = 54
Height = 13
Caption = 'Telephone:'
end
object Label13: TLabel
Left = 112
Top = 128
Width = 20
Height = 13
Caption = 'Fax:'
end
object Label14: TLabel
Left = 208
Top = 128
Width = 30
Height = 13
Caption = 'e-mail:'
end
object ENom: TEdit
Left = 16
Top = 64
Width = 193
Height = 21
TabOrder = 0
end
object EVille: TEdit
Left = 16
Top = 104
Width = 193
Height = 21
TabOrder = 2
end
object ECode: TEdit
Left = 224
Top = 104
Width = 73
Height = 21
MaxLength = 5
TabOrder = 3
end
object EAdresse: TEdit
Left = 224
Top = 64
Width = 217
Height = 21
TabOrder = 1
end
object Button1: TButton
Left = 180
Top = 176
Width = 97
Height = 33
Caption = 'Enregistrer'
TabOrder = 8
OnClick = Button1Click
end
object ERNE: TEdit
Left = 312
Top = 104
Width = 129
Height = 21
MaxLength = 9
TabOrder = 4
end
object Ephone: TEdit
Left = 16
Top = 144
Width = 81
Height = 21
MaxLength = 10
TabOrder = 5
end
object Efax: TEdit
Left = 112
Top = 144
Width = 81
Height = 21
MaxLength = 10
TabOrder = 6
end
object EEmail: TEdit
Left = 208
Top = 144
Width = 233
Height = 21
TabOrder = 7
end
end
object ButtonInfo: TButton
Left = 16
Top = 208
Width = 121
Height = 17
Caption = 'Information'
TabOrder = 6
Visible = False
OnClick = ButtonInfoClick
end
object TimerAnalyse: TTimer
Enabled = False
Interval = 2000
OnTimer = TimerAnalyseTimer
Left = 376
Top = 8
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 560
Top = 168
end
end