---------------------------------------------------------------------------
| 88 | } |
| 89 | //--------------------------------------------------------------------------- |
| 90 | void __fastcall THighlightForm::AddButtonClick(TObject *Sender) |
| 91 | { |
| 92 | TMessHighlightList * p = localHPL->GetCurrentProfile(); |
| 93 | if( p ) |
| 94 | { |
| 95 | TMessHighlight * mh = new TMessHighlight; |
| 96 | p->Add(mh); |
| 97 | DrawGrid->RowCount = 1 + p->Count; |
| 98 | DrawGrid->Row = DrawGrid->RowCount - 1; |
| 99 | DrawGrid->FixedRows = 1; |
| 100 | } |
| 101 | } |
| 102 | //--------------------------------------------------------------------------- |
| 103 | void __fastcall THighlightForm::DelButtonClick(TObject *Sender) |
| 104 | { |
nothing calls this directly
no test coverage detected