Практичесl= 2;ая работа № 13

Прак= 090;ическая работа № 13

Прим= 077;нение полос прокрутки<= /b>

Цель работы - созk= 6;ать программу, выполняющуn= 2; следующие действия:

1.&n= bsp;     После запуска программы в окне изображаетl= 9;я две полосы прокрутки. Вертикальнk= 2;я полоса буде = 90; управлять движением п = 86; вертикали, горизонталn= 0;ная – по горизонталl= 0;.

2.&n= bsp;     Наводя указатель мыши на одну из двух фигу= 088;, можно выбирать, какая из эти= 093; фигур связа = 85;а с полосами прокрутки.

=

=

=

3.&n= bsp;     Требуют&#= 1089;я дополнителn= 0;ные объекты, с помощью которых ограничиваk= 7;тся область дви = 78;ения фигур в окне.
4.&n= bsp;     Если полоса прокрутки активная, то она должна реагироватn= 0; на клавиши ВВЕХ, ВНИЗ, ВЛЕВО, ВПРАВО, PAGE UP, PAGE= D= OWN.

5.&n= bsp;     Для выхода из программы необходимо щелкнуть мышью на закрывающеl= 1; кнопке в строке заго = 83;овка.

Опис= 072;ние плана разработки программы<= /b>

1.&n= bsp;     Открыть новый проек = 90;.

2.&n= bsp;     Размест&#= 1080;ть на форме экземпляры компонентоk= 4;: панель Panel, полоса прокрутки ScrollBar, фигура Shape.

1.&n= bsp;     Ввести дополнителn= 0;ную переменную логическогl= 6; типа num. Если она принимает значение True (Да), то текущей считается первая фигура. Знач= 077;нию False (Нет) соответствm= 1;ет вторая фигура. Эта переменная должна быть доступна во всех процед = 91;рах.

2.&n= bsp;     Выполни&#= 1090;ь следующие действия:

Таблица 13.

Выделе = 85;ный объект

Вкладк = 72; окна

Object Inspector<= /o:p>

Имя свойства/

имя события

Действ = 80;е

Form1

Properties

Caption

Установ= 082;а имени формы «Перемещен= 080;е фигур»

Panel

(Вкладк = 72; Standard= )

Properties

Height

Присвои= 090;ь значение 161

Width

Присвои= 090;ь значение 161

Caption

Оставит= 100; значение свойства пустым

ScrollBar1

(Вкладка Standard)

Properties

Min

Присвои= 090;ь значение 5

Max

Присвои= 090;ь значение 145

Position

Присвои= 090;ь значение 76

SmallChange

Присвои= 090;ь значение 2

LargeChange (Бол= 100;шое изменение)

Присвои= 090;ь значение 20

Events

OnChange

if num then Shape1.Left :=3D

       &nbs= p;       ScrollBar1.Position

       &nbs= p;    else Shape2.Left :=3D

       &nbs= p;       ScrollBar1.Position

ScrollBar2

(Вкладка Standard= )

<= /o:p>

Properties

Kind

Выбрать значение sbVe= rtical. Горизонтал= 100;ная полоса прокрутки с&#= 1090;анет вертикальн= 086;й.

Min

Присвои= 090;ь значение 5

Max

Присвои= 090;ь значение 145

Position

Присвои= 090;ь значение 76

SmallChange

(Мало = 77; изменение)

Присвои= 090;ь значение 2

LargeChange

Присвои= 090;ь значение 20

Events

OnChange

if num then Shape1.Top :=3D

       &nbs= p;       ScrollBar2.Position

       &nbs= p;    else Shape2.Top :=3D

       &nbs= p;       ScrollBar2.Position

Shape1

(Вкладк = 72; Addition= al)

Properties

Height

Присвои= 090;ь значение 11

Width

Присвои= 090;ь значение 11

Left

Присвои= 090;ь значение 76

Top

Присвои= 090;ь значение 76

Shape (Фор = 84;а)

Выбрать значение stCi= rcle (Круг)

Brush (Кис = 90;ь)

Выбрать для подсвойств= 072; Color (Цвет кисти) значение clAq= ua (голубой цвет)

Events

OnMouseMove

(При движении мыши)

Shape1.Brush.Color :=3D clAgua;

Shape1.Brush.Color :=3D clFuchsia;

Num :=3D True;

ScrollBar1.Position:=3D Shape1.Left;

ScrollBar2.Position:=3D Shape1.Top;

Shape= 2

(Вкладк = 72; Addition= al)

<= /o:p>

Properties

Height

Присвои= 090;ь значение 11

Width

Присвои= 090;ь значение 11

Left

Присвои= 090;ь значение 76

Top

Присвои= 090;ь значение 76

Shape

Выбрать значение stSq= uare (Квадрат)

Brush

Выбрать для подсвойств= 072; Color (Цвет кисти) значе&= #1085;ие clFuchsia (фио&= #1083;етовый цвет)

Events

OnMouseMove

Аналоги= 095;но Shape2

3.&n= bsp;     Сохрани&#= 1090;е проект, запустите и протестируl= 1;те его.

Листинг подпрогра&= #1084;мы

procedure<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> TForm1.ScrollBar1Change (Se= nder: TObject);

begin

<= span style=3D'mso-spacerun:yes'>   if num then Shape1.L= eft :=3D ScrollBar1.Position

<= span style=3D'mso-spacerun:yes'>        =        else Shape2.Left :=3D ScrollBar1.Position

end;

procedure<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> TForm1.ScrollBar2Change (Se= nder: TObject);

begin

<= span style=3D'mso-spacerun:yes'>   if num then Shape1.Top :=3D ScrollBar2.Position

<= span style=3D'mso-spacerun:yes'>        =        else Shape2.Top :=3D ScrollBar2.Position

end;

procedure<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> TForm1.Shape1MouseMove

<= span style=3D'mso-spacerun:yes'>        =          (Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Shape1.Brush.Color :<= /span>=3D clAgua;

Shape1.Brush.Color :<= /span>=3D clFuchsia;

Num :=3D True;

ScrollBar1.Position:=3D Shape1.Left;=

ScrollBar2.Position:=3D Shape1.Top;<= /o:p>

end;

procedure<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> TForm1. Shape2MouseMove

<= span style=3D'mso-spacerun:yes'>        =          (Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Shape2.Brush.Color :=3D clFuchsia;
Shape2.Brush.Color :<= /span>=3D clAgua;

Num :=3D False;

ScrollBar1.Position:=3D Shape2.Left;=

ScrollBar2.Position:=3D Shape2.Top;<= /o:p>

end;

procedure<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> TForm1. FormCreate (Sender: TObject);

begin

    num :=3D True;

end;

Выделе = 85;ный объект	Вкладк = 72; окна Object Inspector<= /o:p>	Имя свойства/ имя события	Действ = 80;е
Form1	Properties	Caption	Установ= 082;а имени формы «Перемещен= 080;е фигур»
Panel (Вкладк = 72; Standard= )	Properties	Height	Присвои= 090;ь значение 161
Width	Присвои= 090;ь значение 161
Caption	Оставит= 100; значение свойства пустым
ScrollBar1 (Вкладка Standard)	Properties	Min	Присвои= 090;ь значение 5
Max	Присвои= 090;ь значение 145
Position	Присвои= 090;ь значение 76
SmallChange	Присвои= 090;ь значение 2
		LargeChange (Бол= 100;шое изменение)	Присвои= 090;ь значение 20
Events	OnChange	if num then Shape1.Left :=3D &nbs= p; ScrollBar1.Position &nbs= p; else Shape2.Left :=3D &nbs= p; ScrollBar1.Position
ScrollBar2 (Вкладка Standard= ) <= /o:p>	Properties	Kind	Выбрать значение sbVe= rtical. Горизонтал= 100;ная полоса прокрутки с&#= 1090;анет вертикальн= 086;й.
Min	Присвои= 090;ь значение 5
Max	Присвои= 090;ь значение 145
Position	Присвои= 090;ь значение 76
SmallChange (Мало = 77; изменение)	Присвои= 090;ь значение 2
LargeChange	Присвои= 090;ь значение 20
Events	OnChange	if num then Shape1.Top :=3D &nbs= p; ScrollBar2.Position &nbs= p; else Shape2.Top :=3D &nbs= p; ScrollBar2.Position
Shape1 (Вкладк = 72; Addition= al)	Properties	Height	Присвои= 090;ь значение 11
Width	Присвои= 090;ь значение 11
Left	Присвои= 090;ь значение 76
Top	Присвои= 090;ь значение 76
Shape (Фор = 84;а)	Выбрать значение stCi= rcle (Круг)
Brush (Кис = 90;ь)	Выбрать для подсвойств= 072; Color (Цвет кисти) значение clAq= ua (голубой цвет)
Events	OnMouseMove (При движении мыши)	Shape1.Brush.Color :=3D clAgua; Shape1.Brush.Color :=3D clFuchsia; Num :=3D True; ScrollBar1.Position:=3D Shape1.Left; ScrollBar2.Position:=3D Shape1.Top;
Shape= 2 (Вкладк = 72; Addition= al) <= /o:p>	Properties	Height	Присвои= 090;ь значение 11
Width	Присвои= 090;ь значение 11
Left	Присвои= 090;ь значение 76
Top	Присвои= 090;ь значение 76
Shape	Выбрать значение stSq= uare (Квадрат)
Brush	Выбрать для подсвойств= 072; Color (Цвет кисти) значе&= #1085;ие clFuchsia (фио&= #1083;етовый цвет)
	Events	OnMouseMove	Аналоги= 095;но Shape2