MCPcopy Create free account
hub / github.com/MaxBelkov/visualsyslog / FromDialog

Method FromDialog

source/fileframe.cpp:100–137  ·  view source on GitHub ↗

---------------------------------------------------------------------------

Source from the content-addressed store, hash-verified

98}
99//---------------------------------------------------------------------------
100void TFileFr::FromDialog(TStorageFile * p)
101{
102 p->SetFileName(FileEdit->Text);
103
104 if( RotationRB2->Checked )
105 p->rotation_type = 1;
106 else if( RotationRB3->Checked )
107 p->rotation_type = 2;
108 else
109 p->rotation_type = 0;
110
111 p->rotation_size = StrToIntDef(SizeEdit->Text, 10);
112 if( p->rotation_size < 1 )
113 p->rotation_size = 1;
114
115 if( MultCB->ItemIndex == -1 )
116 p->rotation_mult = 1;
117 else
118 p->rotation_mult = MultCB->ItemIndex;
119
120 if( MomentCB->ItemIndex == -1 )
121 p->rotation_moment = 1;
122 else
123 p->rotation_moment = MomentCB->ItemIndex;
124
125 p->rotation_hour = StrToIntDef(HourEdit->Text, 0);
126 if( p->rotation_hour < 0 || p->rotation_hour > 23 )
127 p->rotation_hour = 0;
128
129 if( RenamingRB0->Checked )
130 p->rotation_renaming = 0;
131 else
132 p->rotation_renaming = 1;
133 p->rotation_name = NewNameEdit->Text.Trim();
134 p->rotation_count = StrToIntDef(CountEdit->Text, 1);
135 if( p->rotation_count < 1 )
136 p->rotation_count = 1;
137}
138//---------------------------------------------------------------------------
139void __fastcall TFileFr::Change(TObject *Sender)
140{

Callers 4

OnFrameValuesChangeMethod · 0.45
OnFrameValuesChangeMethod · 0.45
OnFrameValuesChangeMethod · 0.45
aDisplayFilterExecuteMethod · 0.45

Calls 1

SetFileNameMethod · 0.80

Tested by

no test coverage detected