---------------------------------------------------------------------------
| 147 | } |
| 148 | //--------------------------------------------------------------------------- |
| 149 | void TMessProcessFr::FromDialog(TMessProcess * p) |
| 150 | { |
| 151 | p->bIgnore = IgnoreCB->Checked; |
| 152 | p->bAlarm = AlarmCB->Checked; |
| 153 | p->AlarmMess = AlarmMessEdit->Text; |
| 154 | p->bSound = SoundCB->Checked; |
| 155 | p->SoundFile = SoundFileEdit->Text; |
| 156 | p->PlayCount = StrToIntDef(PlayCountEdit->Text, 1); |
| 157 | p->bSendMail = SendMailCB->Checked; |
| 158 | if( RecipientEdit->Text == DefaultRecipient ) |
| 159 | p->Recipient = ""; |
| 160 | else |
| 161 | p->Recipient = RecipientEdit->Text; |
| 162 | p->bRunProg = RunProgCB->Checked; |
| 163 | p->ProgFile = ProgFileEdit->Text; |
| 164 | p->bProgHide = ProgHideCB->Checked; |
| 165 | p->bSaveToFile = SaveToFileCB->Checked; |
| 166 | int i = SaveFileCB->ItemIndex; |
| 167 | if( i == -1 ) |
| 168 | p->SaveFile = i; |
| 169 | else |
| 170 | p->SaveFile = (int)SaveFileCB->Items->Objects[i]; |
| 171 | } |
| 172 | //--------------------------------------------------------------------------- |
| 173 | void __fastcall TMessProcessFr::Change(TObject *Sender) |
| 174 | { |
nothing calls this directly
no outgoing calls
no test coverage detected