ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/mesh/s_valeur.cpp
Revision: 3
Committed: Tue Jun 12 12:42:51 2007 UTC (17 years, 11 months ago)
File size: 985 byte(s)
Log Message:

File Contents

# User Rev Content
1 3 //---------------------------------------------------------------------------
2     #include <vcl\vcl.h>
3     #pragma hdrstop
4    
5     #include "s_valeur.h"
6     #include "fenetre.h"
7     //---------------------------------------------------------------------------
8     #pragma resource "*.dfm"
9     TValeur *Valeur;
10     //---------------------------------------------------------------------------
11     __fastcall TValeur::TValeur(TComponent* Owner)
12     : TForm(Owner)
13     {
14     }
15     //---------------------------------------------------------------------------
16     void __fastcall TValeur::Button1Click(TObject *Sender)
17     {
18     Valeur->Close();
19     }
20     //---------------------------------------------------------------------------
21     void __fastcall TValeur::FormShow(TObject *Sender)
22     {
23     Valeur->Font->Color=clWindowText;
24     Valeur->Edit1->Font->Color=clWindowText;
25     Valeur->Label1->Caption=Fenp->info;
26     Valeur->Left=Fenp->Left+57;
27     Valeur->Top=Fenp->Top+101;
28     }
29     //---------------------------------------------------------------------------