---------------------------------------------------------------------------
| 62 | } |
| 63 | //--------------------------------------------------------------------------- |
| 64 | void __fastcall THighlightForm::FillRuleList(int SelectedIndex) |
| 65 | { |
| 66 | localHPL->CurrentProfile = ProfileCB->ItemIndex; |
| 67 | TMessHighlightList * p = localHPL->GetCurrentProfile(); |
| 68 | if( p ) |
| 69 | { |
| 70 | DrawGrid->RowCount = 1 + p->Count; |
| 71 | if( DrawGrid->RowCount > 1 ) |
| 72 | { |
| 73 | DrawGrid->FixedRows = 1; |
| 74 | if( DrawGrid->RowCount > SelectedIndex + 1 ) |
| 75 | DrawGrid->Row = SelectedIndex + 1; |
| 76 | else if( DrawGrid->RowCount >= 2 ) |
| 77 | DrawGrid->Row = 1; |
| 78 | } |
| 79 | DrawGrid->OnClick(this); |
| 80 | DrawGrid->Invalidate(); |
| 81 | } |
| 82 | } |
| 83 | //--------------------------------------------------------------------------- |
| 84 | void __fastcall THighlightForm::OKButtonClick(TObject *Sender) |
| 85 | { |
nothing calls this directly
no test coverage detected