---------------------------------------------------------------------------
| 42 | } |
| 43 | //--------------------------------------------------------------------------- |
| 44 | void __fastcall TProcessForm::FillRuleList(int SelectedIndex) |
| 45 | { |
| 46 | DrawGrid->RowCount = 1 + localPRL->Count; |
| 47 | if( DrawGrid->RowCount > 1 ) |
| 48 | { |
| 49 | DrawGrid->FixedRows = 1; |
| 50 | if( DrawGrid->RowCount > SelectedIndex + 1 ) |
| 51 | DrawGrid->Row = SelectedIndex + 1; |
| 52 | else if( DrawGrid->RowCount >= 2 ) |
| 53 | DrawGrid->Row = 1; |
| 54 | } |
| 55 | DrawGrid->OnClick(this); |
| 56 | DrawGrid->Invalidate(); |
| 57 | } |
| 58 | //--------------------------------------------------------------------------- |
| 59 | void __fastcall TProcessForm::OKButtonClick(TObject *Sender) |
| 60 | { |
nothing calls this directly
no outgoing calls
no test coverage detected