---------------------------------------------------------------------------
| 53 | } |
| 54 | //--------------------------------------------------------------------------- |
| 55 | void __fastcall TMessProcessFr::pmInsertClick(TObject *Sender) |
| 56 | { |
| 57 | String s; |
| 58 | switch( ((TMenuItem *)Sender)->Tag ) |
| 59 | { |
| 60 | case 0: s = "{time}"; break; |
| 61 | case 1: s = "{ip}"; break; |
| 62 | case 2: s = "{host}"; break; |
| 63 | case 3: s = "{facility}"; break; |
| 64 | case 4: s = "{priority}"; break; |
| 65 | case 5: s = "{tag}"; break; |
| 66 | case 6: s = "{message}"; break; |
| 67 | } |
| 68 | |
| 69 | if( GetForm() ) |
| 70 | { |
| 71 | if( dynamic_cast<TEdit *>(GetForm()->ActiveControl) ) |
| 72 | { |
| 73 | TEdit * p = (TEdit *)(GetForm()->ActiveControl); |
| 74 | p->Text = p->Text + s; |
| 75 | } |
| 76 | } |
| 77 | } |
| 78 | //--------------------------------------------------------------------------- |
| 79 | void __fastcall TMessProcessFr::SelWavCommonButtonClick(TObject *Sender) |
| 80 | { |
nothing calls this directly
no outgoing calls
no test coverage detected