--------------------------------------------------------------------------- ���������� ��������� �����
| 109 | //--------------------------------------------------------------------------- |
| 110 | // ���������� ��������� ����� |
| 111 | void TSaveParams::SetVclPos(TForm * p) |
| 112 | { |
| 113 | try |
| 114 | { |
| 115 | fCurrentSection = p->Name; |
| 116 | Set(fCurrentSection, "Left", p->Left); |
| 117 | Set(fCurrentSection, "Top", p->Top); |
| 118 | } |
| 119 | catch(...) |
| 120 | {} |
| 121 | } |
| 122 | //--------------------------------------------------------------------------- |
| 123 | void TSaveParams::GetVclPos(TForm * p) |
| 124 | { |
nothing calls this directly
no outgoing calls
no test coverage detected