ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magic/app/VMM/win32/about.cpp
Revision: 5
Committed: Tue Jun 12 20:26:34 2007 UTC (18 years, 2 months ago)
Original Path: magic/app/VMM/VMM/win32/about.cpp
File size: 1972 byte(s)
Log Message:

File Contents

# User Rev Content
1 5 //------------------------------------------------------------
2     //------------------------------------------------------------
3     // MAGiC
4     // Jean Christophe Cuillière et Vincent FRANCOIS
5     // Département de Génie Mécanique - UQTR
6     //------------------------------------------------------------
7     // Le projet MAGIC est un projet de recherche du département
8     // de génie mécanique de l'Université du Québec à
9     // Trois Rivières
10     // Les librairies ne peuvent être utilisées sans l'accord
11     // des auteurs (contact : francois@uqtr.ca)
12     //------------------------------------------------------------
13     //------------------------------------------------------------
14     //
15     // about.cpp
16     //
17     //------------------------------------------------------------
18     //------------------------------------------------------------
19     // COPYRIGHT 2000
20     // Version du 02/03/2006 à 11H26
21     //------------------------------------------------------------
22     //------------------------------------------------------------
23    
24    
25     #include "gestionversion.h"
26     #include <vcl.h>
27     #pragma hdrstop
28    
29     #include "About.h"
30     #include <stdio.h>
31     //---------------------------------------------------------------------
32     #pragma resource "*.dfm"
33     TAboutBox *AboutBox;
34     //---------------------------------------------------------------------
35     __fastcall TAboutBox::TAboutBox(TComponent *Owner)
36     : TForm(Owner)
37     {
38     }
39     //---------------------------------------------------------------------
40    
41    
42    
43     void __fastcall TAboutBox::FormCreate(TObject *Sender)
44     {
45     char mess[255];
46     sprintf(mess,"Visual MAGiC Modulaire %s ver %s.%s.%s",VERSION,RSAT,RSTEP,RSLD);
47     Label1->Caption=mess;
48     Memo1->Lines->Add("Le premier chiffre indique la présence du module SAT");
49     Memo1->Lines->Add("Le deuxième chiffre indique la présence du module STEP");
50     Memo1->Lines->Add("Le troisième chiffre indique la présence du module SolidWorks");
51    
52     }
53     //---------------------------------------------------------------------------
54    
55