Révision 1
| LicensesMercure/Messages/Renouvellement_EN.txt | ||
|---|---|---|
| 1 |
Please your updated license activation file in the attached file, so that you can continue using InraPorc after December 31st. |
|
| 2 |
We have recently updated InraPorc to facilitate working with license activation files. Please make sure that you have a version of InraPorc equal (or newer) than version 1.6. Look under <Help>, <About ...> to see the current version of InraPorc. |
|
| 3 |
Save the attached file (e.g., on your desktop) and start the InraPorc software. Open the license window, click on the "Import" button and point to the location where you saved the attached file. After clicking on "OK" (twice), InraPorc should work normally. If you look under <Help>, <About ...>, you will see that the license activation key has been updated for the next year. You will receive a new license activation file before the next expiration date. |
|
| LicensesMercure/Messages/Signature_FR.txt | ||
|---|---|---|
| 1 |
Cordialement |
|
| 2 |
-- |
|
| 3 |
L'équipe de développement d'InraPorc |
|
| 4 |
INRA - UMR PEGASE, 35590 Saint-Gilles FRANCE |
|
| 5 |
Ne répondez pas à ce message, mais posez vos questions à l'aide du formulaire prévu à cet effet sur le site web d'InraPorc. |
|
| 6 |
http://w3.rennes.inra.fr/inraporc/ |
|
| LicensesMercure/Messages/Renouvellement_FR.txt | ||
|---|---|---|
| 1 |
Veuillez trouver ci-joint votre nouveau fichier d'activation du logiciel qui vous permettra d'utiliser InraPorc après le 31 décembre. |
|
| 2 |
Nous avons récemment mis à jour InraPorc pour faciliter la manipulation des fichiers d'activation de licence. Assurez-vous que vous avez au minimum la version 1.6. Regardez sous <Aide>, <A propos...> pour savoir la version courante d'InraPorc. |
|
| 3 |
Enregistrez le fichier ci-joint (par exemple sur votre bureau), puis lancez le logiciel InraPorc. Dans la fenêtre de gestion de la licence, cliquez sur le bouton "Importation" et indiquer l'endroit où vous avez enregistré le fichier. Après avoir cliqué sur "OK" (deux fois), InraPorc devrait fonctionner dans le mode de licence approprié. Regardez dans le menu <Aide>, <A propos...>, vous verrez que la clé d'activation a été mise à jour pour l'année suivante. Un nouveau fichier de licence vous sera automatiquement envoyé avant la date d'expiration. |
|
| LicensesMercure/Messages/Clé_EN.txt | ||
|---|---|---|
| 1 |
Please find in the e-mail attachment of the message the license file, which includes the license activation key for InraPorc. |
|
| 2 |
Save the attached file (e.g., on your desktop) and start the InraPorc software. Open the license window, click on the "Import" button and point to the location where you saved the attached file. After clicking on "OK" (twice), InraPorc should work in the appropriate license mode. |
|
| LicensesMercure/Messages/Contrat_EN.txt | ||
|---|---|---|
| 1 |
Please find in the e-mail attachment of the message the license file, which includes the new license activation key for InraPorc. |
|
| 2 |
Save the attached file (e.g., on your desktop) and start the InraPorc software. Open the license window, click on the "Import" button and point to the location where you saved the attached file. After clicking on "OK" (twice), InraPorc should work in the appropriate license mode. |
|
| LicensesMercure/Messages/ManuelIntégré_EN.txt | ||
|---|---|---|
| 1 |
Please find at the bottom of this e-mail the information to activate InraPorc software. |
|
| 2 |
Use a text editor (such as notepad) and paste the the data below in your text editor. Then save the text file (e.g., on your desktop) and start the InraPorc software. Open the license window, click on the "Import" button and point to the location where you saved the text file. After clicking on "OK" (twice), InraPorc should work in the appropriate license mode. |
|
| LicensesMercure/Messages/Clé_FR.txt | ||
|---|---|---|
| 1 |
Veuillez trouver ci-joint le fichier de licence contenant la clé d'activation du logiciel InraPorc. |
|
| 2 |
Enregistrez le fichier ci-joint (par exemple sur votre bureau), puis lancez le logiciel InraPorc. Dans la fenêtre de gestion de la licence, cliquez sur le bouton "Importation" et indiquer l'endroit où vous avez enregistré le fichier. Après avoir cliqué sur "OK" (deux fois), InraPorc devrait fonctionner dans le mode de licence approprié. |
|
| LicensesMercure/Messages/Contrat_FR.txt | ||
|---|---|---|
| 1 |
Veuillez trouver ci-joint le fichier de licence contenant la nouvelle clé d'activation du logiciel InraPorc. |
|
| 2 |
Enregistrez le fichier ci-joint (par exemple sur votre bureau), puis lancez le logiciel InraPorc. Dans la fenêtre de gestion de la licence, cliquez sur le bouton "Importation" et indiquer l'endroit où vous avez enregistré le fichier. Après avoir cliqué sur "OK" (deux fois), InraPorc devrait fonctionner dans le mode de licence approprié. |
|
| LicensesMercure/Messages/ManuelAttaché_EN.txt | ||
|---|---|---|
| 1 |
Please find in the e-mail attachment of the message the license file, which includes the license activation key for InraPorc. |
|
| 2 |
Save the attached file (e.g., on your desktop) and start the InraPorc software. Open the license window, click on the "Import" button and point to the location where you saved the attached file. After clicking on "OK" (twice), InraPorc should work in the appropriate license mode. |
|
| LicensesMercure/Messages/ManuelIntégré_FR.txt | ||
|---|---|---|
| 1 |
Veuillez trouver à la fin de ce message les informations d'activation du logiciel InraPorc. |
|
| 2 |
Utilisez un éditeur de texte (tel que le Bloc-notes) pour y coller les informations ci-dessous. Enregistre le fichier texte (par exemple sur votre bureau), puis lancez le logiciel InraPorc. Dans la fenêtre de gestion de la licence, cliquez sur le bouton "Importation" et indiquer l'endroit où vous avez enregistré le fichier. Après avoir cliqué sur "OK" (deux fois), InraPorc devrait fonctionner dans le mode de licence approprié. |
|
| LicensesMercure/Messages/Commande_EN.txt | ||
|---|---|---|
| 1 |
Please communicate the license numbers to the persons concerned. The license number is required to obtain a license activation key for the complete version of InraPorc. |
|
| 2 |
For further information concerning the installation of InraPorc, consult the InraPorc helpfile or the web site (www.rennes.inra.fr/inraporc/EN). |
|
| LicensesMercure/Messages/ManuelAttaché_FR.txt | ||
|---|---|---|
| 1 |
Veuillez trouver ci-joint le fichier de licence contenant la clé d'activation du logiciel InraPorc. |
|
| 2 |
Enregistrez le fichier ci-joint (par exemple sur votre bureau), puis lancez le logiciel InraPorc. Dans la fenêtre de gestion de la licence, cliquez sur le bouton "Importation" et indiquer l'endroit où vous avez enregistré le fichier. Après avoir cliqué sur "OK" (deux fois), InraPorc devrait fonctionner dans le mode de licence approprié. |
|
| LicensesMercure/Messages/Commande_FR.txt | ||
|---|---|---|
| 1 |
Merci de communiquer les numéros de licence aux personnes concernées. Ces numéros sont nécessaires pour obtenir une clé d'activation requise pour la version complète d'InraPorc. |
|
| 2 |
Pour toute information au sujet de l'installation d'InraPorc consulter l'aide en ligne ou le site web (www.rennes.inra.fr/inraporc/FR). |
|
| LicensesMercure/Messages/Facture_EN.txt | ||
|---|---|---|
| 1 |
Please find in the e-mail attachment of the message the license file, which includes the new license activation key for InraPorc. |
|
| 2 |
Save the attached file (e.g., on your desktop) and start the InraPorc software. Open the license window, click on the "Import" button and point to the location where you saved the attached file. After clicking on "OK" (twice), InraPorc should work in the appropriate license mode. |
|
| LicensesMercure/Messages/Facture_FR.txt | ||
|---|---|---|
| 1 |
Veuillez trouver ci-joint le fichier de licence contenant la nouvelle clé d'activation du logiciel InraPorc. |
|
| 2 |
Enregistrez le fichier ci-joint (par exemple sur votre bureau), puis lancez le logiciel InraPorc. Dans la fenêtre de gestion de la licence, cliquez sur le bouton "Importation" et indiquer l'endroit où vous avez enregistré le fichier. Après avoir cliqué sur "OK" (deux fois), InraPorc devrait fonctionner dans le mode de licence approprié. |
|
| LicensesMercure/Messages/Signature_EN.txt | ||
|---|---|---|
| 1 |
Sincerely yours |
|
| 2 |
-- |
|
| 3 |
The InraPorc development group |
|
| 4 |
INRA - UMR PEGASE, 35590 Saint-Gilles FRANCE |
|
| 5 |
Do not reply to this mail, but rather submit your questions using the Support form on the InraPorc web site. |
|
| 6 |
http://w3.rennes.inra.fr/inraporc/ |
|
| LicensesMercure/Licenses.bdsproj | ||
|---|---|---|
| 1 |
<?xml version="1.0" encoding="utf-8"?> |
|
| 2 |
<BorlandProject> |
|
| 3 |
<PersonalityInfo> |
|
| 4 |
<Option> |
|
| 5 |
<Option Name="Personality">Delphi.Personality</Option> |
|
| 6 |
<Option Name="ProjectType">VCLApplication</Option> |
|
| 7 |
<Option Name="Version">1.0</Option> |
|
| 8 |
<Option Name="GUID">{A22AC3B2-8879-48C4-8DF5-CABE366E5FAF}</Option>
|
|
| 9 |
</Option> |
|
| 10 |
</PersonalityInfo> |
|
| 11 |
<Delphi.Personality> |
|
| 12 |
<Source> |
|
| 13 |
<Source Name="MainSource">Licenses.dpr</Source> |
|
| 14 |
</Source> |
|
| 15 |
<FileVersion> |
|
| 16 |
<FileVersion Name="Version">7.0</FileVersion> |
|
| 17 |
</FileVersion> |
|
| 18 |
<Compiler> |
|
| 19 |
<Compiler Name="A">8</Compiler> |
|
| 20 |
<Compiler Name="B">0</Compiler> |
|
| 21 |
<Compiler Name="C">1</Compiler> |
|
| 22 |
<Compiler Name="D">1</Compiler> |
|
| 23 |
<Compiler Name="E">0</Compiler> |
|
| 24 |
<Compiler Name="F">0</Compiler> |
|
| 25 |
<Compiler Name="G">1</Compiler> |
|
| 26 |
<Compiler Name="H">1</Compiler> |
|
| 27 |
<Compiler Name="I">1</Compiler> |
|
| 28 |
<Compiler Name="J">0</Compiler> |
|
| 29 |
<Compiler Name="K">0</Compiler> |
|
| 30 |
<Compiler Name="L">1</Compiler> |
|
| 31 |
<Compiler Name="M">0</Compiler> |
|
| 32 |
<Compiler Name="N">1</Compiler> |
|
| 33 |
<Compiler Name="O">1</Compiler> |
|
| 34 |
<Compiler Name="P">1</Compiler> |
|
| 35 |
<Compiler Name="Q">0</Compiler> |
|
| 36 |
<Compiler Name="R">0</Compiler> |
|
| 37 |
<Compiler Name="S">0</Compiler> |
|
| 38 |
<Compiler Name="T">0</Compiler> |
|
| 39 |
<Compiler Name="U">0</Compiler> |
|
| 40 |
<Compiler Name="V">1</Compiler> |
|
| 41 |
<Compiler Name="W">0</Compiler> |
|
| 42 |
<Compiler Name="X">1</Compiler> |
|
| 43 |
<Compiler Name="Y">1</Compiler> |
|
| 44 |
<Compiler Name="Z">1</Compiler> |
|
| 45 |
<Compiler Name="ShowHints">True</Compiler> |
|
| 46 |
<Compiler Name="ShowWarnings">True</Compiler> |
|
| 47 |
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler> |
|
| 48 |
<Compiler Name="NamespacePrefix"></Compiler> |
|
| 49 |
<Compiler Name="GenerateDocumentation">False</Compiler> |
|
| 50 |
<Compiler Name="DefaultNamespace"></Compiler> |
|
| 51 |
<Compiler Name="SymbolDeprecated">True</Compiler> |
|
| 52 |
<Compiler Name="SymbolLibrary">True</Compiler> |
|
| 53 |
<Compiler Name="SymbolPlatform">True</Compiler> |
|
| 54 |
<Compiler Name="SymbolExperimental">True</Compiler> |
|
| 55 |
<Compiler Name="UnitLibrary">True</Compiler> |
|
| 56 |
<Compiler Name="UnitPlatform">True</Compiler> |
|
| 57 |
<Compiler Name="UnitDeprecated">True</Compiler> |
|
| 58 |
<Compiler Name="UnitExperimental">True</Compiler> |
|
| 59 |
<Compiler Name="HResultCompat">True</Compiler> |
|
| 60 |
<Compiler Name="HidingMember">True</Compiler> |
|
| 61 |
<Compiler Name="HiddenVirtual">True</Compiler> |
|
| 62 |
<Compiler Name="Garbage">True</Compiler> |
|
| 63 |
<Compiler Name="BoundsError">True</Compiler> |
|
| 64 |
<Compiler Name="ZeroNilCompat">True</Compiler> |
|
| 65 |
<Compiler Name="StringConstTruncated">True</Compiler> |
|
| 66 |
<Compiler Name="ForLoopVarVarPar">True</Compiler> |
|
| 67 |
<Compiler Name="TypedConstVarPar">True</Compiler> |
|
| 68 |
<Compiler Name="AsgToTypedConst">True</Compiler> |
|
| 69 |
<Compiler Name="CaseLabelRange">True</Compiler> |
|
| 70 |
<Compiler Name="ForVariable">True</Compiler> |
|
| 71 |
<Compiler Name="ConstructingAbstract">True</Compiler> |
|
| 72 |
<Compiler Name="ComparisonFalse">True</Compiler> |
|
| 73 |
<Compiler Name="ComparisonTrue">True</Compiler> |
|
| 74 |
<Compiler Name="ComparingSignedUnsigned">True</Compiler> |
|
| 75 |
<Compiler Name="CombiningSignedUnsigned">True</Compiler> |
|
| 76 |
<Compiler Name="UnsupportedConstruct">True</Compiler> |
|
| 77 |
<Compiler Name="FileOpen">True</Compiler> |
|
| 78 |
<Compiler Name="FileOpenUnitSrc">True</Compiler> |
|
| 79 |
<Compiler Name="BadGlobalSymbol">True</Compiler> |
|
| 80 |
<Compiler Name="DuplicateConstructorDestructor">True</Compiler> |
|
| 81 |
<Compiler Name="InvalidDirective">True</Compiler> |
|
| 82 |
<Compiler Name="PackageNoLink">True</Compiler> |
|
| 83 |
<Compiler Name="PackageThreadVar">True</Compiler> |
|
| 84 |
<Compiler Name="ImplicitImport">True</Compiler> |
|
| 85 |
<Compiler Name="HPPEMITIgnored">True</Compiler> |
|
| 86 |
<Compiler Name="NoRetVal">True</Compiler> |
|
| 87 |
<Compiler Name="UseBeforeDef">True</Compiler> |
|
| 88 |
<Compiler Name="ForLoopVarUndef">True</Compiler> |
|
| 89 |
<Compiler Name="UnitNameMismatch">True</Compiler> |
|
| 90 |
<Compiler Name="NoCFGFileFound">True</Compiler> |
|
| 91 |
<Compiler Name="ImplicitVariants">True</Compiler> |
|
| 92 |
<Compiler Name="UnicodeToLocale">True</Compiler> |
|
| 93 |
<Compiler Name="LocaleToUnicode">True</Compiler> |
|
| 94 |
<Compiler Name="ImagebaseMultiple">True</Compiler> |
|
| 95 |
<Compiler Name="SuspiciousTypecast">True</Compiler> |
|
| 96 |
<Compiler Name="PrivatePropAccessor">True</Compiler> |
|
| 97 |
<Compiler Name="UnsafeType">False</Compiler> |
|
| 98 |
<Compiler Name="UnsafeCode">False</Compiler> |
|
| 99 |
<Compiler Name="UnsafeCast">False</Compiler> |
|
| 100 |
<Compiler Name="OptionTruncated">True</Compiler> |
|
| 101 |
<Compiler Name="WideCharReduced">True</Compiler> |
|
| 102 |
<Compiler Name="DuplicatesIgnored">True</Compiler> |
|
| 103 |
<Compiler Name="UnitInitSeq">True</Compiler> |
|
| 104 |
<Compiler Name="LocalPInvoke">True</Compiler> |
|
| 105 |
<Compiler Name="MessageDirective">True</Compiler> |
|
| 106 |
<Compiler Name="CodePage"></Compiler> |
|
| 107 |
</Compiler> |
|
| 108 |
<Linker> |
|
| 109 |
<Linker Name="MapFile">0</Linker> |
|
| 110 |
<Linker Name="OutputObjs">0</Linker> |
|
| 111 |
<Linker Name="GenerateHpps">False</Linker> |
|
| 112 |
<Linker Name="ConsoleApp">1</Linker> |
|
| 113 |
<Linker Name="DebugInfo">False</Linker> |
|
| 114 |
<Linker Name="RemoteSymbols">False</Linker> |
|
| 115 |
<Linker Name="GenerateDRC">False</Linker> |
|
| 116 |
<Linker Name="MinStackSize">16384</Linker> |
|
| 117 |
<Linker Name="MaxStackSize">1048576</Linker> |
|
| 118 |
<Linker Name="ImageBase">4194304</Linker> |
|
| 119 |
<Linker Name="ExeDescription"></Linker> |
|
| 120 |
</Linker> |
|
| 121 |
<Directories> |
|
| 122 |
<Directories Name="OutputDir"></Directories> |
|
| 123 |
<Directories Name="UnitOutputDir"></Directories> |
|
| 124 |
<Directories Name="PackageDLLOutputDir"></Directories> |
|
| 125 |
<Directories Name="PackageDCPOutputDir"></Directories> |
|
| 126 |
<Directories Name="SearchPath"></Directories> |
|
| 127 |
<Directories Name="Packages"></Directories> |
|
| 128 |
<Directories Name="Conditionals"></Directories> |
|
| 129 |
<Directories Name="DebugSourceDirs"></Directories> |
|
| 130 |
<Directories Name="UsePackages">False</Directories> |
|
| 131 |
</Directories> |
|
| 132 |
<Parameters> |
|
| 133 |
<Parameters Name="RunParams"></Parameters> |
|
| 134 |
<Parameters Name="HostApplication"></Parameters> |
|
| 135 |
<Parameters Name="Launcher"></Parameters> |
|
| 136 |
<Parameters Name="UseLauncher">False</Parameters> |
|
| 137 |
<Parameters Name="DebugCWD"></Parameters> |
|
| 138 |
<Parameters Name="Debug Symbols Search Path"></Parameters> |
|
| 139 |
<Parameters Name="LoadAllSymbols">True</Parameters> |
|
| 140 |
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters> |
|
| 141 |
</Parameters> |
|
| 142 |
<Language> |
|
| 143 |
<Language Name="ActiveLang"></Language> |
|
| 144 |
<Language Name="ProjectLang">$00000000</Language> |
|
| 145 |
<Language Name="RootDir"></Language> |
|
| 146 |
</Language> |
|
| 147 |
<VersionInfo> |
|
| 148 |
<VersionInfo Name="IncludeVerInfo">False</VersionInfo> |
|
| 149 |
<VersionInfo Name="AutoIncBuild">False</VersionInfo> |
|
| 150 |
<VersionInfo Name="MajorVer">1</VersionInfo> |
|
| 151 |
<VersionInfo Name="MinorVer">0</VersionInfo> |
|
| 152 |
<VersionInfo Name="Release">0</VersionInfo> |
|
| 153 |
<VersionInfo Name="Build">0</VersionInfo> |
|
| 154 |
<VersionInfo Name="Debug">False</VersionInfo> |
|
| 155 |
<VersionInfo Name="PreRelease">False</VersionInfo> |
|
| 156 |
<VersionInfo Name="Special">False</VersionInfo> |
|
| 157 |
<VersionInfo Name="Private">False</VersionInfo> |
|
| 158 |
<VersionInfo Name="DLL">False</VersionInfo> |
|
| 159 |
<VersionInfo Name="Locale">1036</VersionInfo> |
|
| 160 |
<VersionInfo Name="CodePage">1252</VersionInfo> |
|
| 161 |
</VersionInfo> |
|
| 162 |
<VersionInfoKeys> |
|
| 163 |
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys> |
|
| 164 |
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> |
|
| 165 |
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> |
|
| 166 |
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> |
|
| 167 |
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> |
|
| 168 |
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> |
|
| 169 |
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> |
|
| 170 |
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> |
|
| 171 |
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> |
|
| 172 |
<VersionInfoKeys Name="Comments"></VersionInfoKeys> |
|
| 173 |
</VersionInfoKeys> |
|
| 174 |
</Delphi.Personality> |
|
| 175 |
</BorlandProject> |
|
| LicensesMercure/UFAgreement.dfm | ||
|---|---|---|
| 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 |
|
| LicensesMercure/UFInvoice.pas | ||
|---|---|---|
| 1 |
unit UFInvoice; |
|
| 2 |
|
|
| 3 |
interface |
|
| 4 |
|
|
| 5 |
uses |
|
| 6 |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
|
| 7 |
Dialogs, StdCtrls, PBNumEdit, Buttons, ComCtrls, IniFiles, IdMessage, |
|
| 8 |
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, |
|
| 9 |
IdMessageClient, IdAttachmentFile, IdSMTP, DateUtils, |
|
| 10 |
IdExplicitTLSClientServerBase, IdSMTPBase, IdIMAP4, IdIOHandler, |
|
| 11 |
IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL; |
|
| 12 |
|
|
| 13 |
type |
|
| 14 |
TFInvoice = class(TForm) |
|
| 15 |
CBOrder: TComboBox; |
|
| 16 |
LOrder: TLabel; |
|
| 17 |
LPayment: TLabel; |
|
| 18 |
DTPPayment: TDateTimePicker; |
|
| 19 |
BBNext: TBitBtn; |
|
| 20 |
LLicenses: TLabel; |
|
| 21 |
PBLicenses: TPBNumEdit; |
|
| 22 |
MObservations: TMemo; |
|
| 23 |
SMTP: TIdSMTP; |
|
| 24 |
MKey: TIdMessage; |
|
| 25 |
IMAP4: TIdIMAP4; |
|
| 26 |
OpenSSL_IMAP4: TIdSSLIOHandlerSocketOpenSSL; |
|
| 27 |
OpenSSL_SMTP: TIdSSLIOHandlerSocketOpenSSL; |
|
| 28 |
procedure CBOrderChange(Sender: TObject); |
|
| 29 |
procedure BBNextClick(Sender: TObject); |
|
| 30 |
procedure FormShow(Sender: TObject); |
|
| 31 |
procedure FormCreate(Sender: TObject); |
|
| 32 |
private |
|
| 33 |
{ D?clarations priv?es }
|
|
| 34 |
procedure ClearInvoice; |
|
| 35 |
public |
|
| 36 |
{ D?clarations publiques }
|
|
| 37 |
end; |
|
| 38 |
|
|
| 39 |
var |
|
| 40 |
FInvoice: TFInvoice; |
|
| 41 |
|
|
| 42 |
implementation |
|
| 43 |
|
|
| 44 |
uses |
|
| 45 |
UFMenu; |
|
| 46 |
|
|
| 47 |
{$R *.dfm}
|
|
| 48 |
|
|
| 49 |
procedure TFInvoice.FormCreate(Sender: TObject); |
|
| 50 |
begin |
|
| 51 |
Top := 0; |
|
| 52 |
Left := 0; |
|
| 53 |
DTPPayment.DateTime := Now; |
|
| 54 |
with IMAP4 do |
|
| 55 |
begin |
|
| 56 |
Host := IMAP_SERVER; |
|
| 57 |
// Username := EXCHANGE_USERNAME + '\' + EXCHANGE_SHARED_MAILBOX; |
|
| 58 |
Username := 'INRA\' + FMenu.EUsername.Text + '\' + EXCHANGE_SHARED_MAILBOX; |
|
| 59 |
// Password := EXCHANGE_PASSWORD; |
|
| 60 |
Password := FMenu.EPassword.Text; |
|
| 61 |
end; |
|
| 62 |
with SMTP do |
|
| 63 |
begin |
|
| 64 |
Host := SMTP_SERVER; |
|
| 65 |
// Username := EXCHANGE_USERNAME; |
|
| 66 |
Username := 'INRA\' + FMenu.EUsername.Text; |
|
| 67 |
// Password := EXCHANGE_PASSWORD; |
|
| 68 |
Password := FMenu.EPassword.Text; |
|
| 69 |
end; |
|
| 70 |
end; |
|
| 71 |
|
|
| 72 |
procedure TFInvoice.FormShow(Sender: TObject); |
|
| 73 |
begin |
|
| 74 |
CBOrder.Clear; |
|
| 75 |
with FMenu.TOrder do |
|
| 76 |
begin |
|
| 77 |
First; |
|
| 78 |
while not Eof do |
|
| 79 |
begin |
|
| 80 |
if FieldByName('Payment').IsNull
|
|
| 81 |
then |
|
| 82 |
CBOrder.Items.Add(FieldByName('Key').AsString);
|
|
| 83 |
Next; |
|
| 84 |
end; |
|
| 85 |
end; |
|
| 86 |
ClearInvoice; |
|
| 87 |
end; |
|
| 88 |
|
|
| 89 |
procedure TFInvoice.CBOrderChange(Sender: TObject); |
|
| 90 |
begin |
|
| 91 |
if CBOrder.ItemIndex = -1 then Exit; |
|
| 92 |
with FMenu.TOrder do |
|
| 93 |
if FindKey([CBOrder.Text]) |
|
| 94 |
then |
|
| 95 |
begin |
|
| 96 |
PBLicenses.AsInteger := FieldByName('Licenses').AsInteger;
|
|
| 97 |
BBNext.Enabled := PBLicenses.AsInteger > 0; |
|
| 98 |
ActiveControl := DTPPayment; |
|
| 99 |
end; |
|
| 100 |
end; |
|
| 101 |
|
|
| 102 |
procedure TFInvoice.BBNextClick(Sender: TObject); |
|
| 103 |
var |
|
| 104 |
n: Integer; |
|
| 105 |
f: TIniFile; |
|
| 106 |
StrMessage: TStrings; |
|
| 107 |
begin |
|
| 108 |
FMenu.MLog.Lines.Add('Updating order...');
|
|
| 109 |
with FMenu.TOrder do |
|
| 110 |
begin |
|
| 111 |
Edit; |
|
| 112 |
FieldByName('Payment').AsDateTime := DTPPayment.Date;
|
|
| 113 |
Post; |
|
| 114 |
end; |
|
| 115 |
FMenu.MLog.Lines.Add('Updating licenses...');
|
|
| 116 |
n := 0; |
|
| 117 |
with FMenu.TLicense do |
|
| 118 |
if Locate('Type;Source', VarArrayOf([0, CBOrder.Text]), [])
|
|
| 119 |
then |
|
| 120 |
repeat |
|
| 121 |
Inc(n); |
|
| 122 |
Edit; |
|
| 123 |
FieldByName('Validity').AsBoolean := True;
|
|
| 124 |
if not FieldByName('Mail').IsNull
|
|
| 125 |
and (FieldByName('FinalDate').AsDateTime < FMenu.DateLimite)
|
|
| 126 |
then // Envoyer une cl? de licence |
|
| 127 |
begin |
|
| 128 |
FieldByName('FinalDate').AsDateTime := FMenu.DateLimite;
|
|
| 129 |
FieldByName('SoftwareEnableKey').AsString := FMenu.CompleteKey(FieldByName('LicenseNumber').AsInteger, FieldByName('Version').AsString, FieldByName('FirstName').AsString, FieldByName('LastName').AsString, FieldByName('Company').AsString, FieldByName('VolumeSerialNumber').AsString, DateToStr(FMenu.DateLimite));
|
|
| 130 |
try |
|
| 131 |
f := TIniFile.Create(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic'); |
|
| 132 |
f.WriteInteger ('License', 'LicenseType', 2);
|
|
| 133 |
f.WriteInteger ('License', 'LicenseNumber', FieldByName('LicenseNumber').AsInteger) ;
|
|
| 134 |
f.WriteString ('License', 'Version', FieldByName('Version').AsString);
|
|
| 135 |
f.WriteString ('License', 'FirstName', FieldByName('FirstName').AsString);
|
|
| 136 |
f.WriteString ('License', 'LastName', FieldByName('LastName').AsString);
|
|
| 137 |
f.WriteString ('License', 'Company', FieldByName('Company').AsString);
|
|
| 138 |
f.WriteString ('License', 'Address1', FieldByName('Address1').AsString);
|
|
| 139 |
f.WriteString ('License', 'Address2', FieldByName('Address2').AsString);
|
|
| 140 |
f.WriteString ('License', 'PostalCode', FieldByName('PostalCode').AsString);
|
|
| 141 |
f.WriteString ('License', 'City', FieldByName('City').AsString);
|
|
| 142 |
f.WriteString ('License', 'Country', FieldByName('Country').AsString);
|
|
| 143 |
f.WriteString ('License', 'Phone', FieldByName('Phone').AsString);
|
|
| 144 |
f.WriteString ('License', 'Fax', FieldByName('Fax').AsString);
|
|
| 145 |
f.WriteString ('License', 'Mail', FieldByName('Mail').AsString);
|
|
| 146 |
f.WriteString ('License', 'VolumeSerialNumber', FieldByName('VolumeSerialNumber').AsString);
|
|
| 147 |
f.WriteString ('License', 'FinalDate', DateToStr(FieldByName('FinalDate').AsDateTime));
|
|
| 148 |
f.WriteString ('License', 'SoftwareEnableKey', FieldByName('SoftwareEnableKey').AsString);
|
|
| 149 |
f.Free; |
|
| 150 |
FMenu.MLog.Lines.Add('Mailing to ' + FieldByName('Mail').AsString + '...');
|
|
| 151 |
with MKey do |
|
| 152 |
begin |
|
| 153 |
Body.Clear; |
|
| 154 |
MessageParts.Clear; |
|
| 155 |
From.Name := 'InraPorc'; |
|
| 156 |
From.Address := MAIL_INRAPORC; |
|
| 157 |
Recipients.EMailAddresses := FieldByName('Mail').AsString;
|
|
| 158 |
StrMessage := TStringList.Create; |
|
| 159 |
if FieldByName('Language').AsString = 'FR'
|
|
| 160 |
then // R?ponse (fran?ais) |
|
| 161 |
begin |
|
| 162 |
Subject := Format('[InraPorc] Cl? d''activation pour licence num?ro %d', [FieldByName('LicenseNumber').AsInteger]);
|
|
| 163 |
StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Facture_FR.txt'); |
|
| 164 |
Body.AddStrings(StrMessage); |
|
| 165 |
Body.Add(Format('La cl? d''activation est valable jusqu''au %s.', [DateToStr(FieldByName('FinalDate').AsDateTime)]));
|
|
| 166 |
Body.Add('Un nouveau fichier de licence vous sera automatiquement envoy? avant la date d''expiration.');
|
|
| 167 |
Body.Add('');
|
|
| 168 |
StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Signature_FR.txt'); |
|
| 169 |
Body.AddStrings(StrMessage); |
|
| 170 |
end |
|
| 171 |
else // Reply (english) |
|
| 172 |
begin |
|
| 173 |
Subject := Format('[InraPorc] Software enable key for license number %d', [FieldByName('LicenseNumber').AsInteger]);
|
|
| 174 |
StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Facture_EN.txt'); |
|
| 175 |
Body.AddStrings(StrMessage); |
|
| 176 |
Body.Add(Format('The license activation key is valid until %s.', [DateToStr(FieldByName('FinalDate').AsDateTime)]));
|
|
| 177 |
Body.Add('You will automatically receive a new license file before the expiration date.');
|
|
| 178 |
Body.Add('');
|
|
| 179 |
StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Signature_EN.txt'); |
|
| 180 |
Body.AddStrings(StrMessage); |
|
| 181 |
end; |
|
| 182 |
StrMessage.Free; |
|
| 183 |
if FileExists(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic') |
|
| 184 |
then |
|
| 185 |
TIdAttachmentFile.Create(MessageParts, SHARED_DRIVE + SHARED_FOLDER + '\Fichiers\InraPorc.lic') |
|
| 186 |
else |
|
| 187 |
FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be attached !');
|
|
| 188 |
end; |
|
| 189 |
FMenu.MLog.Lines.Add('SMTP...');
|
|
| 190 |
try |
|
| 191 |
SMTP.Connect; |
|
| 192 |
try |
|
| 193 |
SMTP.Send(MKey); |
|
| 194 |
finally |
|
| 195 |
SMTP.Disconnect; |
|
| 196 |
if IMAP4.Connect |
|
| 197 |
then |
|
| 198 |
try |
|
| 199 |
if not IMAP4.AppendMsg('?l?ments envoy?s', MKey, MKey.LastGeneratedHeaders)
|
|
| 200 |
then |
|
| 201 |
FMenu.MLog.Lines.Add('Message could not be copied in IMAP server !');
|
|
| 202 |
finally |
|
| 203 |
IMAP4.Disconnect; |
|
| 204 |
end |
|
| 205 |
else |
|
| 206 |
FMenu.MLog.Lines.Add('IMAP server could not be connected !');
|
|
| 207 |
end; |
|
| 208 |
except |
|
| 209 |
FMenu.MLog.Lines.Add('Message could not be sent !');
|
|
| 210 |
end; |
|
| 211 |
if not DeleteFile(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic') |
|
| 212 |
then |
|
| 213 |
FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be deleted !');
|
|
| 214 |
except |
|
| 215 |
FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be created !');
|
|
| 216 |
end; |
|
| 217 |
end; |
|
| 218 |
Post; |
|
| 219 |
Next; |
|
| 220 |
until Eof or (FieldByName('Type').AsInteger <> 0) or (FieldByName('Source').AsString <> CBOrder.Text);
|
|
| 221 |
if n <> PBLicenses.AsInteger |
|
| 222 |
then |
|
| 223 |
FMenu.MLog.Lines.Add(Format('%d licenses updated / %d expected !', [n, PBLicenses.AsInteger]));
|
|
| 224 |
FMenu.MLog.Lines.Add('Logging record...');
|
|
| 225 |
with FMenu.TInvoices do |
|
| 226 |
begin |
|
| 227 |
Append; |
|
| 228 |
FieldByName('Date').AsDateTime := Now;
|
|
| 229 |
FieldByName('Admin').AsString := FMenu.EAdmin.Text;
|
|
| 230 |
FieldByName('Order').AsString := CBOrder.Text;
|
|
| 231 |
FieldByName('Payment').AsDateTime := DTPPayment.Date;
|
|
| 232 |
FieldByName('Observations').AsString := MObservations.Text;
|
|
| 233 |
Post; |
|
| 234 |
end; |
|
| 235 |
CBOrder.DeleteSelected; |
|
| 236 |
ClearInvoice; |
|
| 237 |
end; |
|
| 238 |
|
|
| 239 |
procedure TFInvoice.ClearInvoice; |
|
| 240 |
begin |
|
| 241 |
BBNext.Enabled := False; |
|
| 242 |
CBOrder.Hint := Format('%d factures en attente / %d commandes', [CBOrder.Items.Count, FMenu.TOrder.RecordCount]);
|
|
| 243 |
PBLicenses.Text := ''; |
|
| 244 |
MObservations.Clear; |
|
| 245 |
ActiveControl := CBOrder; |
|
| 246 |
end; |
|
| 247 |
|
|
| 248 |
end. |
|
| LicensesMercure/UFKeys.dfm | ||
|---|---|---|
| 1 |
object FKeys: TFKeys |
|
| 2 |
Left = 0 |
|
| 3 |
Top = 120 |
|
| 4 |
Hint = 'Prise en charge du dossier' |
|
| 5 |
Caption = 'Demandes de cl'#233's d'#39'activation' |
|
| 6 |
ClientHeight = 720 |
|
| 7 |
ClientWidth = 616 |
|
| 8 |
Color = clBtnFace |
|
| 9 |
Font.Charset = DEFAULT_CHARSET |
|
| 10 |
Font.Color = clWindowText |
|
| 11 |
Font.Height = -11 |
|
| 12 |
Font.Name = 'MS Sans Serif' |
|
| 13 |
Font.Style = [] |
|
| 14 |
OldCreateOrder = False |
|
| 15 |
OnCreate = FormCreate |
|
| 16 |
OnShow = FormShow |
|
| 17 |
DesignSize = ( |
|
| 18 |
616 |
|
| 19 |
720) |
|
| 20 |
PixelsPerInch = 96 |
|
| 21 |
TextHeight = 13 |
|
| 22 |
object LAdmin: TLabel |
|
| 23 |
Left = 352 |
|
| 24 |
Top = 12 |
|
| 25 |
Width = 126 |
|
| 26 |
Height = 13 |
|
| 27 |
Caption = 'Dossier pris en charge par ' |
|
| 28 |
Font.Charset = DEFAULT_CHARSET |
|
| 29 |
Font.Color = clRed |
|
| 30 |
Font.Height = -11 |
|
| 31 |
Font.Name = 'MS Sans Serif' |
|
| 32 |
Font.Style = [] |
|
| 33 |
ParentFont = False |
|
| 34 |
end |
|
| 35 |
object EKey: TEdit |
|
| 36 |
Left = 16 |
|
| 37 |
Top = 8 |
|
| 38 |
Width = 200 |
|
| 39 |
Height = 21 |
|
| 40 |
ReadOnly = True |
|
| 41 |
TabOrder = 0 |
|
| 42 |
end |
|
| 43 |
object BBSkip: TBitBtn |
|
| 44 |
Left = 224 |
|
| 45 |
Top = 8 |
|
| 46 |
Width = 24 |
|
| 47 |
Height = 24 |
|
| 48 |
Hint = 'Passer cette demande pour la traiter ult'#233'rieurement' |
|
| 49 |
Glyph.Data = {
|
|
| 50 |
76010000424D7601000000000000760000002800000020000000100000000100 |
|
| 51 |
0400000000000001000000000000000000001000000000000000000000000000 |
|
| 52 |
80000080000000808000800000008000800080800000C0C0C000808080000000 |
|
| 53 |
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD |
|
| 54 |
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD |
|
| 55 |
DDDDDDDDDDDDDDDDDDDDDDDDDDD0DDDDDDDDDDDDDDD8DDDDDDDDDDDDDDD00DDD |
|
| 56 |
DDDDDDDDDDD88DDDDDDDDDDDDDD0C0DDDDDDDDDDDDD8D8DDDDDDDDD00000CC0D |
|
| 57 |
DDDDDDD88888DD8DDDDDDDD0CCCCCCC0DDDDDDD8DDDDDDD8DDDDDDD0CCCCCCCC |
|
| 58 |
0DDDDDD8DDDDDDDD8DDDDDD0CCCCCCC0DDDDDDD8DDDDDDD8DDDDDDD00000CC0D |
|
| 59 |
DDDDDDD88888DD8DDDDDDDDDDDD0C0DDDDDDDDDDDDD8D8DDDDDDDDDDDDD00DDD |
|
| 60 |
DDDDDDDDDDD88DDDDDDDDDDDDDD0DDDDDDDDDDDDDDD8DDDDDDDDDDDDDDDDDDDD |
|
| 61 |
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD} |
|
| 62 |
NumGlyphs = 2 |
|
| 63 |
ParentShowHint = False |
|
| 64 |
ShowHint = True |
|
| 65 |
TabOrder = 1 |
|
| 66 |
OnClick = BBSkipClick |
|
| 67 |
end |
|
| 68 |
object BBProcess: TBitBtn |
|
| 69 |
Left = 256 |
|
| 70 |
Top = 8 |
|
| 71 |
Width = 24 |
|
| 72 |
Height = 24 |
|
| 73 |
Hint = 'Traiter la demande' |
|
| 74 |
Glyph.Data = {
|
|
| 75 |
36090000424D3609000000000000360000002800000030000000100000000100 |
|
| 76 |
1800000000000009000000000000000000000000000000000000FF00FFFF00FF |
|
| 77 |
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 |
|
| 78 |
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF |
|
| 79 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF |
|
| 80 |
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 |
|
| 81 |
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF |
|
| 82 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF |
|
| 83 |
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 |
|
| 84 |
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF |
|
| 85 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF808080 |
|
| 86 |
8080808080808080808080808080808080808080808080808080808080808080 |
|
| 87 |
80808080808080808080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF |
|
| 88 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF808080 |
|
| 89 |
8080808080808080808080808080808080808080808080808080808080808080 |
|
| 90 |
8080808080808080808000000000000000000000000000000000000000000000 |
|
| 91 |
0000000000000000000000000000000000000000000000808080808080808080 |
|
| 92 |
8080808080808080808080808080808080808080808080808080808080808080 |
|
| 93 |
80808080808080FF00FF00000000000000000000000000000000000000000000 |
|
| 94 |
0000000000000000000000000000000000000000000000808080000000000000 |
|
| 95 |
0080800080800080800080800080800080800080800080800080800080800080 |
|
| 96 |
80000000000000808080808080808080FF00FFFF00FFFF00FFFF00FFFF00FFFF |
|
| 97 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FF808080808080FF00FF000000000000 |
|
| 98 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF |
|
| 99 |
FF00000000000080808000000000808000000000808000808000808000808000 |
|
| 100 |
8080008080008080008080008080000000008080000000808080808080FF00FF |
|
| 101 |
808080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF8080 |
|
| 102 |
80FF00FF808080FF00FF00000000FFFF00000000FFFF00FFFF00FFFF00FFFF00 |
|
| 103 |
FFFF00FFFF00FFFF00FFFF00FFFF00000000FFFF000000808080000000008080 |
|
| 104 |
0080800000000080800080800080800000000080800080800080800000000080 |
|
| 105 |
80008080000000808080808080FF00FFFF00FF808080FF00FFFF00FFFF00FF80 |
|
| 106 |
8080FF00FFFF00FFFF00FF808080FF00FFFF00FF808080FF00FF00000000FFFF |
|
| 107 |
00FFFF00000000FFFF00FFFF00FFFF00000000FFFF00FFFF00FFFF00000000FF |
|
| 108 |
FF00FFFF00000080808000000000808000808000808000000000808000000000 |
|
| 109 |
8080000000008080000000008080008080008080000000808080808080FF00FF |
|
| 110 |
FF00FFFF00FF808080FF00FF808080FF00FF808080FF00FF808080FF00FFFF00 |
|
| 111 |
FFFF00FF808080FF00FF00000000FFFF00FFFF00FFFF00000000FFFF00000000 |
|
| 112 |
FFFF00000000FFFF00000000FFFF00FFFF00FFFF000000808080000000008080 |
|
| 113 |
0080800080800080800000000080800080800080800000000080800080800080 |
|
| 114 |
80008080000000808080808080FF00FFFF00FFFF00FFFF00FF808080FF00FFFF |
|
| 115 |
00FFFF00FF808080FF00FFFF00FFFF00FFFF00FF808080FF00FF00000000FFFF |
|
| 116 |
00FFFF00FFFF00FFFF00000000FFFF00FFFF00FFFF00000000FFFF00FFFF00FF |
|
| 117 |
FF00FFFF00000080808000000000808000808000808000000000808000808000 |
|
| 118 |
8080008080008080000000008080008080008080000000808080808080FF00FF |
|
| 119 |
FF00FFFF00FF808080FF00FFFF00FFFF00FFFF00FFFF00FF808080FF00FFFF00 |
|
| 120 |
FFFF00FF808080FF00FF00000000FFFF00FFFF00FFFF00000000FFFF00FFFF00 |
|
| 121 |
FFFF00FFFF00FFFF00000000FFFF00FFFF00FFFF000000808080000000008080 |
|
| 122 |
0080800000000080800080800080800080800080800080800080800000000080 |
|
| 123 |
80008080000000808080808080FF00FFFF00FF808080FF00FFFF00FFFF00FFFF |
|
| 124 |
00FFFF00FFFF00FFFF00FF808080FF00FFFF00FF808080FF00FF00000000FFFF |
|
| 125 |
00FFFF00000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000FF |
|
| 126 |
FF00FFFF00000080808000000000808000000000808000808000808000808000 |
|
| 127 |
8080008080008080008080008080000000008080000000808080808080FF00FF |
|
| 128 |
808080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF8080 |
|
| 129 |
80FF00FF808080FF00FF00000000FFFF00000000FFFF00FFFF00FFFF00FFFF00 |
|
| 130 |
FFFF00FFFF00FFFF00FFFF00FFFF00000000FFFF000000808080000000000000 |
|
| 131 |
0080800080800080800080800080800080800080800080800080800080800080 |
|
| 132 |
80000000000000808080808080808080FF00FFFF00FFFF00FFFF00FFFF00FFFF |
|
| 133 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FF808080808080FF00FF000000000000 |
|
| 134 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF |
|
| 135 |
FF00000000000080808000000000000000000000000000000000000000000000 |
|
| 136 |
0000000000000000000000000000000000000000000000FF00FF808080808080 |
|
| 137 |
8080808080808080808080808080808080808080808080808080808080808080 |
|
| 138 |
80808080808080FF00FF00000000000000000000000000000000000000000000 |
|
| 139 |
0000000000000000000000000000000000000000000000FF00FFFF00FFFF00FF |
|
| 140 |
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 |
|
| 141 |
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF |
|
| 142 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF |
|
| 143 |
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 |
|
| 144 |
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF |
|
| 145 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF |
|
| 146 |
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 |
|
| 147 |
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF |
|
| 148 |
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} |
|
| 149 |
NumGlyphs = 3 |
|
| 150 |
ParentShowHint = False |
|
| 151 |
ShowHint = True |
|
| 152 |
TabOrder = 2 |
|
| 153 |
OnClick = BBProcessClick |
|
| 154 |
end |
|
| 155 |
object BBRemove: TBitBtn |
|
| 156 |
Left = 288 |
|
| 157 |
Top = 8 |
|
| 158 |
Width = 24 |
|
| 159 |
Height = 24 |
|
| 160 |
Hint = 'Rejeter la demande' |
|
| 161 |
Glyph.Data = {
|
|
| 162 |
F6010000424DF601000000000000760000002800000030000000100000000100 |
|
| 163 |
04000000000080010000120B0000120B00001000000000000000000000000000 |
|
| 164 |
80000080000000808000800000008000800080800000C0C0C000808080000000 |
|
| 165 |
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDD888888888 |
|
| 166 |
88DDDDDDDDDDDDDDDDDDDDD88888888888DDDD000000000008DDDD8888888888 |
|
| 167 |
8DDDDD000000000008DDDD0FFFFFFFFF08DDDD8DDDDDDDDD8DDDDD0777777777 |
|
| 168 |
08DDDD0F0FF0FF0F08DDDD8D8DD8DD8D8DDDDD070770770708DDDD0F0FF0FF0F |
|
| 169 |
08DDDD8D8DD8DD8D8DDDDD070770770708DDDD0F0FF0FF0F08DDDD8D8DD8DD8D |
|
| 170 |
8DDDDD070770770708DDDD0F0FF0FF0F08DDDD8D8DD8DD8D8DDDDD0707707707 |
|
| 171 |
08DDDD0F0FF0FF0F08DDDD8D8DD8DD8D8DDDDD070770770708DDDD0F0FF0FF0F |
|
| 172 |
08DDDD8D8DD8DD8D8DDDDD070770770708DDDD0FFFFFFFFF08DDDD8DDDDDDDDD |
|
| 173 |
8DDDDD077777777708DDDD0000000000088DDD88888888888DDDDD0000000000 |
|
| 174 |
088DD00000000000008DD8888888888888DDD00000000000008DD0FFFFFFFFFF |
|
| 175 |
F0DDD8DDDDDDDDDDD8DDD0777777777770DDDD00000000000DDDDD8888888888 |
|
| 176 |
8DDDDD00000000000DDDDDDDD08880DDDDDDDDDDD8DDD8DDDDDDDDDDD08880DD |
|
| 177 |
DDDDDDDDDD000DDDDDDDDDDDDD888DDDDDDDDDDDDD000DDDDDDD} |
|
| 178 |
NumGlyphs = 3 |
|
| 179 |
ParentShowHint = False |
|
| 180 |
ShowHint = True |
|
| 181 |
TabOrder = 3 |
|
| 182 |
OnClick = BBRemoveClick |
|
| 183 |
end |
|
| 184 |
object MObservations: TMemo |
|
| 185 |
Left = 0 |
|
| 186 |
Top = 640 |
|
| 187 |
Width = 616 |
|
| 188 |
Height = 80 |
|
| 189 |
Anchors = [akLeft, akTop, akRight, akBottom] |
|
| 190 |
ScrollBars = ssVertical |
|
| 191 |
TabOrder = 6 |
|
| 192 |
end |
|
| 193 |
object GBLicenseType: TGroupBox |
|
| 194 |
Left = 8 |
|
| 195 |
Top = 40 |
|
| 196 |
Width = 600 |
|
| 197 |
Height = 168 |
|
| 198 |
Caption = 'Licence' |
|
| 199 |
TabOrder = 4 |
|
| 200 |
object RBEducation: TRadioButton |
|
| 201 |
Left = 16 |
|
| 202 |
Top = 20 |
|
| 203 |
Width = 80 |
|
| 204 |
Height = 13 |
|
| 205 |
Caption = 'Education' |
|
| 206 |
TabOrder = 0 |
|
| 207 |
OnClick = RBEducationClick |
|
| 208 |
end |
|
| 209 |
object RBComplete: TRadioButton |
|
| 210 |
Left = 16 |
|
| 211 |
Top = 44 |
|
| 212 |
Width = 80 |
|
| 213 |
Height = 13 |
|
| 214 |
Caption = 'Compl'#232'te' |
|
| 215 |
TabOrder = 2 |
|
| 216 |
OnClick = RBCompleteClick |
|
| 217 |
end |
|
| 218 |
object PComplete: TPanel |
|
| 219 |
Left = 120 |
|
| 220 |
Top = 40 |
|
| 221 |
Width = 400 |
|
| 222 |
Height = 120 |
|
| 223 |
BevelOuter = bvNone |
|
| 224 |
TabOrder = 3 |
|
| 225 |
object LLicenseNumber: TLabel |
|
| 226 |
Left = 0 |
|
| 227 |
Top = 4 |
|
| 228 |
Width = 44 |
|
| 229 |
Height = 13 |
|
| 230 |
Caption = 'Num'#233'ro' |
|
| 231 |
Font.Charset = DEFAULT_CHARSET |
|
| 232 |
Font.Color = clWindowText |
|
| 233 |
Font.Height = -11 |
|
| 234 |
Font.Name = 'MS Sans Serif' |
|
| 235 |
Font.Style = [fsBold] |
|
| 236 |
ParentFont = False |
|
| 237 |
end |
|
| 238 |
object LLicenseNotFound: TLabel |
|
| 239 |
Left = 120 |
|
| 240 |
Top = 4 |
|
| 241 |
Width = 231 |
|
| 242 |
Height = 13 |
|
| 243 |
Caption = 'Erreur : num'#233'ro de licence non attribu'#233' !' |
|
| 244 |
Font.Charset = DEFAULT_CHARSET |
|
| 245 |
Font.Color = clRed |
|
| 246 |
Font.Height = -11 |
|
| 247 |
Font.Name = 'MS Sans Serif' |
|
| 248 |
Font.Style = [fsBold] |
|
| 249 |
ParentFont = False |
|
| 250 |
end |
|
| 251 |
object GBSource: TGroupBox |
|
| 252 |
Left = 0 |
|
| 253 |
Top = 24 |
|
| 254 |
Width = 400 |
|
| 255 |
Height = 96 |
|
| 256 |
Caption = 'Origine' |
|
| 257 |
TabOrder = 2 |
|
| 258 |
object RBOrder: TRadioButton |
|
| 259 |
Left = 16 |
|
| 260 |
Top = 20 |
|
| 261 |
Width = 80 |
|
| 262 |
Height = 13 |
|
| 263 |
Caption = 'Commande' |
|
| 264 |
Enabled = False |
|
| 265 |
TabOrder = 0 |
|
| 266 |
end |
|
| 267 |
object RBINRA: TRadioButton |
|
| 268 |
Left = 16 |
|
| 269 |
Top = 44 |
|
| 270 |
Width = 80 |
|
| 271 |
Height = 13 |
|
| 272 |
Caption = 'INRA' |
|
| 273 |
Enabled = False |
|
| 274 |
TabOrder = 2 |
|
| 275 |
end |
|
| 276 |
object RBAjinomoto: TRadioButton |
|
| 277 |
Left = 16 |
|
| 278 |
Top = 68 |
|
| 279 |
Width = 80 |
|
| 280 |
Height = 13 |
|
| 281 |
Caption = 'Ajinomoto' |
|
| 282 |
Enabled = False |
|
| 283 |
TabOrder = 3 |
|
| 284 |
end |
|
| 285 |
object POrderNumber: TPanel |
|
| 286 |
Left = 120 |
|
| 287 |
Top = 16 |
|
| 288 |
Width = 264 |
|
| 289 |
Height = 24 |
|
| 290 |
BevelOuter = bvNone |
|
| 291 |
TabOrder = 1 |
|
| 292 |
object LOrderNumber: TLabel |
|
| 293 |
Left = 0 |
|
| 294 |
Top = 4 |
|
| 295 |
Width = 37 |
|
| 296 |
Height = 13 |
|
| 297 |
Caption = 'Num'#233'ro' |
|
| 298 |
Font.Charset = DEFAULT_CHARSET |
|
| 299 |
Font.Color = clWindowText |
|
| 300 |
Font.Height = -11 |
|
| 301 |
Font.Name = 'MS Sans Serif' |
|
| 302 |
Font.Style = [] |
|
| 303 |
ParentFont = False |
|
| 304 |
end |
|
| 305 |
object EOrderNumber: TEdit |
|
| 306 |
Left = 48 |
|
| 307 |
Top = 0 |
|
| 308 |
Width = 200 |
|
| 309 |
Height = 21 |
|
| 310 |
ReadOnly = True |
|
| 311 |
TabOrder = 0 |
|
| 312 |
end |
|
| 313 |
end |
|
| 314 |
object PAjinomotoNumber: TPanel |
|
| 315 |
Left = 120 |
|
| 316 |
Top = 64 |
|
| 317 |
Width = 264 |
|
| 318 |
Height = 24 |
|
| 319 |
BevelOuter = bvNone |
|
| 320 |
TabOrder = 4 |
|
| 321 |
object LAjinomotoNumber: TLabel |
|
| 322 |
Left = 0 |
|
| 323 |
Top = 4 |
|
| 324 |
Width = 37 |
|
| 325 |
Height = 13 |
|
| 326 |
Caption = 'Num'#233'ro' |
|
| 327 |
Font.Charset = DEFAULT_CHARSET |
|
| 328 |
Font.Color = clWindowText |
|
| 329 |
Font.Height = -11 |
|
| 330 |
Font.Name = 'MS Sans Serif' |
|
| 331 |
Font.Style = [] |
|
| 332 |
ParentFont = False |
|
| 333 |
end |
|
| 334 |
object EAjinomotoNumber: TEdit |
|
| 335 |
Left = 48 |
|
| 336 |
Top = 0 |
|
| 337 |
Width = 200 |
|
| 338 |
Height = 21 |
|
| 339 |
ReadOnly = True |
|
| 340 |
TabOrder = 0 |
|
| 341 |
end |
|
| 342 |
end |
|
| 343 |
end |
|
| 344 |
object CBValidity: TCheckBox |
|
| 345 |
Left = 120 |
|
| 346 |
Top = 4 |
|
| 347 |
Width = 80 |
|
| 348 |
Height = 13 |
|
| 349 |
Caption = 'Valide' |
|
| 350 |
Enabled = False |
|
| 351 |
TabOrder = 1 |
|
| 352 |
end |
|
| 353 |
object PBLicenseNumber: TPBSpinEdit |
|
| 354 |
Left = 48 |
|
| 355 |
Top = 0 |
|
| 356 |
Width = 64 |
|
| 357 |
Height = 22 |
|
| 358 |
Cursor = crDefault |
|
| 359 |
Font.Charset = DEFAULT_CHARSET |
|
| 360 |
Font.Color = clWindowText |
|
| 361 |
Font.Height = -11 |
|
| 362 |
Font.Name = 'MS Sans Serif' |
|
| 363 |
Font.Style = [fsBold] |
|
| 364 |
MaxValue = 0 |
|
| 365 |
MinValue = 0 |
|
| 366 |
ParentFont = False |
|
| 367 |
ParentShowHint = False |
|
| 368 |
ShowHint = False |
|
| 369 |
TabOrder = 0 |
|
| 370 |
Value = 0 |
|
| 371 |
OnChange = PBLicenseNumberChange |
|
| 372 |
Alignment = taLeftJustify |
|
| 373 |
end |
|
| 374 |
end |
|
| 375 |
object PEducation: TPanel |
|
| 376 |
Left = 120 |
|
| 377 |
Top = 16 |
|
| 378 |
Width = 400 |
|
| 379 |
Height = 24 |
|
| 380 |
BevelOuter = bvNone |
|
| 381 |
TabOrder = 1 |
|
| 382 |
object LCourse: TLabel |
|
| 383 |
Left = 0 |
|
| 384 |
Top = 4 |
|
| 385 |
Width = 27 |
|
| 386 |
Height = 13 |
|
| 387 |
Caption = 'Cours' |
|
| 388 |
Font.Charset = DEFAULT_CHARSET |
|
| 389 |
Font.Color = clWindowText |
|
| 390 |
Font.Height = -11 |
|
| 391 |
Font.Name = 'MS Sans Serif' |
|
| 392 |
Font.Style = [] |
|
| 393 |
ParentFont = False |
|
| 394 |
end |
|
| 395 |
object ECourse: TEdit |
|
| 396 |
Left = 48 |
|
| 397 |
Top = 0 |
|
| 398 |
Width = 320 |
|
| 399 |
Height = 21 |
|
| 400 |
MaxLength = 40 |
|
| 401 |
TabOrder = 0 |
|
| 402 |
end |
|
| 403 |
end |
|
| 404 |
end |
|
| 405 |
object PInformations: TPanel |
|
| 406 |
Left = 8 |
|
| 407 |
Top = 216 |
|
| 408 |
Width = 600 |
|
| 409 |
Height = 416 |
|
| 410 |
BevelOuter = bvNone |
|
| 411 |
TabOrder = 5 |
|
| 412 |
object LVolumeSerialNumber: TLabel |
|
| 413 |
Left = 88 |
|
| 414 |
Top = 340 |
|
| 415 |
Width = 38 |
|
| 416 |
Height = 13 |
|
| 417 |
Caption = 'Partition' |
|
| 418 |
end |
|
| 419 |
object LMail: TLabel |
|
| 420 |
Left = 88 |
|
| 421 |
Top = 284 |
|
| 422 |
Width = 19 |
|
| 423 |
Height = 13 |
|
| 424 |
Caption = 'Mail' |
|
| 425 |
end |
|
| 426 |
object LCompany: TLabel |
|
| 427 |
Left = 88 |
|
| 428 |
Top = 52 |
|
| 429 |
Width = 36 |
|
| 430 |
Height = 13 |
|
| 431 |
Caption = 'Soci'#233't'#233 |
|
| 432 |
end |
|
| 433 |
object LFirstName: TLabel |
|
| 434 |
Left = 88 |
|
| 435 |
Top = 4 |
|
| 436 |
Width = 36 |
|
| 437 |
Height = 13 |
|
| 438 |
Caption = 'Pr'#233'nom' |
|
| 439 |
end |
|
| 440 |
object LLastName: TLabel |
|
| 441 |
Left = 88 |
|
| 442 |
Top = 28 |
|
| 443 |
Width = 22 |
|
| 444 |
Height = 13 |
|
| 445 |
Caption = 'Nom' |
|
| 446 |
end |
|
| 447 |
object LFax: TLabel |
|
| 448 |
Left = 88 |
|
| 449 |
Top = 260 |
|
| 450 |
Width = 17 |
|
| 451 |
Height = 13 |
|
| 452 |
Caption = 'Fax' |
|
| 453 |
end |
|
| 454 |
object LPhone: TLabel |
|
| 455 |
Left = 88 |
|
| 456 |
Top = 236 |
|
| 457 |
Width = 51 |
|
| 458 |
Height = 13 |
|
| 459 |
Caption = 'T'#233'l'#233'phone' |
|
| 460 |
end |
|
| 461 |
object LFinalDate: TLabel |
|
| 462 |
Left = 40 |
|
| 463 |
Top = 372 |
|
| 464 |
Width = 61 |
|
| 465 |
Height = 13 |
|
| 466 |
Caption = 'Date limite' |
|
| 467 |
Font.Charset = DEFAULT_CHARSET |
|
| 468 |
Font.Color = clWindowText |
|
| 469 |
Font.Height = -11 |
|
| 470 |
Font.Name = 'MS Sans Serif' |
|
| 471 |
Font.Style = [fsBold] |
|
| 472 |
ParentFont = False |
|
| 473 |
end |
|
| 474 |
object LVersion: TLabel |
|
| 475 |
Left = 88 |
|
| 476 |
Top = 316 |
|
| 477 |
Width = 35 |
|
| 478 |
Height = 13 |
|
| 479 |
Caption = 'Version' |
|
| 480 |
end |
|
| 481 |
object LSoftwareEnableKey: TLabel |
|
| 482 |
Left = 40 |
|
| 483 |
Top = 396 |
|
| 484 |
Width = 89 |
|
| 485 |
Height = 13 |
|
| 486 |
Caption = 'Cl'#233' d'#39'activation' |
|
| 487 |
Font.Charset = DEFAULT_CHARSET |
|
| 488 |
Font.Color = clWindowText |
|
| 489 |
Font.Height = -11 |
|
| 490 |
Font.Name = 'MS Sans Serif' |
|
| 491 |
Font.Style = [fsBold] |
|
| 492 |
ParentFont = False |
|
| 493 |
end |
|
| 494 |
object EMail: TEdit |
|
| 495 |
Left = 160 |
|
| 496 |
Top = 280 |
|
| 497 |
Width = 400 |
|
| 498 |
Height = 21 |
|
| 499 |
MaxLength = 60 |
|
| 500 |
TabOrder = 6 |
|
| 501 |
OnChange = EMailChange |
|
| 502 |
end |
|
| 503 |
object ECompany: TEdit |
|
| 504 |
Left = 160 |
|
| 505 |
Top = 48 |
|
| 506 |
Width = 320 |
|
| 507 |
Height = 21 |
|
| 508 |
MaxLength = 40 |
|
| 509 |
TabOrder = 2 |
|
| 510 |
OnChange = ECompanyChange |
|
| 511 |
end |
|
| 512 |
object GBAddress: TGroupBox |
|
| 513 |
Left = 80 |
|
| 514 |
Top = 80 |
|
| 515 |
Width = 520 |
|
| 516 |
Height = 144 |
|
| 517 |
Caption = 'Adresse' |
|
| 518 |
TabOrder = 3 |
|
| 519 |
object LPostalCode: TLabel |
|
| 520 |
Left = 8 |
|
| 521 |
Top = 68 |
|
| 522 |
Width = 56 |
|
| 523 |
Height = 13 |
|
| 524 |
Caption = 'Code postal' |
|
| 525 |
end |
|
| 526 |
object LCity: TLabel |
|
| 527 |
Left = 8 |
|
| 528 |
Top = 92 |
|
| 529 |
Width = 19 |
|
| 530 |
Height = 13 |
|
| 531 |
Caption = 'Ville' |
|
| 532 |
end |
|
| 533 |
object LCountry: TLabel |
|
| 534 |
Left = 8 |
|
| 535 |
Top = 116 |
|
| 536 |
Width = 23 |
|
| 537 |
Height = 13 |
|
| 538 |
Caption = 'Pays' |
|
| 539 |
end |
|
| 540 |
object EPostalCode: TEdit |
|
| 541 |
Left = 80 |
|
| 542 |
Top = 64 |
|
| 543 |
Width = 80 |
|
| 544 |
Height = 21 |
|
| 545 |
MaxLength = 10 |
|
| 546 |
TabOrder = 2 |
|
| 547 |
OnChange = EPostalCodeChange |
|
| 548 |
end |
|
| 549 |
object ECity: TEdit |
|
| 550 |
Left = 80 |
|
| 551 |
Top = 88 |
|
| 552 |
Width = 240 |
|
| 553 |
Height = 21 |
|
| 554 |
MaxLength = 30 |
|
| 555 |
TabOrder = 3 |
|
| 556 |
OnChange = ECityChange |
|
| 557 |
end |
|
| 558 |
object ECountry: TEdit |
|
| 559 |
Left = 80 |
|
| 560 |
Top = 112 |
|
| 561 |
Width = 240 |
|
| 562 |
Height = 21 |
|
| 563 |
MaxLength = 30 |
|
| 564 |
TabOrder = 4 |
|
| 565 |
OnChange = ECountryChange |
|
| 566 |
end |
|
| 567 |
object EAddress1: TEdit |
|
| 568 |
Left = 8 |
|
| 569 |
Top = 16 |
|
| 570 |
Width = 480 |
|
| 571 |
Height = 21 |
|
| 572 |
MaxLength = 60 |
|
| 573 |
TabOrder = 0 |
|
| 574 |
OnChange = EAddress1Change |
|
| 575 |
end |
|
| 576 |
object EAddress2: TEdit |
|
| 577 |
Left = 8 |
|
| 578 |
Top = 40 |
|
| 579 |
Width = 480 |
|
| 580 |
Height = 21 |
|
| 581 |
MaxLength = 60 |
|
| 582 |
TabOrder = 1 |
|
| 583 |
OnChange = EAddress2Change |
|
| 584 |
end |
|
| 585 |
end |
|
| 586 |
object EFirstName: TEdit |
|
| 587 |
Left = 160 |
|
| 588 |
Top = 0 |
|
| 589 |
Width = 240 |
|
| 590 |
Height = 21 |
|
| 591 |
MaxLength = 30 |
|
| 592 |
TabOrder = 0 |
|
| 593 |
OnChange = EFirstNameChange |
|
| 594 |
end |
|
| 595 |
object ELastName: TEdit |
|
| 596 |
Left = 160 |
|
| 597 |
Top = 24 |
|
| 598 |
Width = 240 |
|
| 599 |
Height = 21 |
|
| 600 |
MaxLength = 30 |
|
| 601 |
TabOrder = 1 |
|
| 602 |
OnChange = ELastNameChange |
|
| 603 |
end |
|
| 604 |
object EFax: TEdit |
|
| 605 |
Left = 160 |
|
| 606 |
Top = 256 |
|
| 607 |
Width = 160 |
|
| 608 |
Height = 21 |
|
| 609 |
MaxLength = 20 |
|
| 610 |
TabOrder = 5 |
|
| 611 |
OnChange = EFaxChange |
|
| 612 |
end |
|
| 613 |
object EPhone: TEdit |
|
| 614 |
Left = 160 |
|
| 615 |
Top = 232 |
|
| 616 |
Width = 160 |
|
| 617 |
Height = 21 |
|
| 618 |
MaxLength = 20 |
|
| 619 |
TabOrder = 4 |
|
| 620 |
OnChange = EPhoneChange |
|
| 621 |
end |
|
| 622 |
object EVolumeSerialNumber: TEdit |
|
| 623 |
Left = 160 |
|
| 624 |
Top = 336 |
|
| 625 |
Width = 80 |
|
| 626 |
Height = 21 |
|
| 627 |
MaxLength = 9 |
|
| 628 |
TabOrder = 8 |
|
| 629 |
OnChange = EVolumeSerialNumberChange |
|
| 630 |
end |
|
| 631 |
object EVersion: TEdit |
|
| 632 |
Left = 160 |
|
| 633 |
Top = 312 |
|
| 634 |
Width = 80 |
|
| 635 |
Height = 21 |
|
| 636 |
MaxLength = 7 |
|
| 637 |
TabOrder = 7 |
|
| 638 |
OnChange = EVersionChange |
|
| 639 |
end |
|
| 640 |
object ESoftwareEnableKey: TEdit |
|
| 641 |
Left = 160 |
|
| 642 |
Top = 392 |
|
| 643 |
Width = 280 |
|
| 644 |
Height = 21 |
|
| 645 |
Font.Charset = DEFAULT_CHARSET |
|
| 646 |
Font.Color = clWindowText |
|
| 647 |
Font.Height = -11 |
|
| 648 |
Font.Name = 'MS Sans Serif' |
|
| 649 |
Font.Style = [fsBold] |
|
| 650 |
MaxLength = 35 |
|
| 651 |
ParentFont = False |
|
| 652 |
ReadOnly = True |
|
| 653 |
TabOrder = 10 |
|
| 654 |
end |
|
| 655 |
object BBKeyCompute: TBitBtn |
|
| 656 |
Left = 448 |
|
| 657 |
Top = 392 |
|
| 658 |
Width = 24 |
|
| 659 |
Height = 24 |
|
| 660 |
Hint = 'Calculer la cl'#233' d'#39'activation' |
|
| 661 |
Glyph.Data = {
|
|
| 662 |
76010000424D7601000000000000760000002800000020000000100000000100 |
|
| 663 |
04000000000000010000C40E0000C40E00001000000000000000000000000000 |
|
| 664 |
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 |
|
| 665 |
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DD7000000000 |
|
| 666 |
7DDDDDD777777777DFDDDD08888888880DDDDD7FDFDFDFFF7FDDDD0808089998 |
|
| 667 |
0DDDDD7F7D7D777D7FDDDD08888888880DDDDD7FDFDFDFDF7FDDDD0808080808 |
|
| 668 |
0DDDDD7F7D7D7D7D7FDDDD08888888880DDDDD7FDFDFDFDF7FDDDD0808080808 |
|
| 669 |
0DDDDD7F7D7D7D7D7FDDDD08888888880DDDDD7FDFDFDFDF7FDDDD0808080808 |
|
| 670 |
0DDDDD7F7D7D7D7D7FDDDD08888888880DDDDD7FDFFFFFFF7FDDDD0800000008 |
|
| 671 |
0DDDDD7F7777777F7FDDDD08000E0E080DDDDD7F7FFFFF7F7FDDDD0800000008 |
|
| 672 |
0DDDDD7F7777777D7FDDDD08888888880DDDDD7FDDDDDDDD7FDDDD0888888888 |
|
| 673 |
0DDDDD7DFFFFFFFF7DDDDD70000000007DDDDDD777777777DDDD} |
|
| 674 |
NumGlyphs = 2 |
|
| 675 |
TabOrder = 11 |
|
| 676 |
OnClick = BBKeyComputeClick |
|
| 677 |
end |
|
| 678 |
object DTPFinalDate: TDateTimePicker |
|
| 679 |
Left = 160 |
|
| 680 |
Top = 368 |
|
| 681 |
Width = 96 |
|
| 682 |
Height = 21 |
|
| 683 |
Date = 38616.777815752300000000 |
|
| 684 |
Time = 38616.777815752300000000 |
|
| 685 |
Font.Charset = DEFAULT_CHARSET |
|
| 686 |
Font.Color = clWindowText |
|
| 687 |
Font.Height = -11 |
|
| 688 |
Font.Name = 'MS Sans Serif' |
|
| 689 |
Font.Style = [fsBold] |
|
| 690 |
ParentFont = False |
|
| 691 |
TabOrder = 9 |
|
| 692 |
end |
|
| 693 |
object PLED: TPanel |
|
| 694 |
Left = 8 |
|
| 695 |
Top = 0 |
|
| 696 |
Width = 24 |
|
| 697 |
Height = 360 |
|
| 698 |
BevelOuter = bvNone |
|
| 699 |
TabOrder = 12 |
|
| 700 |
object LEDVolumeSerialNumber: TJvLED |
|
| 701 |
Left = 0 |
|
| 702 |
Top = 338 |
|
| 703 |
end |
|
| 704 |
object LEDFirstName: TJvLED |
|
| 705 |
Left = 0 |
|
| 706 |
Top = 2 |
|
| 707 |
end |
|
| 708 |
object LEDLastName: TJvLED |
|
| 709 |
Left = 0 |
|
| 710 |
Top = 26 |
|
| 711 |
end |
|
| 712 |
object LEDCompany: TJvLED |
|
| 713 |
Left = 0 |
|
| 714 |
Top = 50 |
|
| 715 |
end |
|
| 716 |
object LEDPhone: TJvLED |
|
| 717 |
Left = 0 |
|
| 718 |
Top = 234 |
|
| 719 |
end |
|
| 720 |
object LEDFax: TJvLED |
|
| 721 |
Left = 0 |
|
| 722 |
Top = 258 |
|
| 723 |
end |
|
| 724 |
object LEDMail: TJvLED |
|
| 725 |
Left = 0 |
|
| 726 |
Top = 282 |
|
| 727 |
end |
|
| 728 |
object LEDVersion: TJvLED |
|
| 729 |
Left = 0 |
|
| 730 |
Top = 314 |
|
| 731 |
end |
|
| 732 |
object LEDAddress1: TJvLED |
|
| 733 |
Left = 0 |
|
| 734 |
Top = 98 |
|
| 735 |
end |
|
| 736 |
object LEDAddress2: TJvLED |
|
| 737 |
Left = 0 |
|
Formats disponibles : Unified diff