REPOS_ERICCA/mesh/Configure.cpp

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

#include "Configure.h"
#include "Fenetre.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TCcolor *Ccolor;
//---------------------------------------------------------------------------
__fastcall TCcolor::TCcolor(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button12Click(TObject *Sender)
{
Ccolor->Close();
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button1Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[0];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[0]=ColorDialog1->Color;
    Panel1->Color=Fenp->Cshade[0];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button2Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[1];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[1]=ColorDialog1->Color;
    Panel2->Color=Fenp->Cshade[1];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button3Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[2];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[2]=ColorDialog1->Color;
    Panel3->Color=Fenp->Cshade[2];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button4Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[3];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[3]=ColorDialog1->Color;
    Panel4->Color=Fenp->Cshade[3];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button5Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[4];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[4]=ColorDialog1->Color;
    Panel5->Color=Fenp->Cshade[4];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button6Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[5];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[5]=ColorDialog1->Color;
    Panel6->Color=Fenp->Cshade[5];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button7Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[6];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[6]=ColorDialog1->Color;
    Panel7->Color=Fenp->Cshade[6];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button8Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[7];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[7]=ColorDialog1->Color;
    Panel8->Color=Fenp->Cshade[7];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button9Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[8];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[8]=ColorDialog1->Color;
    Panel9->Color=Fenp->Cshade[8];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button10Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[9];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[9]=ColorDialog1->Color;
    Panel10->Color=Fenp->Cshade[9];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button11Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[10];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[10]=ColorDialog1->Color;
    Panel11->Color=Fenp->Cshade[10];
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button13Click(TObject *Sender)
{
FILE *out;
char mess[255];
int i;

SaveDialog1->InitialDir=Fenp->home;
if (SaveDialog1->Execute()==1)
        {
    strcpy(mess,SaveDialog1->FileName.c_str());
    strcat(mess,".ren");
    out=fopen(mess,"wt");
    for (i=0;i<12;i++)
        fprintf(out,"%X\n",Fenp->Cshade[i]);
    fprintf(out,"%d\n",Fenp->uni);
        fclose(out);
        }
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button14Click(TObject *Sender)
{
FILE *out;
char mess[255];
int i;

OpenDialog1->InitialDir=Fenp->home;
if (OpenDialog1->Execute()==1)
        {
    strcpy(mess,OpenDialog1->FileName.c_str());
    out=fopen(mess,"rt");
    for (i=0;i<12;i++)
        {
        fgets(mess,255,out);
        sscanf(mess,"%X",&Fenp->Cshade[i]);
        }
    fgets(mess,255,out);
    fprintf(out,"%X",&Fenp->uni);
        fclose(out);
        }
Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::FormPaint(TObject *Sender)
{
 Ccolor->Font->Color=clWindowText;
Label1->Font->Color=clWindowText;
Label2->Font->Color=clWindowText;
Label3->Font->Color=clWindowText;
Label4->Font->Color=clWindowText;
Label5->Font->Color=clWindowText;
Label6->Font->Color=clWindowText;
Label7->Font->Color=clWindowText;
Label8->Font->Color=clWindowText;
Label8->Font->Color=clWindowText;
Label10->Font->Color=clWindowText;
Label11->Font->Color=clWindowText;
Panel1->Color=Fenp->Cshade[0];
Panel2->Color=Fenp->Cshade[1];
Panel3->Color=Fenp->Cshade[2];
Panel4->Color=Fenp->Cshade[3];
Panel5->Color=Fenp->Cshade[4];
Panel6->Color=Fenp->Cshade[5];
Panel7->Color=Fenp->Cshade[6];
Panel8->Color=Fenp->Cshade[7];
Panel9->Color=Fenp->Cshade[8];
Panel10->Color=Fenp->Cshade[9];
Panel11->Color=Fenp->Cshade[10];
Panel12->Color=Fenp->Cshade[11];
Button1->Font->Color=clWindowText;
Button2->Font->Color=clWindowText;
Button3->Font->Color=clWindowText;
Button4->Font->Color=clWindowText;
Button5->Font->Color=clWindowText;
Button6->Font->Color=clWindowText;
Button7->Font->Color=clWindowText;
Button8->Font->Color=clWindowText;
Button9->Font->Color=clWindowText;
Button10->Font->Color=clWindowText;
Button11->Font->Color=clWindowText;
Button12->Font->Color=clWindowText;
Button13->Font->Color=clWindowText;
Button14->Font->Color=clWindowText;
Button15->Font->Color=clWindowText;
}
//---------------------------------------------------------------------------
void __fastcall TCcolor::Button15Click(TObject *Sender)
{
ColorDialog1->Color=Fenp->Cshade[11];
if (ColorDialog1->Execute()==1)
        {
    Fenp->Cshade[11]=ColorDialog1->Color;
    Panel12->Color=Fenp->Cshade[11];
        }

}
//---------------------------------------------------------------------------
Revision:	3
Committed:	Tue Jun 12 12:42:51 2007 UTC (17 years, 11 months ago)
File size:	6985 byte(s)
Log Message:
#	Rev	Content
1	3	//---------------------------------------------------------------------------
2		#include <vcl\vcl.h>
3		#include <string.h>
4		#pragma hdrstop
5
6		#include "Configure.h"
7		#include "Fenetre.h"
8		//---------------------------------------------------------------------------
9		#pragma resource "*.dfm"
10		TCcolor *Ccolor;
11		//---------------------------------------------------------------------------
12		__fastcall TCcolor::TCcolor(TComponent* Owner)
13		: TForm(Owner)
14		{
15		}
16		//---------------------------------------------------------------------------
17		void __fastcall TCcolor::FormClose(TObject *Sender, TCloseAction &Action)
18		{
19		Action=caFree;
20		}
21		//---------------------------------------------------------------------------
22		void __fastcall TCcolor::Button12Click(TObject *Sender)
23		{
24		Ccolor->Close();
25		}
26		//---------------------------------------------------------------------------
27		void __fastcall TCcolor::Button1Click(TObject *Sender)
28		{
29		ColorDialog1->Color=Fenp->Cshade[0];
30		if (ColorDialog1->Execute()==1)
31		{
32		Fenp->Cshade[0]=ColorDialog1->Color;
33		Panel1->Color=Fenp->Cshade[0];
34		}
35		}
36		//---------------------------------------------------------------------------
37		void __fastcall TCcolor::Button2Click(TObject *Sender)
38		{
39		ColorDialog1->Color=Fenp->Cshade[1];
40		if (ColorDialog1->Execute()==1)
41		{
42		Fenp->Cshade[1]=ColorDialog1->Color;
43		Panel2->Color=Fenp->Cshade[1];
44		}
45		}
46		//---------------------------------------------------------------------------
47		void __fastcall TCcolor::Button3Click(TObject *Sender)
48		{
49		ColorDialog1->Color=Fenp->Cshade[2];
50		if (ColorDialog1->Execute()==1)
51		{
52		Fenp->Cshade[2]=ColorDialog1->Color;
53		Panel3->Color=Fenp->Cshade[2];
54		}
55		}
56		//---------------------------------------------------------------------------
57		void __fastcall TCcolor::Button4Click(TObject *Sender)
58		{
59		ColorDialog1->Color=Fenp->Cshade[3];
60		if (ColorDialog1->Execute()==1)
61		{
62		Fenp->Cshade[3]=ColorDialog1->Color;
63		Panel4->Color=Fenp->Cshade[3];
64		}
65		}
66		//---------------------------------------------------------------------------
67		void __fastcall TCcolor::Button5Click(TObject *Sender)
68		{
69		ColorDialog1->Color=Fenp->Cshade[4];
70		if (ColorDialog1->Execute()==1)
71		{
72		Fenp->Cshade[4]=ColorDialog1->Color;
73		Panel5->Color=Fenp->Cshade[4];
74		}
75		}
76		//---------------------------------------------------------------------------
77		void __fastcall TCcolor::Button6Click(TObject *Sender)
78		{
79		ColorDialog1->Color=Fenp->Cshade[5];
80		if (ColorDialog1->Execute()==1)
81		{
82		Fenp->Cshade[5]=ColorDialog1->Color;
83		Panel6->Color=Fenp->Cshade[5];
84		}
85		}
86		//---------------------------------------------------------------------------
87		void __fastcall TCcolor::Button7Click(TObject *Sender)
88		{
89		ColorDialog1->Color=Fenp->Cshade[6];
90		if (ColorDialog1->Execute()==1)
91		{
92		Fenp->Cshade[6]=ColorDialog1->Color;
93		Panel7->Color=Fenp->Cshade[6];
94		}
95		}
96		//---------------------------------------------------------------------------
97		void __fastcall TCcolor::Button8Click(TObject *Sender)
98		{
99		ColorDialog1->Color=Fenp->Cshade[7];
100		if (ColorDialog1->Execute()==1)
101		{
102		Fenp->Cshade[7]=ColorDialog1->Color;
103		Panel8->Color=Fenp->Cshade[7];
104		}
105		}
106		//---------------------------------------------------------------------------
107		void __fastcall TCcolor::Button9Click(TObject *Sender)
108		{
109		ColorDialog1->Color=Fenp->Cshade[8];
110		if (ColorDialog1->Execute()==1)
111		{
112		Fenp->Cshade[8]=ColorDialog1->Color;
113		Panel9->Color=Fenp->Cshade[8];
114		}
115		}
116		//---------------------------------------------------------------------------
117		void __fastcall TCcolor::Button10Click(TObject *Sender)
118		{
119		ColorDialog1->Color=Fenp->Cshade[9];
120		if (ColorDialog1->Execute()==1)
121		{
122		Fenp->Cshade[9]=ColorDialog1->Color;
123		Panel10->Color=Fenp->Cshade[9];
124		}
125		}
126		//---------------------------------------------------------------------------
127		void __fastcall TCcolor::Button11Click(TObject *Sender)
128		{
129		ColorDialog1->Color=Fenp->Cshade[10];
130		if (ColorDialog1->Execute()==1)
131		{
132		Fenp->Cshade[10]=ColorDialog1->Color;
133		Panel11->Color=Fenp->Cshade[10];
134		}
135		}
136		//---------------------------------------------------------------------------
137		void __fastcall TCcolor::Button13Click(TObject *Sender)
138		{
139		FILE *out;
140		char mess[255];
141		int i;
142
143		SaveDialog1->InitialDir=Fenp->home;
144		if (SaveDialog1->Execute()==1)
145		{
146		strcpy(mess,SaveDialog1->FileName.c_str());
147		strcat(mess,".ren");
148		out=fopen(mess,"wt");
149		for (i=0;i<12;i++)
150		fprintf(out,"%X\n",Fenp->Cshade[i]);
151		fprintf(out,"%d\n",Fenp->uni);
152		fclose(out);
153		}
154		}
155		//---------------------------------------------------------------------------
156		void __fastcall TCcolor::Button14Click(TObject *Sender)
157		{
158		FILE *out;
159		char mess[255];
160		int i;
161
162		OpenDialog1->InitialDir=Fenp->home;
163		if (OpenDialog1->Execute()==1)
164		{
165		strcpy(mess,OpenDialog1->FileName.c_str());
166		out=fopen(mess,"rt");
167		for (i=0;i<12;i++)
168		{
169		fgets(mess,255,out);
170		sscanf(mess,"%X",&Fenp->Cshade[i]);
171		}
172		fgets(mess,255,out);
173		fprintf(out,"%X",&Fenp->uni);
174		fclose(out);
175		}
176		Invalidate();
177		}
178		//---------------------------------------------------------------------------
179		void __fastcall TCcolor::FormPaint(TObject *Sender)
180		{
181		Ccolor->Font->Color=clWindowText;
182		Label1->Font->Color=clWindowText;
183		Label2->Font->Color=clWindowText;
184		Label3->Font->Color=clWindowText;
185		Label4->Font->Color=clWindowText;
186		Label5->Font->Color=clWindowText;
187		Label6->Font->Color=clWindowText;
188		Label7->Font->Color=clWindowText;
189		Label8->Font->Color=clWindowText;
190		Label8->Font->Color=clWindowText;
191		Label10->Font->Color=clWindowText;
192		Label11->Font->Color=clWindowText;
193		Panel1->Color=Fenp->Cshade[0];
194		Panel2->Color=Fenp->Cshade[1];
195		Panel3->Color=Fenp->Cshade[2];
196		Panel4->Color=Fenp->Cshade[3];
197		Panel5->Color=Fenp->Cshade[4];
198		Panel6->Color=Fenp->Cshade[5];
199		Panel7->Color=Fenp->Cshade[6];
200		Panel8->Color=Fenp->Cshade[7];
201		Panel9->Color=Fenp->Cshade[8];
202		Panel10->Color=Fenp->Cshade[9];
203		Panel11->Color=Fenp->Cshade[10];
204		Panel12->Color=Fenp->Cshade[11];
205		Button1->Font->Color=clWindowText;
206		Button2->Font->Color=clWindowText;
207		Button3->Font->Color=clWindowText;
208		Button4->Font->Color=clWindowText;
209		Button5->Font->Color=clWindowText;
210		Button6->Font->Color=clWindowText;
211		Button7->Font->Color=clWindowText;
212		Button8->Font->Color=clWindowText;
213		Button9->Font->Color=clWindowText;
214		Button10->Font->Color=clWindowText;
215		Button11->Font->Color=clWindowText;
216		Button12->Font->Color=clWindowText;
217		Button13->Font->Color=clWindowText;
218		Button14->Font->Color=clWindowText;
219		Button15->Font->Color=clWindowText;
220		}
221		//---------------------------------------------------------------------------
222		void __fastcall TCcolor::Button15Click(TObject *Sender)
223		{
224		ColorDialog1->Color=Fenp->Cshade[11];
225		if (ColorDialog1->Execute()==1)
226		{
227		Fenp->Cshade[11]=ColorDialog1->Color;
228		Panel12->Color=Fenp->Cshade[11];
229		}
230
231		}
232		//---------------------------------------------------------------------------