---------------------------------------------------------------------------
| 125 | } |
| 126 | //--------------------------------------------------------------------------- |
| 127 | void TMessProcessFr::ToDialog(TMessProcess * p) |
| 128 | { |
| 129 | bEnableValuesChange = false; |
| 130 | |
| 131 | IgnoreCB->Checked = p->bIgnore; |
| 132 | AlarmCB->Checked = p->bAlarm; |
| 133 | AlarmMessEdit->Text = p->AlarmMess; |
| 134 | SoundCB->Checked = p->bSound; |
| 135 | SoundFileEdit->Text = p->SoundFile; |
| 136 | PlayCountEdit->Text = IntToStr(p->PlayCount); |
| 137 | SendMailCB->Checked = p->bSendMail; |
| 138 | RecipientEdit->Text = p->Recipient; |
| 139 | RecipientEditExit(RecipientEdit); |
| 140 | RunProgCB->Checked = p->bRunProg; |
| 141 | ProgFileEdit->Text = p->ProgFile; |
| 142 | ProgHideCB->Checked = p->bProgHide; |
| 143 | SaveToFileCB->Checked = p->bSaveToFile; |
| 144 | SaveFileCB->ItemIndex = SaveFileCB->Items->IndexOfObject((TObject *)p->SaveFile); |
| 145 | |
| 146 | bEnableValuesChange = true; |
| 147 | } |
| 148 | //--------------------------------------------------------------------------- |
| 149 | void TMessProcessFr::FromDialog(TMessProcess * p) |
| 150 | { |
nothing calls this directly
no outgoing calls
no test coverage detected