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:
#	Content
1	//---------------------------------------------------------------------------
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	//---------------------------------------------------------------------------