---------------------------------------------------------------------------
| 45 | } |
| 46 | //--------------------------------------------------------------------------- |
| 47 | void __fastcall TMessProcessFr::InsertAlarmMessButtonClick(TObject *Sender) |
| 48 | { |
| 49 | POINT p = InsertAlarmMessButton->ClientOrigin; |
| 50 | InsertPopupMenu->Popup(p.x, p.y + InsertAlarmMessButton->Height); |
| 51 | if( GetForm() ) |
| 52 | GetForm()->ActiveControl = AlarmMessEdit; |
| 53 | } |
| 54 | //--------------------------------------------------------------------------- |
| 55 | void __fastcall TMessProcessFr::pmInsertClick(TObject *Sender) |
| 56 | { |
nothing calls this directly
no outgoing calls
no test coverage detected