REPOS_ERICCA/mesh/Igsopt.cpp

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

#include "Igsopt.h"
#include "fenetre.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TIgsoption *Igsoption;
//---------------------------------------------------------------------------
__fastcall TIgsoption::TIgsoption(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TIgsoption::Button1Click(TObject *Sender)
{
Igsoption->ok=1;
Igsoption->Close();
}
//---------------------------------------------------------------------------
void __fastcall TIgsoption::Button2Click(TObject *Sender)
{
Igsoption->ok=0;
Igsoption->Close();
}
//---------------------------------------------------------------------------
void __fastcall TIgsoption::FormShow(TObject *Sender)
{
Igsoption->Font->Color=clWindowText;
Igsoption->Edit1->Font->Color=clWindowText;
Igsoption->Edit2->Font->Color=clWindowText;
Igsoption->Edit3->Font->Color=clWindowText;
Igsoption->Left=Fenp->Left+45;
Igsoption->Top=Fenp->Top+66;
}
//---------------------------------------------------------------------------
void __fastcall TIgsoption::RadioButton2Click(TObject *Sender)
{
RadioButton1->Checked=false;
RadioButton2->Checked=true;
}
//---------------------------------------------------------------------------
void __fastcall TIgsoption::RadioButton1Click(TObject *Sender)
{
RadioButton1->Checked=true;
RadioButton2->Checked=false;
}
//---------------------------------------------------------------------------
Revision:	3
Committed:	Tue Jun 12 12:42:51 2007 UTC (18 years, 2 months ago)
File size:	1682 byte(s)
Log Message:
#	Content
1	//---------------------------------------------------------------------------
2	#include <vcl\vcl.h>
3	#pragma hdrstop
4
5	#include "Igsopt.h"
6	#include "fenetre.h"
7	//---------------------------------------------------------------------------
8	#pragma resource "*.dfm"
9	TIgsoption *Igsoption;
10	//---------------------------------------------------------------------------
11	__fastcall TIgsoption::TIgsoption(TComponent* Owner)
12	: TForm(Owner)
13	{
14	}
15	//---------------------------------------------------------------------------
16	void __fastcall TIgsoption::Button1Click(TObject *Sender)
17	{
18	Igsoption->ok=1;
19	Igsoption->Close();
20	}
21	//---------------------------------------------------------------------------
22	void __fastcall TIgsoption::Button2Click(TObject *Sender)
23	{
24	Igsoption->ok=0;
25	Igsoption->Close();
26	}
27	//---------------------------------------------------------------------------
28	void __fastcall TIgsoption::FormShow(TObject *Sender)
29	{
30	Igsoption->Font->Color=clWindowText;
31	Igsoption->Edit1->Font->Color=clWindowText;
32	Igsoption->Edit2->Font->Color=clWindowText;
33	Igsoption->Edit3->Font->Color=clWindowText;
34	Igsoption->Left=Fenp->Left+45;
35	Igsoption->Top=Fenp->Top+66;
36	}
37	//---------------------------------------------------------------------------
38	void __fastcall TIgsoption::RadioButton2Click(TObject *Sender)
39	{
40	RadioButton1->Checked=false;
41	RadioButton2->Checked=true;
42	}
43	//---------------------------------------------------------------------------
44	void __fastcall TIgsoption::RadioButton1Click(TObject *Sender)
45	{
46	RadioButton1->Checked=true;
47	RadioButton2->Checked=false;
48	}
49	//---------------------------------------------------------------------------