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 |
|
|
//---------------------------------------------------------------------------
|