-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathAPropos.frm
134 lines (123 loc) · 3.94 KB
/
APropos.frm
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
VERSION 5.00
Begin VB.Form frmApropos
BorderStyle = 3 'Fixed Dialog
Caption = "A propos de "
ClientHeight = 3360
ClientLeft = 1815
ClientTop = 2505
ClientWidth = 4785
LinkTopic = "frmApropos"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 3360
ScaleWidth = 4785
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdOK
Caption = "OK"
Height = 495
Left = 3360
TabIndex = 1
Top = 2520
Width = 1095
End
Begin VB.Label lblMaitrise
Alignment = 2 'Center
Caption = "En collaboration"
Height = 255
Index = 2
Left = 3360
TabIndex = 4
Top = 480
Width = 1215
End
Begin VB.Label lblMaitrise
Alignment = 2 'Center
Caption = "Maitrise d'oeuvre"
Height = 255
Index = 1
Left = 1800
TabIndex = 3
Top = 480
Width = 1215
End
Begin VB.Label lblMaitrise
Alignment = 2 'Center
Caption = "Maitrise d'ouvrage"
Height = 255
Index = 0
Left = 120
TabIndex = 2
Top = 480
Width = 1335
End
Begin VB.Line linSeparation
BorderWidth = 3
X1 = 360
X2 = 4440
Y1 = 2160
Y2 = 2160
End
Begin VB.Image imgLogo
Height = 975
Index = 2
Left = 3480
Picture = "APropos.frx":0000
Stretch = -1 'True
Top = 960
Width = 975
End
Begin VB.Image imgLogo
Height = 975
Index = 0
Left = 360
Picture = "APropos.frx":2BEF
Stretch = -1 'True
Top = 960
Width = 975
End
Begin VB.Image imgLogo
Height = 975
Index = 1
Left = 1920
Picture = "APropos.frx":42801
Stretch = -1 'True
Top = 960
Width = 975
End
Begin VB.Label lblVersion
BorderStyle = 1 'Fixed Single
Caption = "Girabase Version "
Height = 495
Left = 360
TabIndex = 0
Top = 2520
Width = 2655
End
End
Attribute VB_Name = "frmApropos"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************************
' GIRATION v3 - CERTU/CETE de l'Ouest
' Septembre 97
' Réalisation : André VIGNAUD
' Module de feuille : frmApropos - Fichier APROPOS.FRM
'**************************************************************************************
Option Explicit
Const IDl_LicenceNumero = "Licence n° "
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Icon = MDIGirabase.Icon
'Affichage centré de la fenêtre
Me.ScaleMode = vbTwips
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Caption = Caption & App.Title
lblVersion.Caption = App.Title & " " & IDl_Version & " " & App.Major & "." & App.Minor & "." & App.Revision
lblVersion.Caption = lblVersion.Caption & vbCrLf & LBLICENCE & NumeroLicence
End Sub