forked from ja7ude/MMANA
-
Notifications
You must be signed in to change notification settings - Fork 0
/
NearSet.cpp
82 lines (76 loc) · 4.02 KB
/
NearSet.cpp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
//Copyright+LGPL
//-----------------------------------------------------------------------------------------------------------------------------------------------
// Copyright 1999-2013 Makoto Mori, Nobuyuki Oba
//-----------------------------------------------------------------------------------------------------------------------------------------------
// This file is part of MMANA.
// MMANA is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License
// as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
// MMANA is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.
// You should have received a copy of the GNU Lesser General Public License along with MMANA. If not, see
// <http://www.gnu.org/licenses/>.
//-----------------------------------------------------------------------------------------------------------------------------------------------
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "NearSet.h"
#include "Main.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//TNearSetDlg *NearSetDlg;
//---------------------------------------------------------------------
__fastcall TNearSetDlg::TNearSetDlg(TComponent* AOwner)
: TForm(AOwner)
{
}
//---------------------------------------------------------------------------
int __fastcall TNearSetDlg::Execute(void)
{
if( exeenv.pNearFile == NULL ) return FALSE;
char bf[128];
CalcSel->ItemIndex = exeenv.pNearFile->TYPE;
EditName->Text = exeenv.pNearFile->Name;
EditPow->Text = StrDbl(exeenv.pNearFile->POW);
EditX->Text = StrDbl(exeenv.pNearFile->X);
EditXW->Text = StrDbl(exeenv.pNearFile->XW);
EditY->Text = StrDbl(exeenv.pNearFile->Y);
EditYW->Text = StrDbl(exeenv.pNearFile->YW);
EditZ->Text = StrDbl(exeenv.pNearFile->Z);
EditZW->Text = StrDbl(exeenv.pNearFile->ZW);
sprintf(bf, "%d", exeenv.pNearFile->XN);
EditXN->Text = bf;
sprintf(bf, "%d", exeenv.pNearFile->YN);
EditYN->Text = bf;
sprintf(bf, "%d", exeenv.pNearFile->ZN);
EditZN->Text = bf;
if( ShowModal() == IDOK ){
exeenv.pNearFile->TYPE = CalcSel->ItemIndex;
strncpy(exeenv.pNearFile->Name, AnsiString(EditName->Text).c_str(), 256); //ja7ude 1.0
if( Calc(exeenv.pNearFile->POW, AnsiString(EditPow->Text).c_str())==FALSE ) return FALSE;
if( Calc(exeenv.pNearFile->X, AnsiString(EditX->Text).c_str())==FALSE ) return FALSE;
if( Calc(exeenv.pNearFile->Y, AnsiString(EditY->Text).c_str())==FALSE ) return FALSE;
if( Calc(exeenv.pNearFile->Z, AnsiString(EditZ->Text).c_str())==FALSE ) return FALSE;
if( Calc(exeenv.pNearFile->XW, AnsiString(EditXW->Text).c_str())==FALSE ) return FALSE;
if( Calc(exeenv.pNearFile->YW, AnsiString(EditYW->Text).c_str())==FALSE ) return FALSE;
if( Calc(exeenv.pNearFile->ZW, AnsiString(EditZW->Text).c_str())==FALSE ) return FALSE;
if( CalcU(exeenv.pNearFile->XN, AnsiString(EditXN->Text).c_str())==FALSE ) return FALSE;
if( CalcU(exeenv.pNearFile->YN, AnsiString(EditYN->Text).c_str())==FALSE ) return FALSE;
if( CalcU(exeenv.pNearFile->ZN, AnsiString(EditZN->Text).c_str())==FALSE ) return FALSE;
return TRUE;
}
return FALSE;
}
//---------------------------------------------------------------------
void __fastcall TNearSetDlg::FileBtnClick(TObject *Sender)
{
MainWnd->SaveDialog->Title = "近距離データファイル";
MainWnd->SaveDialog->Filter = "CSVファイル(*.csv)|*.csv|";
MainWnd->SaveDialog->FileName = exeenv.pNearFile->Name;
MainWnd->SaveDialog->DefaultExt = "csv";
MainWnd->SaveDialog->InitialDir = ResDir;
if( MainWnd->SaveDialog->Execute() == TRUE ){
strncpy(exeenv.pNearFile->Name, AnsiString(MainWnd->SaveDialog->FileName).c_str(), 256);
EditName->Text = exeenv.pNearFile->Name;
}
}
//---------------------------------------------------------------------------