---------------------------------------------------------------------------
| 98 | } |
| 99 | //--------------------------------------------------------------------------- |
| 100 | void 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 | //--------------------------------------------------------------------------- |
| 139 | void __fastcall TFileFr::Change(TObject *Sender) |
| 140 | { |
no test coverage detected