1 |
francois |
98 |
//---------------------------------------------------------------------------
|
2 |
|
|
|
3 |
|
|
#include <vcl.h>
|
4 |
|
|
#pragma hdrstop
|
5 |
|
|
|
6 |
|
|
#include "affmatrice.h"
|
7 |
|
|
//---------------------------------------------------------------------------
|
8 |
|
|
#pragma package(smart_init)
|
9 |
|
|
#pragma resource "*.dfm"
|
10 |
|
|
Taffmat *affmat;
|
11 |
|
|
//---------------------------------------------------------------------------
|
12 |
|
|
__fastcall Taffmat::Taffmat(TComponent* Owner)
|
13 |
|
|
: TForm(Owner)
|
14 |
|
|
{
|
15 |
|
|
}
|
16 |
|
|
//---------------------------------------------------------------------------
|
17 |
|
|
void __fastcall Taffmat::FormClose(TObject *Sender, TCloseAction &Action)
|
18 |
|
|
{
|
19 |
|
|
Action=caFree;
|
20 |
|
|
}
|
21 |
|
|
//---------------------------------------------------------------------------
|
22 |
|
|
|
23 |
|
|
|
24 |
|
|
|
25 |
|
|
|