---------------------------------------------------------------------------
| 81 | } |
| 82 | //--------------------------------------------------------------------------- |
| 83 | void TSaveParams::GetVcl(TForm * p) |
| 84 | { |
| 85 | try |
| 86 | { |
| 87 | int l,t,w,h; |
| 88 | fCurrentSection = p->Name; |
| 89 | Variant v; |
| 90 | v = Get(fCurrentSection, "Left"); |
| 91 | if( v.IsEmpty() ) return; |
| 92 | l = v; |
| 93 | v = Get(fCurrentSection, "Top"); |
| 94 | if( v.IsEmpty() ) return; |
| 95 | t = v; |
| 96 | v = Get(fCurrentSection, "Width"); |
| 97 | if( v.IsEmpty() ) return; |
| 98 | w = v; |
| 99 | v = Get(fCurrentSection, "Height"); |
| 100 | if( v.IsEmpty() ) return; |
| 101 | h = v; |
| 102 | |
| 103 | if( CorrectFormRect(l, t, w, h) ) |
| 104 | p->SetBounds(l, t, w, h); |
| 105 | } |
| 106 | catch(...) |
| 107 | {} |
| 108 | } |
| 109 | //--------------------------------------------------------------------------- |
| 110 | // ���������� ��������� ����� |
| 111 | void TSaveParams::SetVclPos(TForm * p) |
nothing calls this directly
no test coverage detected