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 (17 years, 11 months ago)
File size:	1137 byte(s)
Log Message:
#	Rev	Content
1	3	//---------------------------------------------------------------------------
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		//---------------------------------------------------------------------------