---------------------------------------------------------------------------
| 249 | } |
| 250 | //--------------------------------------------------------------------------- |
| 251 | void __fastcall TSetupForm::pmInsertClick(TObject *Sender) |
| 252 | { |
| 253 | String s; |
| 254 | switch( ((TMenuItem *)Sender)->Tag ) |
| 255 | { |
| 256 | case 0: s = "{time}"; break; |
| 257 | case 1: s = "{ip}"; break; |
| 258 | case 2: s = "{host}"; break; |
| 259 | case 3: s = "{facility}"; break; |
| 260 | case 4: s = "{priority}"; break; |
| 261 | case 5: s = "{tag}"; break; |
| 262 | case 6: s = "{message}"; break; |
| 263 | } |
| 264 | |
| 265 | if( ActiveControl == messageMemo ) |
| 266 | messageMemo->Text = messageMemo->Text + s; |
| 267 | |
| 268 | if( ActiveControl == subjectEdit ) |
| 269 | subjectEdit->Text = subjectEdit->Text + s; |
| 270 | } |
| 271 | //--------------------------------------------------------------------------- |
| 272 | void __fastcall TSetupForm::InsertToMessageButtonClick(TObject *Sender) |
| 273 | { |
nothing calls this directly
no outgoing calls
no test coverage detected