REPOS_ERICCA/mesh/diaopt.cpp

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "diaopt.h"
#include "fenetre.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TDiaoption *Diaoption;
//---------------------------------------------------------------------------
__fastcall TDiaoption::TDiaoption(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDiaoption::Button1Click(TObject *Sender)
{
Diaoption->ok=1;
Diaoption->Close();

}
//---------------------------------------------------------------------------
void __fastcall TDiaoption::Button2Click(TObject *Sender)
{
Diaoption->ok=0;
Diaoption->Close();

}
//---------------------------------------------------------------------------
void __fastcall TDiaoption::FormShow(TObject *Sender)
{
Diaoption->Font->Color=clWindowText;
Diaoption->Left=Fenp->Left+45;
Diaoption->Top=Fenp->Top+66;

}
//---------------------------------------------------------------------------
Revision:	3
Committed:	Tue Jun 12 12:42:51 2007 UTC (18 years, 2 months ago)
File size:	1137 byte(s)
Log Message:
#	Content
1	//---------------------------------------------------------------------------
2	#include <vcl\vcl.h>
3	#pragma hdrstop
4
5	#include "diaopt.h"
6	#include "fenetre.h"
7	//---------------------------------------------------------------------------
8	#pragma resource "*.dfm"
9	TDiaoption *Diaoption;
10	//---------------------------------------------------------------------------
11	__fastcall TDiaoption::TDiaoption(TComponent* Owner)
12	: TForm(Owner)
13	{
14	}
15	//---------------------------------------------------------------------------
16	void __fastcall TDiaoption::Button1Click(TObject *Sender)
17	{
18	Diaoption->ok=1;
19	Diaoption->Close();
20
21	}
22	//---------------------------------------------------------------------------
23	void __fastcall TDiaoption::Button2Click(TObject *Sender)
24	{
25	Diaoption->ok=0;
26	Diaoption->Close();
27
28	}
29	//---------------------------------------------------------------------------
30	void __fastcall TDiaoption::FormShow(TObject *Sender)
31	{
32	Diaoption->Font->Color=clWindowText;
33	Diaoption->Left=Fenp->Left+45;
34	Diaoption->Top=Fenp->Top+66;
35
36	}
37	//---------------------------------------------------------------------------