---------------------------------------------------------------------------
| 7 | #define MinColumnWidth 30 |
| 8 | //--------------------------------------------------------------------------- |
| 9 | TStringGridLivingColumns::TStringGridLivingColumns(TStringGrid * p) |
| 10 | { |
| 11 | SG = p; |
| 12 | |
| 13 | // ����� 20 ��� ���������� ���������� ���-�� ������� |
| 14 | ColumnKoeff = new double[SG->ColCount + 20]; |
| 15 | SaveColumnKoeff(); |
| 16 | |
| 17 | oldOnResize = ((TForm *)SG->Owner)->OnResize; |
| 18 | ((TForm *)SG->Owner)->OnResize = FormResize; |
| 19 | |
| 20 | oldOnMouseUp = SG->OnMouseUp; |
| 21 | SG->OnMouseUp = MouseUp; |
| 22 | } |
| 23 | //--------------------------------------------------------------------------- |
| 24 | TStringGridLivingColumns::~TStringGridLivingColumns() |
| 25 | { |
nothing calls this directly
no outgoing calls
no test coverage detected