---------------------------------------------------------------------------
| 72 | } |
| 73 | //--------------------------------------------------------------------------- |
| 74 | void __fastcall TProcessForm::DelButtonClick(TObject *Sender) |
| 75 | { |
| 76 | if( DrawGrid->RowCount < 2 ) |
| 77 | return; |
| 78 | int ARow = DrawGrid->Row - 1; |
| 79 | localPRL->Del(ARow); |
| 80 | DrawGrid->RowCount = 1 + localPRL->Count; |
| 81 | DrawGrid->OnClick(this); |
| 82 | } |
| 83 | //--------------------------------------------------------------------------- |
| 84 | void __fastcall TProcessForm::UpButtonClick(TObject *Sender) |
| 85 | { |