====== Constructor ====== Создает объект класса TRect. ===== Синтаксис ===== ==== PASCAL ==== constructor TRect.Create(aLeft: Integer = 0; aTop: Integer = 0; aRight: Integer = 0; aBottom: Integer = 0); ==== ECMA ==== TRect([aLeft][, aTop][, aRight][, aBottom]); ===== Параметры ===== ^Параметр ^Тип (PASCAL) ^Тип (ECMA) ^По умолчанию ^Описание ^ |aLeft |Integer |Number |0 |Координата X, соответствующая левой стороне прямоугольника | |aTop |Integer |Number |0 |Координата Y, соответствующая верхней стороне прямоугольника | |aRight |Integer |Number |0 |Координата X, соответствующая правой стороне прямоугольника | |aBottom |Integer |Number |0 |Координата Y, соответствующая нижней стороне прямоугольника | ===== Примеры ===== ==== PASCAL ==== - //{$MODE PASCAL} var rect := TRect.Create; Log('Left:'#9 + IntToStr(rect.Left)); Log('Top:'#9 + IntToStr(rect.Top)); Log('Right:'#9 + IntToStr(rect.Right)); Log('Bottom:'#9 + IntToStr(rect.Bottom)); {{:ru:wascript:classes:trect:create-1_pascal.png|}} - //{$MODE PASCAL} var rect := TRect.Create(1,2,3,4); Log('Left:'#9 + IntToStr(rect.Left)); Log('Top:'#9 + IntToStr(rect.Top)); Log('Right:'#9 + IntToStr(rect.Right)); Log('Bottom:'#9 + IntToStr(rect.Bottom)); {{:ru:wascript:classes:trect:create-2_pascal.png|}} ==== ECMA ==== - //{$MODE ECMA} var rect = new TRect(); log('Left:' + String.fromCharCode(9) + rect.left); log('Top:' + String.fromCharCode(9) + rect.top); log('Right:' + String.fromCharCode(9) + rect.right); log('Bottom:' + String.fromCharCode(9) + rect.bottom); {{:ru:wascript:classes:trect:create-1_ecma.png|}} - //{$MODE ECMA} var rect = new TRect(1,2,3,4); log('Left:' + String.fromCharCode(9) + rect.left); log('Top:' + String.fromCharCode(9) + rect.top); log('Right:' + String.fromCharCode(9) + rect.right); log('Bottom:' + String.fromCharCode(9) + rect.bottom); {{:ru:wascript:classes:trect:create-2_ecma.png|}}