MathgeomGLS

1
//---------------------------------------------------------------------------
2

3
#include <vcl.h>
4
#pragma hdrstop
5

6
#include "fcGrafVol.h"
7
//---------------------------------------------------------------------------
8
#pragma package(smart_init)
9
#pragma link "GLS.BaseClasses"
10
#pragma link "GLS.BitmapFont"
11
#pragma link "GLS.Cadencer"
12
#pragma link "GLS.Coordinates"
13
#pragma link "GLS.Graph"
14
#pragma link "GLS.HUDObjects"
15
#pragma link "GLS.Objects"
16
#pragma link "GLS.Scene"
17
#pragma link "GLS.SceneViewer"
18
#pragma link "GLS.WindowsFont"
19
#pragma link "GLS.SimpleNavigation"
20
#pragma resource "*.dfm"
21

22
TFormGrafvol *FormGrafvol;
23

24
//---------------------------------------------------------------------------
25
__fastcall TFormGrafvol::TFormGrafvol(TComponent* Owner)
26
	: TForm(Owner)
27
{
28
}
29
//---------------------------------------------------------------------------
30
void __fastcall TFormGrafvol::FormCreate(TObject *Sender)
31
{
32
   LoadData("data\datas");
33
}
34
//---------------------------------------------------------------------------
35

36
TPoint __fastcall TFormGrafvol::_Getpid(String s)
37
{
38
  TPoint Point;
39
  float f = StrToFloat(s, fs);
40
  Point.X = round(f) - 1;
41
  Point.Y = round((f - round(f)) * 100);
42
  return Point;
43
}
44

45
void __fastcall TFormGrafvol::LoadData(TFileName aFileName)
46
{
47
  //
48
}
49

50

51

52