Statistiques
| Révision:

root / LicensesMercure / UFAgreement.dfm @ 1

Historique | Voir | Annoter | Télécharger (4,376 ko)

1 
object FAgreement: TFAgreement
2 
  Left = 0
3 
  Top = 120
4 
  Caption = 'Enregistrement des signatures de contrats'
5 
  ClientHeight = 200
6 
  ClientWidth = 600
7 
  Color = clBtnFace
8 
  Font.Charset = DEFAULT_CHARSET
9 
  Font.Color = clWindowText
10 
  Font.Height = -11
11 
  Font.Name = 'MS Sans Serif'
12 
  Font.Style = []
13 
  OldCreateOrder = False
14 
  OnCreate = FormCreate
15 
  OnShow = FormShow
16 
  DesignSize = (
17 
    600
18 
    200)
19 
  PixelsPerInch = 96
20 
  TextHeight = 13
21 
  object LFirstName: TLabel
22 
    Left = 8
23 
    Top = 44
24 
    Width = 36
25 
    Height = 13
26 
    Caption = 'Pr'#233'nom'
27 
  end
28 
  object LLastName: TLabel
29 
    Left = 8
30 
    Top = 68
31 
    Width = 22
32 
    Height = 13
33 
    Caption = 'Nom'
34 
  end
35 
  object LCompany: TLabel
36 
    Left = 8
37 
    Top = 92
38 
    Width = 36
39 
    Height = 13
40 
    Caption = 'Soci'#233't'#233
41 
  end
42 
  object LLicenseNumber: TLabel
43 
    Left = 8
44 
    Top = 12
45 
    Width = 44
46 
    Height = 13
47 
    Caption = 'Num'#233'ro'
48 
    Font.Charset = DEFAULT_CHARSET
49 
    Font.Color = clWindowText
50 
    Font.Height = -11
51 
    Font.Name = 'MS Sans Serif'
52 
    Font.Style = [fsBold]
53 
    ParentFont = False
54 
  end
55 
  object MObservations: TMemo
56 
    Left = 0
57 
    Top = 120
58 
    Width = 600
59 
    Height = 80
60 
    Anchors = [akLeft, akTop, akRight, akBottom]
61 
    ScrollBars = ssVertical
62 
    TabOrder = 0
63 
  end
64 
  object CBLicenseNumber: TComboBox
65 
    Left = 72
66 
    Top = 8
67 
    Width = 200
68 
    Height = 21
69 
    Style = csDropDownList
70 
    ItemHeight = 0
71 
    ParentShowHint = False
72 
    ShowHint = True
73 
    TabOrder = 1
74 
    OnChange = CBLicenseNumberChange
75 
  end
76 
  object BBNext: TBitBtn
77 
    Left = 280
78 
    Top = 8
79 
    Width = 24
80 
    Height = 24
81 
    Hint = 'Valider la signature du contrat'
82 
    Enabled = False
83 
    Glyph.Data = {
84 
      76010000424D7601000000000000760000002800000020000000100000000100
85 
      0400000000000001000000000000000000001000000000000000000000000000
86 
      80000080000000808000800000008000800080800000C0C0C000808080000000
87 
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
88 
      DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
89 
      DDDDDDDDDDDDDDDDDDDDDDDDDDD0DDDDDDDDDDDDDDD8DDDDDDDDDDDDDDD00DDD
90 
      DDDDDDDDDDD88DDDDDDDDDDDDDD0C0DDDDDDDDDDDDD8D8DDDDDDDDD00000CC0D
91 
      DDDDDDD88888DD8DDDDDDDD0CCCCCCC0DDDDDDD8DDDDDDD8DDDDDDD0CCCCCCCC
92 
      0DDDDDD8DDDDDDDD8DDDDDD0CCCCCCC0DDDDDDD8DDDDDDD8DDDDDDD00000CC0D
93 
      DDDDDDD88888DD8DDDDDDDDDDDD0C0DDDDDDDDDDDDD8D8DDDDDDDDDDDDD00DDD
94 
      DDDDDDDDDDD88DDDDDDDDDDDDDD0DDDDDDDDDDDDDDD8DDDDDDDDDDDDDDDDDDDD
95 
      DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
96 
    NumGlyphs = 2
97 
    ParentShowHint = False
98 
    ShowHint = True
99 
    TabOrder = 2
100 
    OnClick = BBNextClick
101 
  end
102 
  object ECompany: TEdit
103 
    Left = 72
104 
    Top = 88
105 
    Width = 320
106 
    Height = 21
107 
    MaxLength = 30
108 
    ReadOnly = True
109 
    TabOrder = 3
110 
  end
111 
  object ELastName: TEdit
112 
    Left = 72
113 
    Top = 64
114 
    Width = 240
115 
    Height = 21
116 
    MaxLength = 30
117 
    ReadOnly = True
118 
    TabOrder = 4
119 
  end
120 
  object EFirstName: TEdit
121 
    Left = 72
122 
    Top = 40
123 
    Width = 240
124 
    Height = 21
125 
    MaxLength = 30
126 
    ReadOnly = True
127 
    TabOrder = 5
128 
  end
129 
  object SMTP: TIdSMTP
130 
    IOHandler = OpenSSL_SMTP
131 
    Port = 587
132 
    SASLMechanisms = <>
133 
    UseTLS = utUseExplicitTLS
134 
    Left = 536
135 
    Top = 8
136 
  end
137 
  object MKey: TIdMessage
138 
    AttachmentEncoding = 'MIME'
139 
    BccList = <>
140 
    CharSet = 'utf-8'
141 
    CCList = <>
142 
    ContentType = 'multipart/mixed'
143 
    Encoding = meMIME
144 
    FromList = <
145 
      item
146 
      end>
147 
    Recipients = <>
148 
    ReplyTo = <>
149 
    ConvertPreamble = True
150 
    Left = 568
151 
    Top = 8
152 
  end
153 
  object IMAP4: TIdIMAP4
154 
    IOHandler = OpenSSL_IMAP4
155 
    Port = 993
156 
    UseTLS = utUseImplicitTLS
157 
    SASLMechanisms = <>
158 
    MilliSecsToWaitToClearBuffer = 10
159 
    Left = 504
160 
    Top = 8
161 
  end
162 
  object OpenSSL_IMAP4: TIdSSLIOHandlerSocketOpenSSL
163 
    Destination = ':993'
164 
    MaxLineAction = maException
165 
    Port = 993
166 
    DefaultPort = 0
167 
    SSLOptions.Mode = sslmUnassigned
168 
    SSLOptions.VerifyMode = []
169 
    SSLOptions.VerifyDepth = 0
170 
    Left = 504
171 
    Top = 56
172 
  end
173 
  object OpenSSL_SMTP: TIdSSLIOHandlerSocketOpenSSL
174 
    Destination = ':587'
175 
    MaxLineAction = maException
176 
    Port = 587
177 
    DefaultPort = 0
178 
    SSLOptions.Mode = sslmUnassigned
179 
    SSLOptions.VerifyMode = []
180 
    SSLOptions.VerifyDepth = 0
181 
    Left = 536
182 
    Top = 56
183 
  end
184 
end