REPOS_ERICCA/mesh/tool.cpp

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

#include "tool.h"
#include "fenetre.h"
#include "s_valeur.h"

//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TToolbar *Toolbar;
//---------------------------------------------------------------------------
__fastcall TToolbar::TToolbar(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::FormCreate(TObject *Sender)
{
Fenp->existetool=1;
if (Fenp->existetool!=0)
        if (Fenp->Barrevisible1->Checked==false) Toolbar->FormStyle=fsNormal;
        else Toolbar->FormStyle=fsStayOnTop;
Toolbar->Caption="Outil pour "+Fenp->Caption;
Toolbar->Left=Fenp->toolx;
Toolbar->Top=Fenp->tooly;
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree;
Fenp->existetool=0;
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn3Click(TObject *Sender)
{
Fenp->zoom=Fenp->zoom*1.1;
Fenp->xcentre=(Fenp->ClientWidth/2.-1.1*(Fenp->ClientWidth/2.-Fenp->xcentre));
Fenp->ycentre=(Fenp->ClientHeight/2.-1.1*(Fenp->ClientHeight/2.-Fenp->ycentre));
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn1Click(TObject *Sender)
{
Fenp->zoom=Fenp->zoom/1.1;
Fenp->xcentre=(Fenp->ClientWidth/2.-0.9090909090*(Fenp->ClientWidth/2.-Fenp->xcentre));
Fenp->ycentre=(Fenp->ClientHeight/2.-0.9090909090*(Fenp->ClientHeight/2.-Fenp->ycentre));
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn12Click(TObject *Sender)
{
Fenp->rot[0][0]=1.0;Fenp->rot[1][0]=0.0;Fenp->rot[2][0]=0.0;
Fenp->rot[0][1]=0.0;Fenp->rot[1][1]=1.0;Fenp->rot[2][1]=0.0;
Fenp->rot[0][2]=0.0;Fenp->rot[1][2]=0.0;Fenp->rot[2][2]=1.0;
Fenp->norme();
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn8Click(TObject *Sender)
{
Fenp->norme();
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn2Click(TObject *Sender)
{
if (Fenp->fc==1) Fenp->fc=0; else Fenp->fc=1;
    Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn11Click(TObject *Sender)
{
char mess[255];

sprintf(Fenp->info,"numero de noeud a afficher (0-%d)?",Fenp->nb_point);
Valeur->ShowModal();
strcpy(mess,Valeur->Edit1->Text.c_str());
sscanf(mess,"%d",&Fenp->numero_noeud);
if (Fenp->numero_noeud>=Fenp->nb_point) Fenp->numero_noeud=Fenp->nb_point;
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn10Click(TObject *Sender)
{
int nb_maille;
char mess[255];

nb_maille=Fenp->nb_segment+Fenp->nb_triangle+Fenp->nb_tetra;
sprintf(Fenp->info,"numero de maille a afficher (0-%d)?",nb_maille);
Valeur->ShowModal();
strcpy(mess,Valeur->Edit1->Text.c_str());
sscanf(mess,"%d",&Fenp->numero_maille);
if (Fenp->numero_maille>=nb_maille) Fenp->numero_maille=nb_maille;
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn9Click(TObject *Sender)
{
char mess[255];
float val;

strcpy(Fenp->info,"Valeur du zoom ?");
Valeur->ShowModal();
strcpy(mess,Valeur->Edit1->Text.c_str());
sscanf(mess,"%f",&val);
Fenp->zoom=Fenp->zoom*val;
Fenp->xcentre=(Fenp->ClientWidth/2.-val*(Fenp->ClientWidth/2.-Fenp->xcentre));
Fenp->ycentre=(Fenp->ClientHeight/2.-val*(Fenp->ClientHeight/2.-Fenp->ycentre));
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn13Click(TObject *Sender)
{
char mess[255];
float val;

strcpy(Fenp->info,"Valeur de la rotation suivant x ?");
Valeur->ShowModal();
strcpy(mess,Valeur->Edit1->Text.c_str());
sscanf(mess,"%f",&val);
Fenp->rotation(val/180.*PI,1);
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn14Click(TObject *Sender)
{
char mess[255];
float val;

strcpy(Fenp->info,"Valeur de la rotation suivant y ?");
Valeur->ShowModal();
strcpy(mess,Valeur->Edit1->Text.c_str());
sscanf(mess,"%f",&val);
Fenp->rotation(val/180.*PI,2);
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn15Click(TObject *Sender)
{
char mess[255];
float val;

strcpy(Fenp->info,"Valeur de la rotation suivant z ?");
Valeur->ShowModal();
strcpy(mess,Valeur->Edit1->Text.c_str());
sscanf(mess,"%f",&val);
Fenp->rotation(val/180.*PI,3);
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn4Click(TObject *Sender)
{
Fenp->ycentre=Fenp->ycentre+4;
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn6Click(TObject *Sender)
{
Fenp->ycentre=Fenp->ycentre-4;
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn5Click(TObject *Sender)
{
Fenp->xcentre=Fenp->xcentre-4;
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn7Click(TObject *Sender)
{
Fenp->xcentre=Fenp->xcentre+4;
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn16Click(TObject *Sender)
{
Fenp->rotation(0.1,1);
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn17Click(TObject *Sender)
{
Fenp->rotation(-0.1,1);
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn18Click(TObject *Sender)
{
Fenp->rotation(0.1,2);
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn19Click(TObject *Sender)
{
Fenp->rotation(-0.1,2);
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn20Click(TObject *Sender)
{
Fenp->rotation(0.1,3);
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn21Click(TObject *Sender)
{
Fenp->rotation(-0.1,3);
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn22Click(TObject *Sender)
{
if (Fenp->horizon==1) Fenp->horizon=0;
else Fenp->horizon=1;
Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::FormPaint(TObject *Sender)
{
if (Fenp->horizon==1)
        {
    Toolbar->Width=630;
        Toolbar->Height=94;
    TrackBar1->Left=40;
        TrackBar1->Top=32;
        TrackBar1->Height=40;
        TrackBar1->Width=570;
        TrackBar1->Orientation=trHorizontal;
    Button1->Left=23;
    Button1->Top=29;
    Button1->Height=41;
    Button1->Width=17;
    BitBtn22->Left=8;
    BitBtn22->Top=0;
        BitBtn3->Left=40;
    BitBtn3->Top=0;
    BitBtn1->Left=64;
    BitBtn1->Top=0;
        BitBtn12->Left=88;
    BitBtn12->Top=0;
        BitBtn8->Left=112;
    BitBtn8->Top=0;
    BitBtn2->Left=136;
    BitBtn2->Top=0;
    BitBtn11->Left=160;
    BitBtn11->Top=0;
    BitBtn10->Left=184;
    BitBtn10->Top=0;
    BitBtn9->Left=208;
    BitBtn9->Top=0;
    BitBtn13->Left=232;
    BitBtn13->Top=0;
    BitBtn14->Left=256;
    BitBtn14->Top=0;
    BitBtn15->Left=280;
    BitBtn15->Top=0;
    BitBtn4->Left=304;
    BitBtn4->Top=0;
    BitBtn6->Left=328;
    BitBtn6->Top=0;
    BitBtn5->Left=352;
    BitBtn5->Top=0;
    BitBtn7->Left=376;
    BitBtn7->Top=0;
    BitBtn16->Left=400;
    BitBtn16->Top=0;
    BitBtn17->Left=424;
    BitBtn17->Top=0;
    BitBtn18->Left=448;
    BitBtn18->Top=0;
    BitBtn19->Left=472;
    BitBtn19->Top=0;
    BitBtn20->Left=496;
    BitBtn20->Top=0;
    BitBtn21->Left=520;
    BitBtn21->Top=0;
        BitBtn23->Left=544;
    BitBtn23->Top=0;
        BitBtn24->Left=568;
    BitBtn24->Top=0;
        BitBtn25->Left=592;
    BitBtn25->Top=0;
        }
else
        {
    Toolbar->Width=107;
        Toolbar->Height=350;
    TrackBar1->Left=57;
        TrackBar1->Top=40;
        TrackBar1->Height=290;
        TrackBar1->Width=40;
        TrackBar1->Orientation=trVertical;
    Button1->Left=56;
    Button1->Top=23;
    Button1->Height=17;
    Button1->Width=41;
    BitBtn22->Left=14;
    BitBtn22->Top=8;
        BitBtn3->Left=1;
    BitBtn3->Top=40;
    BitBtn1->Left=1;
    BitBtn1->Top=64;
        BitBtn12->Left=1;
    BitBtn12->Top=88;
        BitBtn8->Left=1;
    BitBtn8->Top=112;
    BitBtn2->Left=1;
    BitBtn2->Top=136;
    BitBtn11->Left=1;
    BitBtn11->Top=160;
    BitBtn10->Left=1;
    BitBtn10->Top=184;
    BitBtn9->Left=1;
    BitBtn9->Top=208;
    BitBtn13->Left=1;
    BitBtn13->Top=232;
    BitBtn14->Left=1;
    BitBtn14->Top=256;
    BitBtn15->Left=1;
    BitBtn15->Top=280;
    BitBtn4->Left=25;
    BitBtn4->Top=40;
    BitBtn6->Left=25;
    BitBtn6->Top=64;
    BitBtn5->Left=25;
    BitBtn5->Top=88;
    BitBtn7->Left=25;
    BitBtn7->Top=112;
    BitBtn16->Left=25;
    BitBtn16->Top=136;
    BitBtn17->Left=25;
    BitBtn17->Top=160;
    BitBtn18->Left=25;
    BitBtn18->Top=184;
    BitBtn19->Left=25;
    BitBtn19->Top=208;
    BitBtn20->Left=25;
    BitBtn20->Top=232;
    BitBtn21->Left=25;
    BitBtn21->Top=256;
        BitBtn23->Left=25;
    BitBtn23->Top=280;
        BitBtn24->Left=0;
    BitBtn24->Top=304;
        BitBtn25->Left=25;
    BitBtn25->Top=304;

    }
TrackBar1->Position=(int)(Fenp->loin*100.);
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn23Click(TObject *Sender)
{
char mess[255];

strcpy(Fenp->info,"Valeur de l'echelle ?");
sprintf(mess,"%f",Fenp->zoom);
Valeur->Edit1->Text=mess;
Valeur->ShowModal();
strcpy(mess,Valeur->Edit1->Text.c_str());
sscanf(mess,"%f",&(Fenp->zoom));
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn24Click(TObject *Sender)
{
Fenp->homo=Fenp->homo/1.1;
if (Fenp->homo<0.0001) Fenp->homo= 0.0001;
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::BitBtn25Click(TObject *Sender)
{
Fenp->homo=Fenp->homo*1.1;
if (Fenp->homo>1) Fenp->homo=1.;
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::TrackBar1Change(TObject *Sender)
{
float pos;

pos=(float)(TrackBar1->Position);
Fenp->loin=pos*0.01;
Fenp->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TToolbar::Button1Click(TObject *Sender)
{

Fenp->loin=1.;
Toolbar->TrackBar1->Position=(int)(Fenp->loin*100.);
Fenp->Invalidate();

}
//---------------------------------------------------------------------------
Revision:	3
Committed:	Tue Jun 12 12:42:51 2007 UTC (17 years, 11 months ago)
File size:	11743 byte(s)
Log Message:
#	Rev	Content
1	3	//---------------------------------------------------------------------------
2		#include <vcl\vcl.h>
3		#pragma hdrstop
4
5		#include "tool.h"
6		#include "fenetre.h"
7		#include "s_valeur.h"
8
9		//---------------------------------------------------------------------------
10		#pragma resource "*.dfm"
11		TToolbar *Toolbar;
12		//---------------------------------------------------------------------------
13		__fastcall TToolbar::TToolbar(TComponent* Owner)
14		: TForm(Owner)
15		{
16		}
17		//---------------------------------------------------------------------------
18		void __fastcall TToolbar::FormCreate(TObject *Sender)
19		{
20		Fenp->existetool=1;
21		if (Fenp->existetool!=0)
22		if (Fenp->Barrevisible1->Checked==false) Toolbar->FormStyle=fsNormal;
23		else Toolbar->FormStyle=fsStayOnTop;
24		Toolbar->Caption="Outil pour "+Fenp->Caption;
25		Toolbar->Left=Fenp->toolx;
26		Toolbar->Top=Fenp->tooly;
27		}
28		//---------------------------------------------------------------------------
29		void __fastcall TToolbar::FormClose(TObject *Sender, TCloseAction &Action)
30		{
31		Action=caFree;
32		Fenp->existetool=0;
33		}
34		//---------------------------------------------------------------------------
35		void __fastcall TToolbar::BitBtn3Click(TObject *Sender)
36		{
37		Fenp->zoom=Fenp->zoom*1.1;
38		Fenp->xcentre=(Fenp->ClientWidth/2.-1.1*(Fenp->ClientWidth/2.-Fenp->xcentre));
39		Fenp->ycentre=(Fenp->ClientHeight/2.-1.1*(Fenp->ClientHeight/2.-Fenp->ycentre));
40		Fenp->Invalidate();
41		}
42		//---------------------------------------------------------------------------
43		void __fastcall TToolbar::BitBtn1Click(TObject *Sender)
44		{
45		Fenp->zoom=Fenp->zoom/1.1;
46		Fenp->xcentre=(Fenp->ClientWidth/2.-0.9090909090*(Fenp->ClientWidth/2.-Fenp->xcentre));
47		Fenp->ycentre=(Fenp->ClientHeight/2.-0.9090909090*(Fenp->ClientHeight/2.-Fenp->ycentre));
48		Fenp->Invalidate();
49		}
50		//---------------------------------------------------------------------------
51		void __fastcall TToolbar::BitBtn12Click(TObject *Sender)
52		{
53		Fenp->rot[0][0]=1.0;Fenp->rot[1][0]=0.0;Fenp->rot[2][0]=0.0;
54		Fenp->rot[0][1]=0.0;Fenp->rot[1][1]=1.0;Fenp->rot[2][1]=0.0;
55		Fenp->rot[0][2]=0.0;Fenp->rot[1][2]=0.0;Fenp->rot[2][2]=1.0;
56		Fenp->norme();
57		Fenp->Invalidate();
58
59		}
60		//---------------------------------------------------------------------------
61		void __fastcall TToolbar::BitBtn8Click(TObject *Sender)
62		{
63		Fenp->norme();
64		Fenp->Invalidate();
65
66		}
67		//---------------------------------------------------------------------------
68		void __fastcall TToolbar::BitBtn2Click(TObject *Sender)
69		{
70		if (Fenp->fc==1) Fenp->fc=0; else Fenp->fc=1;
71		Fenp->Invalidate();
72
73		}
74		//---------------------------------------------------------------------------
75		void __fastcall TToolbar::BitBtn11Click(TObject *Sender)
76		{
77		char mess[255];
78
79		sprintf(Fenp->info,"numero de noeud a afficher (0-%d)?",Fenp->nb_point);
80		Valeur->ShowModal();
81		strcpy(mess,Valeur->Edit1->Text.c_str());
82		sscanf(mess,"%d",&Fenp->numero_noeud);
83		if (Fenp->numero_noeud>=Fenp->nb_point) Fenp->numero_noeud=Fenp->nb_point;
84		Fenp->Invalidate();
85		}
86		//---------------------------------------------------------------------------
87		void __fastcall TToolbar::BitBtn10Click(TObject *Sender)
88		{
89		int nb_maille;
90		char mess[255];
91
92		nb_maille=Fenp->nb_segment+Fenp->nb_triangle+Fenp->nb_tetra;
93		sprintf(Fenp->info,"numero de maille a afficher (0-%d)?",nb_maille);
94		Valeur->ShowModal();
95		strcpy(mess,Valeur->Edit1->Text.c_str());
96		sscanf(mess,"%d",&Fenp->numero_maille);
97		if (Fenp->numero_maille>=nb_maille) Fenp->numero_maille=nb_maille;
98		Fenp->Invalidate();
99
100		}
101		//---------------------------------------------------------------------------
102		void __fastcall TToolbar::BitBtn9Click(TObject *Sender)
103		{
104		char mess[255];
105		float val;
106
107		strcpy(Fenp->info,"Valeur du zoom ?");
108		Valeur->ShowModal();
109		strcpy(mess,Valeur->Edit1->Text.c_str());
110		sscanf(mess,"%f",&val);
111		Fenp->zoom=Fenp->zoom*val;
112		Fenp->xcentre=(Fenp->ClientWidth/2.-val*(Fenp->ClientWidth/2.-Fenp->xcentre));
113		Fenp->ycentre=(Fenp->ClientHeight/2.-val*(Fenp->ClientHeight/2.-Fenp->ycentre));
114		Fenp->Invalidate();
115		}
116		//---------------------------------------------------------------------------
117		void __fastcall TToolbar::BitBtn13Click(TObject *Sender)
118		{
119		char mess[255];
120		float val;
121
122		strcpy(Fenp->info,"Valeur de la rotation suivant x ?");
123		Valeur->ShowModal();
124		strcpy(mess,Valeur->Edit1->Text.c_str());
125		sscanf(mess,"%f",&val);
126		Fenp->rotation(val/180.*PI,1);
127		Fenp->Invalidate();
128
129		}
130		//---------------------------------------------------------------------------
131		void __fastcall TToolbar::BitBtn14Click(TObject *Sender)
132		{
133		char mess[255];
134		float val;
135
136		strcpy(Fenp->info,"Valeur de la rotation suivant y ?");
137		Valeur->ShowModal();
138		strcpy(mess,Valeur->Edit1->Text.c_str());
139		sscanf(mess,"%f",&val);
140		Fenp->rotation(val/180.*PI,2);
141		Fenp->Invalidate();
142
143		}
144		//---------------------------------------------------------------------------
145		void __fastcall TToolbar::BitBtn15Click(TObject *Sender)
146		{
147		char mess[255];
148		float val;
149
150		strcpy(Fenp->info,"Valeur de la rotation suivant z ?");
151		Valeur->ShowModal();
152		strcpy(mess,Valeur->Edit1->Text.c_str());
153		sscanf(mess,"%f",&val);
154		Fenp->rotation(val/180.*PI,3);
155		Fenp->Invalidate();
156
157		}
158		//---------------------------------------------------------------------------
159		void __fastcall TToolbar::BitBtn4Click(TObject *Sender)
160		{
161		Fenp->ycentre=Fenp->ycentre+4;
162		Fenp->Invalidate();
163
164		}
165		//---------------------------------------------------------------------------
166		void __fastcall TToolbar::BitBtn6Click(TObject *Sender)
167		{
168		Fenp->ycentre=Fenp->ycentre-4;
169		Fenp->Invalidate();
170
171		}
172		//---------------------------------------------------------------------------
173		void __fastcall TToolbar::BitBtn5Click(TObject *Sender)
174		{
175		Fenp->xcentre=Fenp->xcentre-4;
176		Fenp->Invalidate();
177
178		}
179		//---------------------------------------------------------------------------
180		void __fastcall TToolbar::BitBtn7Click(TObject *Sender)
181		{
182		Fenp->xcentre=Fenp->xcentre+4;
183		Fenp->Invalidate();
184
185		}
186		//---------------------------------------------------------------------------
187		void __fastcall TToolbar::BitBtn16Click(TObject *Sender)
188		{
189		Fenp->rotation(0.1,1);
190		Fenp->Invalidate();
191		}
192		//---------------------------------------------------------------------------
193		void __fastcall TToolbar::BitBtn17Click(TObject *Sender)
194		{
195		Fenp->rotation(-0.1,1);
196		Fenp->Invalidate();
197		}
198		//---------------------------------------------------------------------------
199		void __fastcall TToolbar::BitBtn18Click(TObject *Sender)
200		{
201		Fenp->rotation(0.1,2);
202		Fenp->Invalidate();
203		}
204		//---------------------------------------------------------------------------
205		void __fastcall TToolbar::BitBtn19Click(TObject *Sender)
206		{
207		Fenp->rotation(-0.1,2);
208		Fenp->Invalidate();
209		}
210		//---------------------------------------------------------------------------
211		void __fastcall TToolbar::BitBtn20Click(TObject *Sender)
212		{
213		Fenp->rotation(0.1,3);
214		Fenp->Invalidate();
215		}
216		//---------------------------------------------------------------------------
217		void __fastcall TToolbar::BitBtn21Click(TObject *Sender)
218		{
219		Fenp->rotation(-0.1,3);
220		Fenp->Invalidate();
221		}
222		//---------------------------------------------------------------------------
223		void __fastcall TToolbar::BitBtn22Click(TObject *Sender)
224		{
225		if (Fenp->horizon==1) Fenp->horizon=0;
226		else Fenp->horizon=1;
227		Invalidate();
228		}
229		//---------------------------------------------------------------------------
230		void __fastcall TToolbar::FormPaint(TObject *Sender)
231		{
232		if (Fenp->horizon==1)
233		{
234		Toolbar->Width=630;
235		Toolbar->Height=94;
236		TrackBar1->Left=40;
237		TrackBar1->Top=32;
238		TrackBar1->Height=40;
239		TrackBar1->Width=570;
240		TrackBar1->Orientation=trHorizontal;
241		Button1->Left=23;
242		Button1->Top=29;
243		Button1->Height=41;
244		Button1->Width=17;
245		BitBtn22->Left=8;
246		BitBtn22->Top=0;
247		BitBtn3->Left=40;
248		BitBtn3->Top=0;
249		BitBtn1->Left=64;
250		BitBtn1->Top=0;
251		BitBtn12->Left=88;
252		BitBtn12->Top=0;
253		BitBtn8->Left=112;
254		BitBtn8->Top=0;
255		BitBtn2->Left=136;
256		BitBtn2->Top=0;
257		BitBtn11->Left=160;
258		BitBtn11->Top=0;
259		BitBtn10->Left=184;
260		BitBtn10->Top=0;
261		BitBtn9->Left=208;
262		BitBtn9->Top=0;
263		BitBtn13->Left=232;
264		BitBtn13->Top=0;
265		BitBtn14->Left=256;
266		BitBtn14->Top=0;
267		BitBtn15->Left=280;
268		BitBtn15->Top=0;
269		BitBtn4->Left=304;
270		BitBtn4->Top=0;
271		BitBtn6->Left=328;
272		BitBtn6->Top=0;
273		BitBtn5->Left=352;
274		BitBtn5->Top=0;
275		BitBtn7->Left=376;
276		BitBtn7->Top=0;
277		BitBtn16->Left=400;
278		BitBtn16->Top=0;
279		BitBtn17->Left=424;
280		BitBtn17->Top=0;
281		BitBtn18->Left=448;
282		BitBtn18->Top=0;
283		BitBtn19->Left=472;
284		BitBtn19->Top=0;
285		BitBtn20->Left=496;
286		BitBtn20->Top=0;
287		BitBtn21->Left=520;
288		BitBtn21->Top=0;
289		BitBtn23->Left=544;
290		BitBtn23->Top=0;
291		BitBtn24->Left=568;
292		BitBtn24->Top=0;
293		BitBtn25->Left=592;
294		BitBtn25->Top=0;
295		}
296		else
297		{
298		Toolbar->Width=107;
299		Toolbar->Height=350;
300		TrackBar1->Left=57;
301		TrackBar1->Top=40;
302		TrackBar1->Height=290;
303		TrackBar1->Width=40;
304		TrackBar1->Orientation=trVertical;
305		Button1->Left=56;
306		Button1->Top=23;
307		Button1->Height=17;
308		Button1->Width=41;
309		BitBtn22->Left=14;
310		BitBtn22->Top=8;
311		BitBtn3->Left=1;
312		BitBtn3->Top=40;
313		BitBtn1->Left=1;
314		BitBtn1->Top=64;
315		BitBtn12->Left=1;
316		BitBtn12->Top=88;
317		BitBtn8->Left=1;
318		BitBtn8->Top=112;
319		BitBtn2->Left=1;
320		BitBtn2->Top=136;
321		BitBtn11->Left=1;
322		BitBtn11->Top=160;
323		BitBtn10->Left=1;
324		BitBtn10->Top=184;
325		BitBtn9->Left=1;
326		BitBtn9->Top=208;
327		BitBtn13->Left=1;
328		BitBtn13->Top=232;
329		BitBtn14->Left=1;
330		BitBtn14->Top=256;
331		BitBtn15->Left=1;
332		BitBtn15->Top=280;
333		BitBtn4->Left=25;
334		BitBtn4->Top=40;
335		BitBtn6->Left=25;
336		BitBtn6->Top=64;
337		BitBtn5->Left=25;
338		BitBtn5->Top=88;
339		BitBtn7->Left=25;
340		BitBtn7->Top=112;
341		BitBtn16->Left=25;
342		BitBtn16->Top=136;
343		BitBtn17->Left=25;
344		BitBtn17->Top=160;
345		BitBtn18->Left=25;
346		BitBtn18->Top=184;
347		BitBtn19->Left=25;
348		BitBtn19->Top=208;
349		BitBtn20->Left=25;
350		BitBtn20->Top=232;
351		BitBtn21->Left=25;
352		BitBtn21->Top=256;
353		BitBtn23->Left=25;
354		BitBtn23->Top=280;
355		BitBtn24->Left=0;
356		BitBtn24->Top=304;
357		BitBtn25->Left=25;
358		BitBtn25->Top=304;
359
360		}
361		TrackBar1->Position=(int)(Fenp->loin*100.);
362		}
363		//---------------------------------------------------------------------------
364		void __fastcall TToolbar::BitBtn23Click(TObject *Sender)
365		{
366		char mess[255];
367
368		strcpy(Fenp->info,"Valeur de l'echelle ?");
369		sprintf(mess,"%f",Fenp->zoom);
370		Valeur->Edit1->Text=mess;
371		Valeur->ShowModal();
372		strcpy(mess,Valeur->Edit1->Text.c_str());
373		sscanf(mess,"%f",&(Fenp->zoom));
374		Fenp->Invalidate();
375
376		}
377		//---------------------------------------------------------------------------
378		void __fastcall TToolbar::BitBtn24Click(TObject *Sender)
379		{
380		Fenp->homo=Fenp->homo/1.1;
381		if (Fenp->homo<0.0001) Fenp->homo= 0.0001;
382		Fenp->Invalidate();
383		}
384		//---------------------------------------------------------------------------
385		void __fastcall TToolbar::BitBtn25Click(TObject *Sender)
386		{
387		Fenp->homo=Fenp->homo*1.1;
388		if (Fenp->homo>1) Fenp->homo=1.;
389		Fenp->Invalidate();
390		}
391		//---------------------------------------------------------------------------
392		void __fastcall TToolbar::TrackBar1Change(TObject *Sender)
393		{
394		float pos;
395
396		pos=(float)(TrackBar1->Position);
397		Fenp->loin=pos*0.01;
398		Fenp->Invalidate();
399		}
400		//---------------------------------------------------------------------------
401		void __fastcall TToolbar::Button1Click(TObject *Sender)
402		{
403
404		Fenp->loin=1.;
405		Toolbar->TrackBar1->Position=(int)(Fenp->loin*100.);
406		Fenp->Invalidate();
407
408		}
409		//---------------------------------------------------------------------------