Свойство Left

Для элементов управления задает положение левого края объекта относительно его родительского объекта. Для объектов Form определяет расстояние между левым краем формы и основным окном Visual FoxPro.

Применение:
CheckBox, ComboBox, CommandButton, CommandGroup, Объект Container, Объект Control, Custom, EditBox, Form, Grid, Image, Label, Line, ListBox, Связанный элемент управления OLE, Элемент управления OLE - контейнер, OptionButton, OptionGroup, PageFrame, _SCREEN, Shape, Spinner, TextBox, Timer, ToolBar.

Синтаксис:

Object.Left[ = nDist]

Установки:
nDist
Расстояние до левого края объекта-контейнера в единицах измерения, определенных свойством ScaleMode объекта Form.

Комментарии:
Доступно на этапе разработки и на этапе выполнения.
Используйте свойства Left, Top, Height и Width при выполнении операций, опирающихся на внешние размеры объекта, например при перемещении или изменении размера. Свойство ScaleMode позволяет изменить единицу измерения.
Замечание. Свойство Left доступно только для чтения, когда оно относится к элементу управления, содержащемуся в объекте Column.

Пример:

* Следующий пример демонстрирует, как использовать свойство Left для
* позиционирования элемента управления в форме. Метод AddObject
* используется для добавления в форму элемента управления Line и трех
* командных кнопок, а свойство Left задает горизонтальную позицию
* каждого из этих элементов управления в форме.
frmMyForm = CREATEOBJECT('Form')	&& Create a Form
frmMyForm.Closable = .F.	&& Disable the Control menu box

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

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 12.02.2003