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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdio.h>
#pragma hdrstop
#include "keydlg.h"
#include "fileoptdlg.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFileOptDialog *FileOptDialog;
//---------------------------------------------------------------------------
__fastcall TFileOptDialog::TFileOptDialog(TComponent* Owner)
: TForm(Owner)
{
Opt=0;
}
//---------------------------------------------------------------------------
void __fastcall TFileOptDialog::FormShow(TObject *Sender)
{
AnsiString s;
double speed=1.0,start=0.0,intv=0.0;
char buff[1024];
char *p;
strcpy(buff,Path.c_str());
ChkTimeTag->Caption=Opt?"TimeTag":"Time";
TimeSpeed->Visible=!Opt;
TimeStart->Visible=!Opt;
Label1 ->Caption=Opt?"Output File Path":"Input File Path";
Label2 ->Visible=!Opt;
Label3 ->Visible=!Opt;
Label4 ->Visible=Opt;
Label5 ->Visible=Opt;
SwapIntv ->Visible=Opt;
BtnKey ->Visible=Opt;
ChkTimeTag->Checked=false;
SwapIntv ->Text="";
if (!Opt) {
for (p=buff;p=strstr(p,"::");p+=2) {
if (*(p+2)=='T') ChkTimeTag->Checked=true;
else if (*(p+2)=='+') sscanf(p+2,"+%lf",&start);
else if (*(p+2)=='x') sscanf(p+2,"x%lf",&speed);
}
if (start<=0.0) start=0.0;
if (speed<=0.0) speed=1.0;
TimeSpeed->Text=s.sprintf("x%g",speed);
TimeStart->Text=s.sprintf("%g", start);
if ((p=strstr(buff,"::"))) *p='\0';
FilePath->Text=buff;
}
else {
for (p=buff;p=strstr(p,"::");p+=2) {
if (*(p+2)=='T') ChkTimeTag->Checked=true;
else if (*(p+2)=='S') sscanf(p+2,"S=%lf",&intv);
}
if (intv>0.0) SwapIntv->Text=s.sprintf("%.3g",intv);
if ((p=strstr(buff,"::"))) *p='\0';
FilePath->Text=buff;
}
UpdateEnable();
}
//---------------------------------------------------------------------------
void __fastcall TFileOptDialog::BtnOkClick(TObject *Sender)
{
AnsiString str;
double swap;
if (!Opt) {
Path=FilePath->Text;
if (ChkTimeTag->Checked) {
Path=Path+"::T"+"::"+TimeSpeed->Text+"::+"+TimeStart->Text;
}
}
else {
Path=FilePath->Text;
if (ChkTimeTag->Checked) Path+="::T";
str=SwapIntv->Text;
if (sscanf(str.c_str(),"%lf",&swap)>=1) {
Path+="::S="+str;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TFileOptDialog::BtnFilePathClick(TObject *Sender)
{
if (!Opt) {
OpenDialog->FileName=FilePath->Text;
if (!OpenDialog->Execute()) return;
FilePath->Text=OpenDialog->FileName;
}
else {
SaveDialog->FileName=FilePath->Text;
if (!SaveDialog->Execute()) return;
FilePath->Text=SaveDialog->FileName;
}
}
//---------------------------------------------------------------------------
void __fastcall TFileOptDialog::ChkTimeTagClick(TObject *Sender)
{
UpdateEnable();
}
//---------------------------------------------------------------------------
void __fastcall TFileOptDialog::BtnKeyClick(TObject *Sender)
{
KeyDialog->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFileOptDialog::UpdateEnable(void)
{
TimeSpeed->Enabled=ChkTimeTag->Checked;
TimeStart->Enabled=ChkTimeTag->Checked;
Label2 ->Enabled=ChkTimeTag->Checked;
Label3 ->Enabled=ChkTimeTag->Checked;
}
//---------------------------------------------------------------------------
|
