Lazarus For Delphi Users/ru: what changed

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

Old	New		Line
1	1		Эта статья предназначена для тех, кто интересуется Lazarus и уже знает Delphi. Здесь описаны различия между ними.
2	2
3	3		## Delphi -\> Lazarus
4	4
5	5		Lazarus - среда быстрой разработки приложений (RAD), как и Delphi. Это значит, что она состоит из библиотеки визуальных компонентов и среды разработки (IDE). Библиотека компонентов Lazarus (LCL) похожа на библиотеку визуальных компонентов Delphi (VCL). Большинство модулей, классов и свойств Lazarus обладают такими же именами и функциями, как их аналоги в Delphi. Это делает относительно лёгким перенос приложений Delphi в Lazarus. Однако Lazarus не является 'клоном Delphi с открытым кодом', поэтому не следует ожидать 100%-ной совместимости.
6	6
7	7		### Самые большие различия между Lazarus и Delphi
8	8
9	9		- код Lazarus полностью открыт
10	10		- Lazarus написан кроссплатформенным способом
11	11		- Lazarus использует компилятор [[Free Pascal]] (FPC)
12	12
13	13		FPC работает на 15 платформах. Однако не все пакеты и библиотеки FPC портированы на все платформы, поэтому Lazarus работает на:
14	14
15	15		- Linux (i386, x86_64)
16	16		- FreeBSD (i386)
17	17		- macOS (powerpc, i386, x86_64)
18	18		- Windows (i386, x86_64)
19	19
20	20		Работа над Lazarus, как и над этим текстом, не закончена. Мы всё время ищем новых разработчиков и технических писателей...
21	21
22	22		### С чего начать перенос проекта Delphi в Lazarus
23	23
24	24		В меню Сервис выберите команду Преобразовать проект Delphi в проект Lazarus. Не стоит ждать, что так будет преобразовано абсолютно всё, тем не менее, это хорошее начало. Учтите, что средства Lazarus выполняют, в основном, преобразования в одном направлении. Если вам надо сохранить совместимость с Delphi (компилировать проект и в Delphi, и в Lazarus) рассмотрите использование [[XDev Toolkit]].
25	25
26	26		### Поддержка Юникода
27	27
28	28		Delphi до версии 2007 не поддерживала Юникод, а использовала кодировку Windows ANSI. Юникод в кодировке UTF-16 поддерживается в Delphi с версии 2009.
29	29
30	30		В Lazarus поддержка Юникод реализована раньше в кодировке UTF-8 (см. [[LCL Unicode Support/ru\|Поддержка Юникод в LCL]]).
31	31
32	32		## Delphi IDE -\> Lazarus IDE
33	33
34	34		### Проекты
35	35
36	36		Главным в приложении Delphi является файл .dpr. Файл .dpr также содержит главный код программы Delphi и является местом, где среда разработки Delphi хранит сведения о соответствующих ключах компилятора и нахождении модулей. В приложении Lazarus есть файл .lpr, который также является основным файлом кода проекта на языке Pascal. Тем не менее, главным в проекте Lazarus является файл .lpi (Lazarus Project Information), который создаётся вместе с файлом .lpr. Все данные проекта (ключи компилятора, пути к модулям и т.п.) хранятся в файле .lpi. Поэтому важнейшим является файл .lpi. На большинстве платформ двойной щелчок по файлу .lpi открывает проект в среде разработки Lazarus.
37	37
38	38		Delphi хранит пути к модулям проекта в файле .dpr. Пример:
39	39
40		-	~~`unit1 in 'path/Unit1.pas';`~~
	40	+	```text
	41	+	unit1 in 'path/Unit1.pas';
	42	+	```
41	43
42	44		Такие пути со словом 'in' специфичны для Delphi, и не работают в Lazarus, поэтому не используйте их. Вместо этого в параметрах проекта (Проект-\>Параметры проекта...) на странице Параметры компилятора-\>Пути задайте пути к модулям, находящимся за пределами каталога проекта. Большинство путей к модулям задаются автоматически после добавления зависимости от какого-либо пакета. Например, во все стандартные проекты Lazarus LCL по умолчанию добавляется зависимость от пакета LCL, поэтому в каждом новом проекте Lazarus LCL (Проект-\>Создать проект...-\>Приложение) пути ко всем модулям LCL известны без вашего участия.
43	45
44	46		Delphi хранит параметры компилятора в файле .dpr (например, {\$APPTYPE CONSOLE}). Lazarus игнорирует такую запись. Вместо этого используйте страницу Параметры компилятора в диалоге Параметры проекта.
45	47
46	48		### Среда Lazarus не бывает "пустой"
47	49
48	50		В среде Lazarus всегда открыт проект. Единственный способ "закрыть" проект - выход из Lazarus или открытие другого проекта. Это связано с тем, что проект Lazarus - ещё и "сеанс работы". Сведения о сеансе (например, параметры редактора) также хранятся в файле .lpi, и при повторном открытии проекта состояние редактора восстанавливается.
49	51
50	52		Пример. Вы отлаживаете приложение и расставили несколько точек останова и закладок. Вы можете в любой момент сохранить проект, закрыть Lazarus или открыть другой проект. При повторном открытии проекта (даже на другом компьютере) все точки останова, закладки, открытые файлы, положение курсора, история переходов будут восстановлены.
51	53
52	54		### Редактор исходного кода
53	55
54	56		В меню Сервис -\> Параметры -\> Редактор -\> Комбинации клавиш могут быть заданы практически любые комбинации клавиш.
55	57
56	58		Среда разработки Lazarus располагает множеством инструментов для работы с кодом. Многие из них выглядят и работают так же, как и в Delphi. Но есть одно важное отличие: Lazarus не использует компилятор для получения сведений о коде, а работает с ним напрямую. Это даёт ряд важных преимуществ:
57	59
58	60		Редактор работает с "комментариями". В Delphi комментарии это просто место между фрагментами кода. Здесь не действуют никакие средства работы с кодом, и комментарии смещаются при автоматической вставке нового кода. В Lazarus можно найти объявление даже в закоментированном коде. Это не очень надёжно, однако работает в большинстве случаев. При вставке нового кода среда разработки использует некоторую эвристику, чтобы сохранить комментарий и код вместе. К примеру, строка `"c: char; // comment"` разделяться не будет.
59	61
60	62		Дельфийское «Автозавершение кода» (`Ctrl` + `Space`) в Lazarus называется «Автозавершение идентификатора». Термин Lazarus'овское «Автозавершение кода» - это функция, объединяющая «Автоматическое завершение класса» (как в Delphi), «Автозавершение локальной переменной» и «Автозавершение назначения события». Все они вызываются по `Ctrl` + `Space` + `C`, что подразумевает, что среда IDE определяет положение курсора.
61	63
62	64		#### Пример для автозавершения локальной переменной
63	65
64	66		Предположим, вы только что создали новый метод и написали оператор "i:=3;"
65	67
66	68		``` pascal
67	69		procedure TForm1.DoSomething;
68	70		begin
69	71		i := 3;
70	72		end;
71	73		```
72	74
73	75		Наведите курсор на идентификатор «i» и нажмите `Ctrl`+`Shift`+`C`, чтобы получить:
74	76
75	77		``` pascal
76	78		procedure TForm1.DoSomething;
77	79		var i: Integer;
78	80		begin
79	81		i := 3;
80	82		end;
81	83		```
82	84
83	85		#### Пример автозавершения назначения события
84	86
85	87		Приятной особенностью инспектора объектов является автоматическое создание методов. Заодно, вы можете получить редактор исходного кода для создания событий.\
86	88		Например:
87	89
88	90		``` pascal
89	91		Button1.OnClick:=
90	92		```
91	93
92	94		Поместите курсор за оператором присваивания ":=" и нажмите `Ctrl`+`Shift`+`C`.
93	95
94	96		------------------------------------------------------------------------
95	97
96	98		Прим.перев.: при этом сформированный код будет выглядеть так:
97	99
98	100		``` pascal
99	101		procedure TForm1.FormCreate(Sender: TObject);
100	102		begin
101	103		Button1.OnClick:=@Button1Click;
102	104		end;
103	105
104	106		procedure TForm1.Button1Click(Sender: TObject);
105	107		begin
106	108
107	109		end;
108	110		```
109	111
110	112		#### Пример автозавершения вызова процедуры
111	113
112	114		Предположим, вы только что написали оператор "DoSomething(Width);"
113	115
114	116		``` pascal
115	117		procedure SomeProcedure;
116	118		var
117	119		Width: integer;
118	120		begin
119	121		Width:=3;
120	122		DoSomething(Width);
121	123		end;
122	124		```
123	125
124	126		Наведите курсор на идентификатор «DoSomething» и нажмите `Ctrl`+`Shift`+`C`, чтобы получить:
125	127
126	128		``` pascal
127	129		procedure DoSomething(aWidth: LongInt);
128	130		begin
129	131
130	132		end;
131	133
132	134		procedure SomeProcedure;
133	135		var
134	136		Width: integer;
135	137		begin
136	138		Width:=3;
137	139		DoSomething(Width);
138	140		end;
139	141		```
140	142
141	143		#### "Автозавершение слова" Ctrl+W
142	144
143	145		Он работает аналогично «Автозавершению идентификатора», но работает не для идентификаторов паскалей, а для всех слов. Позволяет выбрать все слова во всех открытых файлах, начиная с одинаковых букв.
144	146
145	147		#### Поддержка Include-файлов
146	148
147	149		Delphi не поддерживал их, поэтому вы, вероятно, еще не создавали много включаемых файлов. Но у включаемых файлов есть большое преимущество: они позволяют писать (не)зависимый от платформы код, не запутывая ваш код IFDEF'ами. Например: переход по методу, автозавершение класса, объявление find, ... все работает с include-файлами.
148	150
149	151		Есть много вариантов функций кода.
150	152
151	153		### Designer
152	154
153	155		\- см. руководство пользователя
154	156
155	157		#### Инспектор объектов
156	158
157	159		В IDE Delphi и IDE Lazarus'а Инспектор объектов используется для редактирования свойств компонента, назначения событий и т.д. Ниже приведены некоторые незначительные отличия, которые следует отметить при использовании:
158	160
159	161		1. Начиная с Delphi 5, существует Дерево Объектов(Object Treeview), которое можно использовать для навигации и выбора объектов в соответствии с иерархией в дополнение к традиционному выпадающему списку в Инспекторе объектов. В Lazarus это является частью Инспектора объектов и используется вместо раскрывающегося списка по умолчанию, вы можете выбрать его из контекстного меню "Show Component Tree"(Показать дерево компонентов), чтобы использовать/не использовать.
160	162		2. В Delphi двойной щелчок на пустом событии автоматически создаст его и откроет редактор исходного кода в этой позиции, в Lazarus справа от выбранного выпадающего меню есть кнопка, которая выполняет это действие.
161	163		3. В Delphi вы должны вручную удалить имя события в редакторе, чтобы удалить привязку к нему, в Lazarus вы можете нажать на раскрывающийся список и выбрать "(None)"(Нет).
162	164		4. Двойной щелчок по обычным свойствам, таким как логическое значение, не изменит его значение (как это произошло бы случае с Events(Событием)), вы должны выбрать его из выпадающего списка. А чтобы открыть их с прилагаемой формой редактора, вы должны нажать кнопку «...» справа от раскрывающегося меню.
163	165
164	166		#### Пакеты
165	167
166	168		- Может ли Lazarus установить и использовать пакеты Delphi?
167	169
168	170
169	171		Нет, потому что они требуют магии компилятора Delphi.
170	172
171	173		- Должны ли они быть специально сделанными для Lazarus?
172	174
173	175
174	176		Да.
175	177
176	178		Создайте новый пакет, сохраните его в каталоге с исходниками пакета (обычно это тот же каталог файла .dpk), добавьте LCL как требуемый пакет и, наконец, добавьте файлы .pas. Теперь вы можете установить его или использовать в своих проектах. Есть некоторые [[packages\|различия между пакетами Lazarus и Delphi]].
177	179
178	180		## VCL -\> LCL
179	181
180	182		Хотя VCL и LCL служат большей части одной и той же цели - объектно-ориентированной иерархии компонентов, особенно ориентированной на быструю разработку приложений, они не идентичны. Например, в то время как VCL предоставляет много невизуальных компонентов, LCL пытается предоставлять только визуальные, в то время как большинство невизуальных компонентов (таких как доступ к базе данных) предоставляются с FCL, включенным в [[Free Pascal]].
181	183
182	184		Кроме того, многие элементы управления, которые представлены в VCL, могут отсутствовать в LCL, или наоборот, или даже если элементы управления существуют в обоих, они не являются клонами, и при переносе необходимо внести изменения в приложения, компоненты и элементы управления.
183	185
184	186		Ниже приведена попытка для пользователя Delphi дать достаточно полное описание основных различий или несовместимостей между ними. Она охватывает различия в первую очередь особенно для VCL D4, хотя иногда также D5, D6 или D7; и с текущим LCL, как в CVS. Таким образом, оно может не всегда соответствовать версии Delphi, к которой вы привыкли, или полностью соответствовать текущему LCL, который у вас есть. Если вы видите неточности между нижеследующим и LCL, как в CVS, или ваш Delphi не стесняется добавлять и изменять, чтобы сделать его максимально полным для всех людей.
185	187
186	188		### TControl.Font/TControl.ParentFont
187	189
188	190		В VCL довольно распространено и нормально использовать определенное имя шрифта и свойства шрифта, такие как жирный шрифт и курсив для элементов управления, и ожидать, что это значение всегда будет соблюдаться. Далее предоставляется свойство TControl.ParentFont, которое гарантирует, что элемент управления всегда будет следовать за шрифтом его родителя. Опять же подразумеваемое предположение, что эти значения будут всегда соблюдаться, даже независимо от настроек внешнего вида Windows.
189	191
190	192		Это не всегда верно в LCL, да и не может быть. LCL, являющийся кросс-платформой/кросс-интерфейсом по своей природе, предпочитает сбалансированный подход и вместо этого всегда будет пытаться использовать собственные настройки Рабочего стола/Внешнего вида инструментария или Темы для любых виджетов. Например, если используется интерфейс GTK, а тема gtk предоставляет определенный шрифт для кнопок, то кнопки LCL всегда будут пытаться использовать этот шрифт.
191	193
192	194		Это означает, что большинство элементов управления LCL не имеют того же уровня управления проектированием, который часто ожидается в VCL, скорее, только те пользовательские элементы управления, которые нарисованы Canvas вместо назначенного интерфейса, могут постоянно изменяться таким образом независимо от используемого интерфейса.
193	195
194	196		### Control Dragging/Docking
195	197
196	198		В VCL большинство (Win)Controls реализуют методы и функции обратного вызова для обработки перетаскивания и закрепления элементов управления, например, перетаскивая элемент управления с одной панели и закрепляя его на другой панели во время выполнения.
197	199
198	200		Эта функциональность в настоящее время не реализована/не завершена в LCL, хотя в настоящее время она находится на начальных этапах планирования и должна в конечном итоге поддерживать некоторый уровень совместимости для этого типа поведения, если не точно таким же образом.
199	201
200	202		В настоящее время это означает, что ни один элемент управления не будет наследовать/использовать следующие функции, процедуры, свойства или события TControl:
201	203
202	204		``` pascal
203	205		Protected
204	206		function GetDockEdge(MousePos: TPoint): TAlign;
205	207		function GetDragImages: TDragImageList;
206	208		function GetFloating: Boolean;
207	209		function GetFloatingDockSiteClass: TWinControlClass;
208	210		procedure DoEndDrag(Target:TObject); X, Y: Integer);
209	211		procedure DockTrackNoTarget(Source: TDragDockObject; X, Y: Integer);
210	212		procedure DoEndDock(Target: TObject; X, Y: Integer);
211	213		procedure DoDock(NewDockSite: TWinControl; var ARect: TRect);
212	214		procedure DoStartDock(var DragObject: TDragObject);
213	215		procedure DragCanceled;
214	216		procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState;
215	217		var Accept: Boolean);
216	218		procedure DoEndDrag(Target: TObject; X, Y: Integer);
217	219		procedure DoStartDrag(var DragObject: TDragObject);
218	220		procedure DrawDragDockImage(DragDockObject: TDragDockObject);
219	221		procedure EraseDragDockImage(DragDockObject: TDragDockObject);
220	222		procedure PositionDockRect(DragDockObject: TDragDockObject);
221	223		procedure SetDragMode(Value: TDragMode);
222	224		property DragKind: TDragKind;
223	225		property DragCursor: TCursor;
224	226		property DragMode: TDragMode;
225	227		property OnDragDrop: TDragDropEvent;
226	228		property OnDragOver: TDragOverEvent;
227	229		property OnEndDock: TEndDragEvent;
228	230		property OnEndDrag: TEndDragEvent;
229	231		property OnStartDock: TStartDockEvent;
230	232		property OnStartDrag: TStartDragEvent;
231	233		public
232	234		function Dragging: Boolean;
233	235		function ManualDock(NewDockSite: TWinControl; DropControl: TControl;
234	236		ControlSide: TAlign): Boolean;
235	237		function ManualFloat(ScreenPos: TRect): Boolean;
236	238		function ReplaceDockedControl(Control: TControl; NewDockSite: TWinControl;
237	239		DropControl: TControl; ControlSide: TAlign): Boolean;
238	240		procedure BeginDrag(Immediate: Boolean; Threshold: Integer);
239	241		procedure Dock(NewDockSite: TWinControl; ARect: TRect);
240	242		procedure DragDrop(Source: TObject; X, Y: Integer);
241	243		procedure EndDrag(Drop: Boolean);
242	244		property DockOrientation: TDockOrientation;
243	245		property Floating: Boolean;
244	246		property FloatingDockSiteClass: TWinControlClass;
245	247		property HostDockSite: TWinControl;
246	248		property LRDockWidth: Integer;
247	249		property TBDockHeight: Integer;
248	250		property UndockHeight: Integer;
249	251		property UndockWidth: Integer;
250	252		```
251	253
252	254		Вот эти классы не существуют/непригодны для использования -
253	255
254	256		``` pascal
255	257		TDragImageList = class(TCustomImageList)
256	258		TDockZone = class
257	259		TDockTree = class(TInterfacedObject, IDockManager)
258	260		TDragObject = class(TObject)
259	261		TBaseDragControlObject = class(TDragObject)
260	262		TDragControlObject = class(TBaseDragControlObject)
261	263		TDragDockObject = class(TBaseDragControlObject)
262	264		```
263	265
264	266		а вот эти функции также непригодны / несовместимы -
265	267
266	268		``` pascal
267	269		function FindDragTarget(const Pos: TPoint;
268	270		AllowDisabled: Boolean) : TControl;
269	271		procedure CancelDrag;
270	272		function IsDragObject(sender: TObject): Boolean;
271	273		```
272	274
273	275		Запуск менеджера пристыковки окон описан здесь: [[Anchor Docking]]
274	276
275	277		### TEdit/TCustomEdit
276	278
277	279		Элементы управления Edit, хотя они и функционируют в основном как в LCL, так и в VCL, имеют некоторые особенности, которые необходимо учитывать при преобразовании:
278	280
279	281		1. Из-за ограничений в интерфейсах TEdit.PasswordChar работает пока не во всех интерфейсах (хотя со временем может и будет), вместо этого следует использовать TCustomEdit.EchoMode emPassword в том случае, если текст события должен быть скрыт.
280	282		2. Событие Drag/Dock еще не реализовано. Для получения дополнительной информации см. предыдущий раздел Control Dragging/Docking.
281	283		3. Свойства шрифта обычно игнорируются для согласованности интерфейса, для подробного объяснения, что и как, пожалуйста, см. TControl.Font/TControl.ParentFont
282	284
283	285		### TDBImage
284	286
285	287		Delphi и Lazarus имеют элемент управления [[TDBImage]], который показывает изображения, хранящиеся в поле базы данных. В текущих стабильных версиях (1.2.4) Lazarus хранит информацию о типе изображения в поле базы данных перед фактическими данными изображения. См. процедуру TDBImage.UpdateData. Это означает, что Delphi и более старые реализации Lazarus не совместимы.
286	288
287	289		В текущей стабильной версии Lazarus (1.2.0+) реализованы изменения, позволяющие использовать поведение, совместимое с Delphi. Пожалуйста, см. [[Lazarus 1.2.0 release notes\|Lazarus_1.2.0_release_notes#TDBImage]] для получения подробной информации о том, как активировать это.
288	290
289	291		Текущий транк Lazarus'а возвращается к Delphi-совместимому поведению при чтении полей базы данных в формате Delphi в TDBImage.
290	292
291	293		### (необязательно) TSplitter -\> TPairSplitter
292	294
293	295		Пожалуйста, улучшите меня!
294	296
295	297		Теперь в LCL есть элемент управления [[TSplitter/ru\|TSplitter]], поэтому нет необходимости его преобразовывать.
296	298
297	299		Тем не менее, если вы хотите, здесь приводится объяснение:
298	300
299	301		Следующее в основном основано на вопросах пользователя Vincent Snijders в списках рассылки и ответов [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson):
300	302
301	303		В VCL элементы управления "Splitting" - это ползунок, который можно перетаскивать между двумя компонентами для предоставления большего или меньшего пространства одному из них за счет другого; выполняется \[посредством компонента\] TSplitter. Например, в IDE Delphi его можно увидеть между закрепленным Code Explorer и Source Viewer.
302	304
303	305		LCL предоставляет свой собственный элемент управления, называемый [[TPairSplitter/ru\|TPairSplitter]], который служит для тех же целей, однако он не совместим с Delphi, поэтому в случае переноса кода потребуется исправление "поврежденного" кода VCL или DFM-файлов Delphi, даже если используется много общего между двумя этими компонентами.
304	306
305	307		Так в чем именно различия?
306	308
307	309		Ну, самые большие различия в том, что VCL TSplitter не имеет \[размещенных на нем\] дочерних элементов, вместо этого он помещается между двумя правильно выровненными элементами управления и позволяет изменять их размер во время выполнения независимо от его собственного размера. На каждой стороне должно быть два элемента управления, чтобы что-нибудь сделать. Простым примером будет форма с выровненной по левому краю панелью, выровненным по левому краю разделителем и второй выровненной по клиенту панелью. Во время выполнения вы можете затем изменить размер, заданный для каждой панели, перетаскивая за специальный ползунок, предоставляемый элементом управления Splitter.
308	310
309	311		Однако с точки зрения LCL, TPairSplitter - это особый вид управления с двумя панелями, и он может быть полезен только в том случае, если элементы управления для разделения находятся на этих панелях, но он все равно будет выполнять разбиение между этими панелями, независимо от того, что расположено на них. Таким образом, по аналогии с предыдущим примером, вы получите форму с выровненным клиентом TPairSplitter, выровненным по панели клиентом с левой стороны и выровненным по панели клиентом с правой стороны.
310	312
311	313		------------------------------------------------------------------------
312	314
313	315		Прим.перев.: иными словами, TPairSplitter - это готовый контейнер, разделенный TSplitter на две половины (в зависимости от значения свойства SplitterType на левую/правую или верхнюю/нижнюю), каждая из которых уже имеет привязку alClient, готова принимать на себя дочерние элементы и меняет свои размеры при перемещении ползунка разделителя.
314	316
315	317		------------------------------------------------------------------------
316	318
317	319		Другое важное отличие состоит в том, что в VCl, поскольку TSplitter является собственным TControl, положение сохраняется относительно других элементов управления при изменении размера. Поэтому, например, клиентская панель будет расти, в то время как другие панели этого делать не будут, таким образом, позиция разделения является относительна к выравниванию разделяемых элементов управления.
318	320
319	321		В LCL, поскольку боковые панели отделены друг от друга, у TPairSplitter есть свойство Position, которое является абсолютным по отношению к верхнему или левому краям \[родительского элемента\]. Поэтому при изменении размера фактическая позиция не изменяется в зависимости от содержимого, отсюда, необходимо установить обратный вызов, чтобы обеспечить сохранение соотношения при изменении размера, если это важно.
320	322
321	323		------------------------------------------------------------------------
322	324
323	325		Прим.перев.: проще говоря, Position - это позиция ползунка TPairSplitter относительно левого/верхнего края контейнера (в зависимости от значения SplitterType = pstHorizontal/pstVertical соответственно).
324	326
325	327		------------------------------------------------------------------------
326	328
327	329		Например, если правая сторона вертикального разбиения должна иметь поведение, аналогичное alClient, необходимо добавить обратный вызов изменения размера формы, который выполняет что-то вроде:
328	330
329	331		``` pascal
330	332		PairSplitter.Position := PairSplitter.Width - PairSplitter.Position;
331	333		```
332	334
333	335		Итак, как я могу преобразовать существующий код, использующий TSplitter, в TPairSplitter?
334	336
335	337		Если разделитель и элементы управления создаются внутри фактической функции (например, при создании формы), преобразование не должно быть слишком сложным, в первую очередь реорганизуйте код, чтобы создать элементы управления в порядке новой иерархии, и установите родительские элементы дочерних элементов управления для разделения на левую/верхнюю и правую/нижнюю части PairSplitter. Пример изменений:
336	338
337	339		VCL
338	340
339	341		LCL
340	342
341	343		``` pascal
342	344		var
343	345		BottomPanel: TPanel;
344	346		VerticalSplitter: TSplitter;
345	347		LeftPanel: TPanel;
346	348		HorizontalSplitter: TSplitter;
347	349		MainPanel: TPanel;
348	350
349	351		begin
350	352		BottomPanel:= TPanel.Create(Self);
351	353		with (BottomPanel) do
352	354		begin
353	355		Parent:= Self;
354	356		Height:= 75;
355	357		Align:= alBottom;
356	358		end;
357	359
358	360		VerticalSplitter:= TSplitter.Create(Self);
359	361		with (VerticalSplitter) do
360	362		begin
361	363		Parent:= Self;
362	364		Align:= alBottom;
363	365		end;
364	366
365	367		HorizontalSplitter:= TSplitter.Create(Self);
366	368		with (HorizontalSplitter) do
367	369		begin
368	370		Parent:= Self;
369	371		align:= alLeft;
370	372		end;
371	373
372	374		LeftPanel:= TPanel.Create(Self);
373	375		with (LeftPanel) do
374	376		begin
375	377		Parent:= Self;
376	378		Width:= 125;
377	379		Align:= alLeft;
378	380		end;
379	381
380	382		MainPanel:= TPanel.Create(Self);
381	383		with (MainPanel) do
382	384		begin
383	385		Parent:= Self;
384	386		Align:= alClient;
385	387		Caption:= 'Привет';
386	388		end;
387	389		end;
388	390		```
389	391
390	392		``` pascal
391	393		var
392	394		BottomPanel: TPanel;
393	395		VerticalSplitter: TPairSplitter;
394	396		LeftPanel: TPanel;
395	397		HorizontalSplitter: TPairSplitter;
396	398		MainPanel: TPanel;
397	399
398	400		begin
399	401		VerticalSplitter:= TPairSplitter.Create(Self);
400	402		with (VerticalSplitter) do
401	403		begin
402	404		Parent:= Self;
403	405		Align:= alClient;
404	406		Width:= Self.Width;
405	407		Height:= Self.Height;
406	408		SplitterType:= pstVertical;
407	409		Position:= Height - 75;
408	410		Sides[0].Width:= Width;
409	411		Sides[0].Height:= Position;
410	412		end;
411	413
412	414		HorizontalSplitter:= TPairSplitter.Create(Self);
413	415		with (HorizontalSplitter) do
414	416		begin
415	417		Parent:= VerticalSplitter.Sides[0];
416	418		Width:= Self.Width;
417	419		Height:= VerticalSplitter.Position;
418	420		align:= alClient;
419	421		SplitterType:= pstHorizontal;
420	422		Position:= 125;
421	423		end;
422	424
423	425		LeftPanel:= TPanel.Create(Self);
424	426		with (LeftPanel) do
425	427		begin
426	428		Parent:= HorizontalSplitter.Sides[0];
427	429		Align:= alClient;
428	430		end;
429	431
430	432		MainPanel:= TPanel.Create(Self);
431	433		with (MainPanel) do
432	434		begin
433	435		Parent:= HorizontalSplitter.Sides[1];
434	436		Align:= alClient;
435	437		Caption:= 'Привет';
436	438		end;
437	439
438	440		BottomPanel:= TPanel.Create(Self);
439	441		with (BottomPanel) do
440	442		begin
441	443		Parent:= VerticalSplitter.Sides[1];
442	444		Align:= alClient;
443	445		end;
444	446		end;
445	447		```
446	448
447	449		Таким образом, как вы видите, \[преобразование\] справедливо для большей \[части кода\] с \[сохранением\] иерархии элементов управления. И если вы знакомы со \[структурой\] DFM-файлов, изменения, необходимые для преобразования DFM -\> LFM, должны быть очевидны из выше приведенного, поскольку они являются такими же изменениями в Parent/Owner и т.д.
448	450
449	451		Таким образом, приведенный выше пример будет что-то вроде -
450	452
451	453		Delphi DFM
452	454
453	455		(посторонние значения удалены)
454	456
455	457		Lazarus LFM
456	458
457	459		(большинство свойств width, height... и т.д. удалены)
458	460
459		-	~~``` pascal~~
	461	+	``` lfm
460	462		object VerticalSplitter: TSplitter
461	463		Height = 3
462	464		Cursor = crVSplit
463	465		Align = alBottom
464	466		end
465	467		object HorizontalSplitter: TSplitter
466	468		Width = 3
467	469		Align = alLeft
468	470		end
469	471		object BottomPanel: TPanel
470	472		Height = 75
471	473		Align = alBottom
472	474		end
473	475		object LeftPanel: TPanel
474	476		Width = 125
475	477		Align = alLeft
476	478		end
477	479		object MainPanel: TPanel
478	480		Align = alClient
479	481		end
480	482		```
481	483
482		-	~~``` pascal~~
	484	+	``` lfm
483	485		object VerticalSplitter: TPairSplitter
484	486		Align = alClient
485	487		SplitterType = pstVertical
486	488		Position = 225
487	489		Height = 300
488	490		Width = 400
489	491		object Pairsplitterside1: TPairSplitterIde
490	492		object HorizontalSplitter: TPairSplitter
491	493		Align = alClient
492	494		Position = 125
493	495		object Pairsplitterside3: TPairSplitterIde
494	496		Width = 125
495	497		object LeftPanel: TPanel
496	498		Align = alClient
497	499		Width = 125
498	500		end
499	501		end
500	502		object Pairsplitterside4: TPairSplitterIde
501	503		object MainPanel: TPanel
502	504		Align = alClient
503	505		end
504	506		end
505	507		end
506	508		end
507	509		object Pairsplitterside2: TPairSplitterIde
508	510		object BottomPanel: TPanel
509	511		Align = alClient
510	512		Height = 75
511	513		end
512	514		end
513	515		end
514	516		```
515	517
516	518		### TCustomTreeView/TTreeView
517	519
518	520		И VCL, и LCL предоставляют компонент TCustomTreeView/TTreeView, используемый для древовидных списков данных с несколькими узлами, расширенного выбора и списков изображений, и хотя фактические функции сопоставимы, не все свойства полностью совместимы. Основные различия заключаются в следующем -
519	521
520	522		Список не полон, но обновлен для включения в него функции TCustomTreeView Mark и protected-методов
521	523
522	524		1. LCL предоставляет TCustomTreeView.Options, набор опций, которые можно установить в элементе управления, чтобы изменить его поведение и внешний вид. Вот эти опции:
523	525		- tvoAllowMultiselect - включает режим выбора нескольких узлов, эквивалентный включению TCustomTreeView.MultiSelect в VCL D6
524	526		- tvoAutoExpand - автоматическое раскрытие узлов, что эквивалентно включению TCustomTreeView.AutoExpand
525	527		- tvoAutoInsertMark - обновляет предосмотр Drag при перемещении мышью.
526	528		- tvoAutoItemHeight - автоматически регулирует высоту элемента.
527	529		- tvoHideSelection - не помечать выбранный элемент.
528	530		- tvoHotTrack - использовать Hot Tracking, что эквивалетно включению TCustomTreeview.HotTrack
529	531		- tvoKeepCollapsedNodes - сохранять дочерние узлы при их сжатии/сворачивании
530	532		- tvoReadOnly - сделать Treeview доступным только для чтения, эквивалентно включению TCustomTreeview.ReadOnly
531	533		- tvoRightClickSelect - разрешить использовать правую кнопку мыши для выбора узлов, что эквивалентно включению TCustomTreeView.RightClickSelect
532	534		- tvoRowSelect - разрешить выбор строк, что эквивалентно включению TCustomTreeView.RowSelect
533	535		- tvoShowButtons - показывать кнопки, что эквивалентно включению TCustomTreeView.ShowButtons
534	536		- tvoShowLines - показывать линии узлов, что эквивалентные включению TCustomTreeView.ShowLines
535	537		- tvoShowRoot - показывать корневые элементы, что эквивалентные включению TCustomTreeView.ShowRoot
536	538		- tvoShowSeparators - показывать разделитель
537	539		- tvoToolTips - показывать подсказки для отдельных узлов
538	540		2. LCL предоставляет дополнительные свойства:
539	541		- Событие TCustomTreeView.OnSelectionChange
540	542		- TCustomTreeView.DefaultItems, для количества элементов \[дерева\] по умолчанию
541	543		- TCustomTreeView.ExpandSignType для определения знака, используемого в раскрывающихся/сворачивающихся узлах
542	544		3. Хотя большинство событий OnDrag/OnDock доступны в LCL, они не работают. Для получения дополнительной информации см. предыдущий раздел [[Lazarus For Delphi Users/ru\|Control Dragging/Docking]].
543	545
544	546		### Сообщения / События
545	547
546	548		Порядок и частота сообщений и событий (OnShow, OnActivate, OnEnter, ...) отличаются от VCL и зависят от [[Widgetset\|widgetset]]. LCL предоставляет подмножество WinAPI-подобных сообщений, чтобы упростить перенос компонентов Delphi, но почти все сообщения LCL работают несколько иначе, чем аналоги VCL/WinAPI. Большая часть кода Delphi, использующего сообщения WinAPI, использует их, потому что VCL не имеет функции или по соображениям скорости. Такие вещи редко работают одинаково в LCL, поэтому их нужно проверять вручную. Вот почему сообщения LCL называются, например, LM_SIZE вместо WM_SIZE (модуль Lmessages).
547	549
548	550		Замечание по обработке пользовательских сообщений! Начиная с версии 0.9.26 (декабрь 2008г.), способ обработки пользовательских сообщений WinApi (например, WM_HOTKEY, WM_SYSCOMMAND) отличается от способа обработки этих сообщений в Delphi. В настоящее время вы не можете обработать их с помощью директивы message или переопределением метода WndProc формы. Единственный способ обработать их в форме - это самому перехватить сообщение Windows windowproc. Подробнее читайте здесь: [[Win32/64 Interface\|Processing non-user messages in your window]]
549	551
550	552		## См. также
551	553
552	554		- [[Code Conversion Guide/ru\|Code Conversion Guide (from Delphi & Kylix)]]
553	555		- [[Compile With Delphi/ru\|Compile With Delphi]]
554	556
555	557		---
556	558		From the Free Pascal wiki, page "Lazarus For Delphi Users/ru", as it stood on 2019-12-22 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).

Back to history