Anchor Docking Step by step example/ru: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Anchor Docking : Пошаговый пример
2	2
3	3		> Warning: ЭТОТ ПРИМЕР РАБОТАЕТ НЕ НА 100%, КАК БЫЛО ЗАДУМАНО. См. раздел [[Anchor Docking Step by step example/ru\|Отладка]] для получения дополнительной информации.
4	4
5	5		У нас теперь есть мануал по [[Anchor Docking/ru\|anchor docking]] ... но я знаю, что люди учатся на методом тыка, а не посредством чтения ... итак, давайте делать это.
6	6
7	7		Сначала я создам новое приложение с нуля, а затем (надеюсь) мы увидим, сможем ли мы "преобразовать" в него существующее приложение (которое работало по старому способу выравнивания "Panel").
8	8
9	9		Для первого проекта я создам приложение, которое должно выглядеть так:
10	10
11	11		` +-----------------------------+`\
12	12		` \| Main menu \|`\
13	13		` +-----------------------------+`\
14	14		` \| Toolbar (open, save etc.) \|`\
15	15		` +-----+-----------------------+`\
16	16		` \| __= \| \|`\
17	17		` \| \| \|`\
18	18		` \| T \| Main Application \|`\
19	19		` \| o \| \| `\
20	20		` \| o \| \|`\
21	21		` \| l +-----------------------+`\
22	22		` \| s \| Output Messages \|`\
23	23		` +-----+-----------------------+`
24	24
25	25		С панелью инструментов (Toolbar), инструментами (Tools) (несколько страниц), «Вывода сообщений» ( Output Messages) все части становятся «пристыковываемыми» (dockable). Поскольку механизм "drag-and-drop" еще не реализован, я не собираюсь пытаться добавить функциональность для перемещения частей. (Компиляция примера показывает, как это можно сделать) ... Этот проект будет лишь демонстрировать состояние «закреплено» или «не закреплено» для каждой из этих частей. (Этот проект может быть выполнен только с панелями.)
26	26
27	27		# Шаг 1: Создание главной страницы
28	28
29	29		По сути, мы просто создадим новую форму, добавим в форму главное меню, а затем добавим в форму dockmanager. Я также добавляю stringgrid, чтобы показать, как она будет выглядеть.
30	30
31	31		- Создайте новый проект
32	32		- В Lazarus перейдите в File -\> New ... -\> Выберите "Application"
33	33		- Первая форма (unit1.pas) будет частью "Main Application".
34	34		- Перетащите компонент TMainMenu на форму.
35	35		- Дважды щелкните компонент TMainMenu и создайте:
36	36		- Main - File
37	37		- FileSub - Exit
38	38		- Main - Windows
39	39		- WindowsSub - Dock/Undock Active Window (Пристыковать/Отстыковать активное окно) (добавьте шоткат к F11 - чтобы он был у нас)
40	40		- WindowsSub - Save Window Positions (Сохранить позиции окна)
41	41		- Создайте событие «OnCreate» для формы
42	42		- Выберите форму в конструкторе форм
43	43		- В инспекторе объектов перейдите на вкладку "events" (события) и дважды щелкните событие «OnCreate»
44	44		- Создайте диспетчер стыковки
45	45		- Добавьте этот код в событие OnCreate: \`DockingManager:=TLazDockingManager.Create(Self);\`
46	46		- Добавьте переменную dockmanager к классу основной формы.
47		-	- Нажмите <span class="kbd">Ctrl</span>+<span class="kbd">Shift</span>+<span class="kbd">Up</span> (это приведет вас к определению события OnCreate в классе формы.)
	47	+	- Нажмите `Ctrl`+`Shift`+`Up` (это приведет вас к определению события OnCreate в классе формы.)
48	48		- Добавьте этот код в определение класса раздела public: \`DockingManager: TLazDockingManager;\`
49	49		- Добавьте модуль стыковки и XMLPropStorage в раздел uses,
50	50		- Прокрутите редактор кода до раздела uses
51	51		- Добавьте \`, LDockCtrl, XMLPropStorage\` в раздел uses
52	52		- Теперь мы просто добавим материал, чтобы он выглядел как приложение
53	53		- Добавьте компонент StringGrid
54	54		- Сделайте Align = Client в инспекторе объектов
55	55
56	56		# Шаг 2: Создание своей панели инструментов
57	57
58	58		Я не собираюсь притворяться, что знаю, как создать правильную панель инструментов ... аля excel или что-то в стиле Офиса (прим.перев.: очевидно, имеется ввиду M\$Office). Поэтому я просто создам форму со speedbutton'ами, которые выровнены по левому краю, и добавлю к ней несколько значков. Также добавьте к нему элемент управления док-станцией.
59	59
60	60		- Создайте новую форму (File -\> New Form)
61	61		- Измените ее размер так, чтобы она выглядела «реалистично» по размеру. Высота - 61.
62	62		- Добавьте к ней несколько кнопок загрузки/сохранения (добавьте несколько значков, если хотите) и Align = Left для них. Я добавил speedbuttons Load и Save, получил несколько глифов из Lazarus/images/menu. В моем другом проекте я добавил новую панель и поместил туда combobox. Делай что хочешь!
63	63		- Добавьте панель управления.
64	64		- В событие OnCreate добавьте:
65	65
66	66		``` pascal
67	67		ControlDocker1:=TLazControlDocker.Create(Self);
68	68		ControlDocker1.Name:='ToolbarForm';
69	69		ControlDocker1.Manager:=Form1.DockingManager;
70	70		```
71	71
72	72		- - Добавьте соответствующие модули в раздел uses. (unit1, LDockCtrl)
73	73		- Добавьте переменную в раздел public определения класса формы: ControlDocker1: TLazControlDocker;
74	74
75	75		# Шаг 3: Наши страницы инструментов
76	76
77	77		Мы просто создадим 2 разные формы, которые узнаваемо отличаются друг от друга. И добавьте к нему элемент управления док-станцией. Сделайте следующее дважды:
78	78
79	79		- Создайте новую форму (File -\> New Form)
80	80		- Измените ее размер, чтобы она выглядела «реалистично» по размеру. (Я только что сделал это около 150 px в ширину)
81	81		- Обозначьте ее. (Я помещаю на нее label, где пишу "окно инструментов" 1 и 2).
82	82		- Добавьте панель управления.
83	83		- В событии OnCreate добавьте:
84	84
85	85		``` pascal
86	86
87	87		ControlDocker1:=TLazControlDocker.Create(Self);
88	88		ControlDocker1.Name:='Toolwindow1Form'; // (или 2 для второго)
89	89		ControlDocker1.Manager:=Form1.DockingManager;
90	90		```
91	91
92	92		- - Добавьте соответствующие модули в разделе uses(unit1, LDockCtrl)
93	93		- Добавьте переменную в разделе public определния класса формы: ControlDocker1: TLazControlDocker;
94	94
95	95		# Шаг 4: Наше Окно Сообщений
96	96
97	97		Просто наша последняя форма ... Форма вывода. Выполните те же действия, что и раньше ...
98	98
99	99		- Создайте новую форму (File -\> New Form)
100	100		- Измените ее размер, чтобы она выглядела "реалистично" по размеру. (Я только что сделал его около 100 px высотой и довольно широким)
101	101		- Добавьте компонент memo, и выровняйте align = client
102	102		- Добавьте control docker
103	103		- В событии OnCreate добавьте:
104	104
105	105		``` pascal
106	106		ControlDocker1:=TLazControlDocker.Create(Self);
107	107		ControlDocker1.Name:='OutputForm'; // (или 2 для второго)
108	108		ControlDocker1.Manager:=Form1.DockingManager;
109	109		```
110	110
111	111		- - Добавьте соответствующие модули в разделе uses(unit1, LDockCtrl)
112	112		- Добавьте переменную в разделе public определния класса формы: ControlDocker1: TLazControlDocker;
113	113
114	114		# Шаг 5: Собираем все вместе
115	115
116	116		Теперь мы просто добавим все вместе в основную форму ... и посмотрим, что из этого получится.
117	117
118	118		- Добавьте все модули в раздел об использовании вашего основного модуля. (unit2, unit3, unit4, unit5)
119	119		- Далее мы хотим добавить это в диспетчер стыковки ... но проблема в том, что формы еще не созданы в событии "OnCreate" основной формы. Итак, я перенесу «присвоение» свойств окнам пристыковки на событие «OnActivate» и просто установлю флаг, что это было сделано (чтобы он не делал это снова)
120	120		- Итак: добавьте переменную Initialized в класс form1: Initialized: boolean;
121	121		- В OnCreate мы установим ее значение в «False», а затем установим в «True» во время метода OnActivate.
122	122		- Текущий метод «OnActivate».
123	123
124	124		``` pascal
125	125		procedure TForm1.FormActivate(Sender: TObject);
126	126		begin
127	127		if initialized then exit;
128	128		Initialized := true;
129	129		// Устанавливаем панель инструментов вверху
130	130		DockingManager.Manager.InsertControl(Form2,alTop,Form1);
131	131
132	132		// Устанавливаем окно инструментов слева
133	133		DockingManager.Manager.InsertControl(Form3,alLeft,Form1);
134	134
135	135		// Устанавливаем второе окно инструментов ВНУТРИ первого
136	136		DockingManager.Manager.InsertControl(Form4,alClient,Form3);
137	137
138	138		// Устанавливаем второй элемент управления сообщениями снизу
139	139		DockingManager.Manager.InsertControl(Form5,alBottom,Form1);
140	140		end;
141	141		```
142	142
143	143		# Отладка
144	144
145	145		Это не сработало на 100%, как ожидалось.
146	146
147	147		Вещи, которые заработали, как ожидалось:
148	148
149	149		1. Панель инструментов выглядела правильно и потрясающе
150	150		2. Ширина окна инструмента была ожидаемой
151	151
152	152		Вещи, которые не сработали должным образом:
153	153
154	154		1. Второе окно инструментов не работало должным образом, там был page control, но вторая страница не была назначена, а первой странице было назначено ВТОРОЕ окно инструментов
155	155		2. Главное меню отсутствовало
156	156		3. Memo исчезло ... хотя форма Form5 была там (может, нет? "title" не прочитан "Form5")
157	157		4. Form5 занял все пространство, предназначенное для основного приложения. Возможно, исправит ситуацию добавление ограничений в главное окно.
158	158
159	159		---
160	160		From the Free Pascal wiki, page "Anchor Docking Step by step example/ru", as it stood on 2020-01-20 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
161	161		Category: Docking
162	162		Category: Russian

Back to history