Определяет дистанцию между левым краем элемента управления или формы и содержащим его контейнерным объектом. Доступно как в design time, так и в run time.

Object.Left[ = nDist]

Expand imageВозвращаемое значение

nDist

Указывает дистанцию между левым краем элемента управления или формы и содержащим его контейнерным объектом.

Контейнером для форм является, по умолчанию, главное окно Visual FoxPro.

Expand imageПримечания

Применяется к: CheckBox Control | ComboBox Control | CommandButton Control | CommandGroup Control | Container Object | Control Object (Visual FoxPro) | Custom Object | EditBox Control | Form Object | Grid Control | Image Control (Visual FoxPro) | Label Control (Visual FoxPro) | Line Control | ListBox Control | OLE Bound Control | OLE Container Control | OptionButton Control | OptionGroup Control | PageFrame Control | _SCREEN System Variable | Shape Control | Spinner Control | TextBox Control (Visual FoxPro) | Timer Control | ToolBar Object

Свойство Left указывает, как далеко от нулевой позиции объект размещен. Например, если форма содержится в главном окне Visual FoxPro, нулевой позицией является правый край левого бордюра главного окна. Если к левому краю главного окна пристыкована панель инструментов, то нулевой позицией является правый край панели.

Используйте свойства Left, Top, Height и Width для операций, основанных на внешних размерах объекта, таких как перемещение или изменение в размерах. Используйте свойство ScaleMode для изменения единицы измерения.

ЗамечаниеЗамечание

Если объект содержится в объекте Column, то его свойство Left получает признак "только для чтения".

Expand imageПример

Приведенный ниже пример показывает, как используется свойство Left для размещения элементов управления на форме. Метод AddObject, используется для ввода в форму элемента управления Line и трех командных кнопок, а свойство Left вводимых элементов управления указывает их горизонтальное размещение на форме.
  CopyCode imageСкопировать код
frmMyForm = CREATEOBJECT('Form')  && Create a form
frmMyForm.Closable = .F.  && Disable the window pop-up menu
 
frmMyForm.AddObject('shpLine','Line')  && Add a Line control to the form
frmMyForm.AddObject('cmdCmndBtn1','cmdMyCmndBtn1')  && Up Cmnd button
frmMyForm.AddObject('cmdCmndBtn2','cmdMyCmndBtn2')  && Down Cmnd button
frmMyForm.AddObject('cmdCmndBtn3','cmdMyCmndBtn3')  && Quit Cmnd button

frmMyForm.shpLine.Visible = .T.  && Make Line control visible
frmMyForm.shpLine.Top = 20  && Specify Line control row
frmMyForm.shpLine.Left = 125  && Specify Line control column

frmMyForm.cmdCmndBtn1.Visible =.T.  && Up Command button visible
frmMyForm.cmdCmndBtn2.Visible =.T.  && Down" Command button visible
frmMyForm.cmdCmndBtn3.Visible =.T.  && Quit Command button visible

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS cmdMyCmndBtn1 AS COMMANDBUTTON  && Create Command button
   Caption = 'Slant \<Up'  && Caption on the Command button
   Left = 50  && Command button column
   Top = 100  && Command button row
   Height = 25  && Command button height
   
   PROCEDURE Click
      ThisForm.shpLine.Visible = .F.  && Hide the Line control
      ThisForm.shpLine.LineSlant ='/'  && Slant up
      ThisForm.shpLine.Visible = .T.  && Show the Line control
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn2 AS CommandButton  && Create Command button
   Caption = 'Slant \<Down'  && Caption on the Command button
   Left = 200  && Command button column
   Top = 100  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      ThisForm.shpLine.Visible = .F.  && Hide the Line control
      ThisForm.shpLine.LineSlant ='\'  && Slant down
      ThisForm.shpLine.Visible = .T.  && Show the Line control
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn3 AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 150  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close form
ENDDEFINE

Expand image Смотрите также