LCL Internals/ru: what changed

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

Old	New		Line
1	1		## Другие интерфейсы
2	2
3	3		- [[Lazarus known issues (things that will never be fixed)]] - Список проблем совместимости интерфейса
4	4		- [[Win32/64 Interface]] - Интерфейс winapi для Windows 95/98/Me/2K/XP/Vista, но не для CE
5	5		- [[Windows CE Interface]] - Для карманных ПК и смартфонов
6	6		- [[Carbon Interface]] - Интерфейс Carbon для macOS
7	7		- [[Cocoa Interface]] - Интерфейс Cocoa для macOS
8	8		- [[Qt Interface]] - Интерфейс Qt4 для Unix, macOS, Windows и КПК на базе Linux
9	9		- [[Qt5 Interface]] - Интерфейс Qt5 для Unix, macOS, Windows и КПК на базе Linux
10	10		- [[GTK1 Interface]] - Интерфейс gtk1 для Unix, macOS (X11), Windows
11	11		- [[GTK2 Interface]] - Интерфейс gtk2 для Unix, macOS (X11), Windows
12	12		- [[GTK3 Interface]] - Интерфейс gtk3 для Unix, macOS (X11), Windows
13	13		- [[fpGUI Interface]] - Основан на библиотеке fpGUI, которая представляет собой кроссплатформенный инструментарий, полностью написанный на Object Pascal
14	14		- [[Custom Drawn Interface]] - Кроссплатформенный бэкэнд LCL, написанный полностью на Object Pascal внутри Lazarus. Интерфейс Lazarus для Android.
15	15
16	16		### Советы для конкретных платформ
17	17
18	18		- [[Windows Programming Tips]] - Cоветы по программированию на desktop-Windows.
19	19		- [[Linux Programming Tips]] - Как выполнять определенные задачи программирования в Linux
20	20		- [[macOS Programming Tips]] - Советы по Lazarus, полезные инструменты, команды Unix и многое другое ...
21	21		- [[WinCE Programming Tips]] - Использование телефонного API, отправка SMS-сообщений и многое другое ...
22	22		- [[Android Programming]] - Для Android смартфонов и планшетов
23	23		- [[iPhone/iPod development]] - Об использовании Objective Pascal для разработки приложений для iOS
24	24
25	25		### Статьи по разработке интерфейсов
26	26
27	27		- [[Carbon interface internals]] - Если вы хотите помочь улучшить интерфейс Carbon
28	28		- [[Windows CE Development Notes]] - Для карманных ПК и смартфонов
29	29		- [[Adding a new interface]] - Как добавить новый интерфейс набора виджетов
30	30		- [[LCL Defines]] - Выбор правильных опций для перекомпиляции LCL
31	31		- [[LCL Internals]] - Некоторая информация о внутренней работе LCL
32	32		- [[Cocoa Internals]] - Некоторая информация о внутренней работе виджета Cocoa
33	33
34	34		## Минимальные версии Toolkit
35	35
36	36		\| Lazarus version \| Мин. FPC \| Мин. Gtk 2 \| Мин. Qt 4 \| Мин. Windows \| Мин. Windows CE \| Мин. macOS (Carbon) \| Мин. macOS (Cocoa) \| Мин. треб. LCL-CustomDrawn \|
37	37		\|----\|----\|----\|----\|----\|----\|----\|----\|----\|
38	38		\| 0.9.24 \| 2.2.0 \| 2.6+ \| 4.2+ \| Windows 98+ \| Рекомендуется 4.0+ \| 10.4 \| N/A \| N/A \|
39	39		\| 0.9.26 \| 2.2.2 \| 2.6+ \| 4.3+ \| Windows 98+ \| Рекомендуется 4.0+ \| 10.4 \| N/A \| N/A \|
40	40		\| 0.9.28 \| 2.2.4 \| 2.8+ \| 4.5+ \| Windows 98+ \| Рекомендуется 4.0+ \| 10.4 \| N/A \| N/A \|
41	41		\| 0.9.30 \| 2.4.0 \| 2.8+ \| 4.5+ \| Windows 98+ \| Рекомендуется 5.0+ \| 10.4 \| N/A \| N/A \|
42	42		\| 0.9.31 \| 2.4.4 \| 2.8+ \| 4.5+ \| Windows 98+ \| Рекомендуется 5.0+ \| 10.4 \| 10.6 \| Android 2.2+, Windows 2000+, X11, Mac 10.6+ \|
43	43		\| 1.2.6 \| 2.6.4 \| 2.8+ \| 4.5+* \| Windows 98+ \| Рекомендуется 5.0+ \| 10.4 \| 10.6 \| Android 2.2+, Windows 2000+, X11, Mac 10.6+ \|
44	44
45	45		- \- На самом деле 4.5.0 ... 4.8.4 с предварительно собранным Qt4Pas.dll, 4.8.5+ требует другого Qt4Pas.dll
46	46
47	47		См.также: [[Installing Lazarus on MacOS X/ru\|совместимость]]
48	48
49	49		## Внутренности LCL
50	50
51	51		Есть LCL и есть «интерфейс». LCL - это часть, которая не зависит от платформы и находится в каталоге lazarus/lcl/. Этот каталог содержит в основном определения классов. Многие различные элементы управления фактически реализованы в каталоге lazarus/lcl/include/ в различных файлах .inc. Это делается для того, чтобы быстрее найти реализацию определенного элемента управления, например TCustomMemo (который находится в custommemo.inc). Каждый .inc начинается со строки {% MainUnit ...}, чтобы определить, где он включен.
52	52
53	53		Также есть «интерфейс», который находится в подкаталоге каталога lazarus/lcl/interfaces/. Интерфейс gtk находится в gtk/, win32 в win32/ и т.д. Все они имеют модуль Interfaces, который используется lcl и создает основной объект интерфейса. Обычно основной интерфейсный объект определяется в XXint.pp (win32int.pp) и реализуется в различных inc-файлах, XXobject.inc - для методов, специфичных для интерфейса, XXwinapi.inc - для методов реализации winapi, XXlistsl.inc - для реализации списка строк, использующихся TComboBox, TListBox и другими подобными элементами управления, XXcallback.inc - для обработки событий виджета и принятия соответствующих действий для уведомления LCL.
54	54
55	55		Каждый элемент управления имеет свойство WidgetSetClass, принадлежащее "зеркальному" классу в каталоге интерфейсов, например: "зеркало" для TCustomEdit - это TWSCustomEdit, методы которого реализуются TWin32WSCustomEdit в win32wsstdctrls. Это способ, которым LCL взаимодействует с интерфейсом, и то, как он позволяет интерфейсу делать свое дело.
56	56
57	57		Передача интерфейса обратно в LCL в основном осуществляется путем отправки сообщений, обычно 'DeliverMessage', который вызывает TControl.Perform (\<message_id\>, wparam, lparam), где wparam и lparam являются дополнительной информацией для сообщения.
58	58
59	59		### Pie и RadialPie
60	60
61	61		Модуль LCLIntf содержит две функции для рисования округлых фигур:
62	62
63		-	~~`function `[[doc:lcl/lclintf/pie.html\|Pie]]`(DC: HDC; x1, y1, x2, y2, sx, sy, ex, ey: Integer): Boolean;`\~~
64		-	~~`function `[[doc:lcl/lclintf/radialpie.html\|RadialPie]]`(DC: HDC; x1, y1, x2, y2, Angle1, Angle2: Integer): Boolean; `~~
	63	+	``` pascal
	64	+	function Pie(DC: HDC; x1, y1, x2, y2, sx, sy, ex, ey: Integer): Boolean;
	65	+	function RadialPie(DC: HDC; x1, y1, x2, y2, Angle1, Angle2: Integer): Boolean;
	66	+	```
65	67
66	68		Функция Pie использует две точки (sx,sy) и (ex,ey) для указания начала и конца дуги. RadialPie использует углы, чтобы указать начало и конец дуги.
67	69
68	70		Pie вызывает TWidgetSet.Pie, а RadialPie вызывает TWidgetSet.RadialPie. Реализация TWidgetSet.Pie по умолчанию заключается в преобразовании параметров в углы и вызове TWidgetSet.RadialPie. TWidgetSet.RadialPie создает массив точек для дуги и вызывает TWidgetSet.Polygon.
69	71
70	72		Набор виджетов win32 переопределяет TWidgetSet.Pie для непосредственного вызова функции Windows Pie.
71	73
72	74		> Note: в более старых версиях Lazarus существовал RadialPie с углами, которые делали то же, что и нынешние RadialPie и RadialPie, которые делают то же самое, что и наша \[функция\] Pie. Эти функции были удалены в Lazarus 0.9.21.
73	75
74	76		### Интерфейсы
75	77
76	78		См. [[LCL Internals/ru\|другие интерфейсы]]
77	79
78	80		### Добавление нового модуля в LCL
79	81
80	82		Сначала добавьте новое имя модуля в allclunits.pp.
81	83
82	84		Чтобы убедиться, что модуль зарегистрирован в палитре компонентов, смотрите файлы RegisterLCL.pas и pkgfileslcl.inc, они расположены в lazarus/packager.
83	85
84	86		## Как создать новый Widgetset
85	87
86	88		Это пошаговое руководство по разработке нового [[Widgetset\|widgetset]]. Он основан на моем опыте создания основ нового интерфейса qt4.
87	89
88	90		Для начала, почему кто-то хочет добавить Widgetset? Ответ заключается в том, чтобы иметь возможность портировать существующее программное обеспечение Lazarus на большее количество платформ без изменения их кода.
89	91
90	92		Итак, давайте напишем набор виджетов. Прежде всего, вам нужно иметь паскаль привязки для виджета и знать, как его использовать. Обычно это не сложно. Несколько часов работы с основными учебными пособиями, доступными в Интернете, должны быть достаточными для начала. Если привязки еще не существуют, их нужно создать. Если учебные пособия написаны на другом языке, переведите их на паскаль и заставьте их работать.
91	93
92	94		Теперь для Qt я использовал привязки Den Jean qt4 для паскаля и создал очень простую программу Qt, используя их:
93	95
94	96		``` pascal
95	97		program qttest;
96	98
97	99		uses qt4;
98	100
99	101		var
100	102		App: QApplicationH;
101	103		MainWindow: QMainWindowH;
102	104		begin
103	105		App := QApplication_Create(@argc,argv);
104	106
105	107		MainWindow := QMainWindow_Create;
106	108
107	109		QWidget_show(MainWindow);
108	110
109	111		QApplication_Exec;
110	112		end.
111	113		```
112	114
113	115		Вышеуказанный проект компилируется и создает программу qt4. Теперь мы будем использовать его код для написания нового набора виджетов. После того, как мы закончим, приведенная ниже программа lazarus прекрасно скомпилируется в программу qt4:
114	116
115	117		``` pascal
116	118		program qttest;
117	119
118	120		{$mode objfpc}{$H+}
119	121
120	122		uses
121	123		Interfaces, Classes, Forms,
122	124		{ Add your units here }
123	125		qtform;
124	126
125	127		begin
126	128		Application.Initialize;
127	129		Application.CreateForm(TForm1, Form1);
128	130		Application.Run;
129	131		end.
130	132		```
131	133
132	134		где форма поддерживается Lazarus IDE и разрабатывается визуально.
133	135
134	136		Первое, что нужно сделать с новым набором виджетов, это добавить пустой скелет для него. Очень ранние наборы виджетов разработки, такие как qt и carbon, могут служить скелетом.
135	137
136	138		Просматривая файлы на многих виджетах, вы можете увидеть первый файл, который будет вызван lcl: Interfaces.pas. Этот файл просто вызывает другой файл с именем QtInt.pas или аналогичный. QtInt.pas содержит код для класса TWidgetSet, который мы должны реализовать. На пустом скелете вы можете видеть, что у класса есть различные функции, которые он должен реализовать:
137	139
138	140		``` pascal
139	141		TQtWidgetSet = Class(TWidgetSet)
140	142		private
141	143		App: QApplicationH;
142	144		public
143	145		{$I qtwinapih.inc}
144	146		{$I qtlclintfh.inc}
145	147		public
146	148		// Application
147	149		procedure AppInit(var ScreenInfo: TScreenInfo); override;
148	150		procedure AppRun(const ALoop: TApplicationMainLoop); override;
149	151		procedure AppWaitMessage; override;
150	152		procedure AppProcessMessages; override;
151	153		procedure AppTerminate; override;
152	154		procedure AppMinimize; override;
153	155		procedure AppBringToFront; override;
154	156		public
155	157		constructor Create;
156	158		destructor Destroy; override;
157	159		function DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor; override;
158	160		procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); override;
159	161		procedure DCRedraw(CanvasHandle: HDC); override;
160	162		procedure SetDesigning(AComponent: TComponent); override;
161	163
162	164		function InitHintFont(HintFont: TObject): Boolean; override;
163	165
164	166		// create and destroy
165	167		function CreateComponent(Sender : TObject): THandle; override; // deprecated
166	168		function CreateTimer(Interval: integer; TimerFunc: TFNTimerProc): integer; override;
167	169		function DestroyTimer(TimerHandle: integer): boolean; override;
168	170		end;
169	171		```
170	172
171	173		### Как реализовать новый оконный компонент
172	174
173	175		Все оконные компоненты являются потомками TWinControl. Эти элементы управления имеют дескриптор и поэтому должны создаваться набором виджетов. Добавлять новые оконные компоненты в набор виджетов \[довольно\] легко.
174	176
175	177		Допустим, вы хотите добавить TQtWSCustomEdit в Qt Widgetset. \[Нужно\] начать с TCustomEdit, \[который\] является потомком TWinControl и находится в модуле StdCtrls.
176	178
177	179		Теперь перейдите к модулю QtWSStrCtrls и найдите объявление TQtWSCustomEdit.
178	180
179	181		``` pascal
180	182		TQtWSCustomEdit = class(TWSCustomEdit)
181	183		private
182	184		protected
183	185		public
184	186		end;
185	187		```
186	188
187	189		Добавьте статические методы, объявленные в TWSCustomEdit, и переопределите их. Код должен теперь выглядеть так:
188	190
189	191		``` pascal
190	192		TQtWSCustomEdit = class(TWSCustomEdit)
191	193		private
192	194		protected
193	195		public
194	196		class function CreateHandle(const AWinControl: TWinControl;
195	197		const AParams: TCreateParams): HWND; override;
196	198		class procedure DestroyHandle(const AWinControl: TWinControl); override;
197	199		{ class function GetSelStart(const ACustomEdit: TCustomEdit): integer; override;
198	200		class function GetSelLength(const ACustomEdit: TCustomEdit): integer; override;
199	201
200	202		class procedure SetCharCase(const ACustomEdit: TCustomEdit; NewCase: TEditCharCase); override;
201	203		class procedure SetEchoMode(const ACustomEdit: TCustomEdit; NewMode: TEchoMode); override;
202	204		class procedure SetMaxLength(const ACustomEdit: TCustomEdit; NewLength: integer); override;
203	205		class procedure SetPasswordChar(const ACustomEdit: TCustomEdit; NewChar: char); override;
204	206		class procedure SetReadOnly(const ACustomEdit: TCustomEdit; NewReadOnly: boolean); override;
205	207		class procedure SetSelStart(const ACustomEdit: TCustomEdit; NewStart: integer); override;
206	208		class procedure SetSelLength(const ACustomEdit: TCustomEdit; NewLength: integer); override;
207	209
208	210		class procedure GetPreferredSize(const AWinControl: TWinControl;
209	211		var PreferredWidth, PreferredHeight: integer); override;}
210	212		end;
211	213		```
212	214
213	215		Закомментированная часть кода - это процедуры, которые необходимо реализовать, чтобы TCustomEdit был полностью функциональным, но достаточно просто \[наличия\] CreateHandle и DestroyHandle, чтобы он отображался в форме и был редактируемым, поэтому он соответствует нашим потребностям в этой статье.
214	216
215	217		Нажмите `Ctrl`+`Shift`+`C`, чтобы завершить код и реализовать CreateHandle и DestroyHandle. В случае Qt4 код будет таким:
216	218
217	219		``` pascal
218	220		{ TQtWSCustomEdit }
219	221
220	222		class function TQtWSCustomEdit.CreateHandle(const AWinControl: TWinControl;
221	223		const AParams: TCreateParams): HWND;
222	224		var
223	225		Widget: QWidgetH;
224	226		Str: WideString;
225	227		begin
226	228		// Создаем виджет
227	229		WriteLn('Calling QTextDocument_create');
228	230		Str := WideString((AWinControl as TCustomMemo).Lines.Text);
229	231		Widget := QTextEdit_create(@Str, QWidgetH(AWinControl.Parent.Handle));
230	232
231	233		//Задаем его начальные свойства
232	234		QWidget_setGeometry(Widget, AWinControl.Left, AWinControl.Top,
233	235		AWinControl.Width, AWinControl.Height);
234	236
235	237		QWidget_show(Widget);
236	238
237	239		Result := THandle(Widget);
238	240		end;
239	241
240	242		class procedure TQtWSCustomEdit.DestroyHandle(const AWinControl: TWinControl);
241	243		begin
242	244		QTextEdit_destroy(QTextEditH(AWinControl.Handle));
243	245		end;
244	246		```
245	247
246	248		Теперь раскомментируйте строку "RegisterWSComponent (TCustomEdit, TQtWSCustomEdit);" в конце модуля и ... все!
247	249
248	250		Теперь вы можете поместить TCustomEdit внизу формы и ожидать, что он будет работать. :^)
249	251
250	252		### Реализация TBitmap
251	253
252	254		Для реализации TBitmap необходимо понимать TRawImage и TLazIntfImage, как описано здесь: [[Developing with Graphics\|Developing with Graphics#Working with TLazIntfImage.2C TRawImage and TLazCanvas]]
253	255
254	256		Итак, допустим, вы хотите скомпилировать следующий код:
255	257
256	258		``` pascal
257	259		procedure TMyForm.HandleOnPaint(Sender: TObject);
258	260		var
259	261		Bitmap: TBitmap;
260	262		begin
261	263		Bitmap := TBitmap.Create;
262	264		try
263	265		Bitmap.LoadFromFile('myfile.bmp');
264	266		Canvas.Draw(0, 0, Bitmap);
265	267		finally
266	268		Bitmap.Free;
267	269		end;
268	270		end;
269	271		```
270	272
271	273		Ниже приведен порядок вызова функций из интерфейса widgetset при выполнении этого кода:
272	274
273		-	~~` 1 - BeginPaint`~~
	275	+	```text
	276	+	1 - BeginPaint
	277	+	```
274	278
275	279		Это будет вызвано только, если событие OnPaint отправляет ноль в качестве DC для события рисования
276	280
277		-	~~` 2 - GetDC(0);`~~
	281	+	```text
	282	+	2 - GetDC(0);
	283	+	```
278	284
279	285		Просто создает контекст устройства.
280	286
281		-	~~` 3 - TCDWidgetSet.RawImage_QueryDescription `~~
	287	+	```text
	288	+	3 - TCDWidgetSet.RawImage_QueryDescription
	289	+	```
282	290
283	291		Реализация этой процедуры по умолчанию подходит для большинства наборов виджетов.
284	292
285		-	~~` 4 - TCDWidgetSet.RawImage_CreateBitmaps`~~
	293	+	```text
	294	+	4 - TCDWidgetSet.RawImage_CreateBitmaps
	295	+	```
286	296
287	297		Здесь вам нужно создать собственный объект изображения и загрузить его из RawData.Data, где хранится информация на основе вашего описания формата пикселя в пункте 2.
288	298
289		-	~~` 5 - CreateCompatibleDC(0)`~~
	299	+	```text
	300	+	5 - CreateCompatibleDC(0)
	301	+	```
290	302
291	303		Это создает временный DC только для хранения изображения, но на данный момент нет информации об изображении, поэтому в этот момент этот DC действительно фиктивный
292	304
293		-	~~` 6 - SelectObject`~~
	305	+	```text
	306	+	6 - SelectObject
	307	+	```
294	308
295	309		С изображением в качестве объекта, который будет выбран, и DC, созданный выше, в качестве целевого DC.
296	310
297		-	~~` 7 - StretchMaskBlt`~~
	311	+	```text
	312	+	7 - StretchMaskBlt
	313	+	```
298	314
299	315		Наконец, функция рисования! DestDC - это DC, размещенный на BeginPaint.
300	316
301		-	~~` 8 - EndPaint`~~
	317	+	```text
	318	+	8 - EndPaint
	319	+	```
302	320
303	321		Опять же, не всегда используется.
304	322
305	323		### TBitmap.LoadFromDevice для снятия скриншота
306	324
307	325		Рекомендуется сначала реализовать Bitmap, прежде чем делать этот шаг.
308	326
309	327		В LCL вы можете использовать следующий код, делающий скриншот со всего экрана и рисующий его на холсте:
310	328
311	329		``` pascal
312	330		var
313	331		ScreenDC: HDC;
314	332		Bitmap: TBitmap;
315	333		begin
316	334		Bitmap := TBitmap.Create;
317	335		try
318	336		ScreenDC := GetDC(0);
319	337		Bitmap.LoadFromDevice(ScreenDC);
320	338		ReleaseDC(0, ScreenDC);
321	339		Canvas.Draw(0, 0, Bitmap);
322	340		finally
323	341		Bitmap.Free;
324	342		end;
325	343		end;
326	344		```
327	345
328	346		Если вы уже внедрили TBitmap, для LoadFromDevice нужно реализовать только 2 новые функции: GetDeviceSize и GetRawImageFromDevice
329	347
330	348		Ниже приведен большой трейс, охватывающий все функции набора виджетов, вызываемые для события OnPaint, которое делает снимок экрана и рисует его на экране. Эта трассировка была сделана с помощью набора виджетов Qt и может иметь некоторые недостатки. Номера дескрипторов должны использоваться для проверки того, какой объект используется в функциях.
331	349
332	350		[WinAPI BeginPaint] Result=-1220713544
333	351		[WinAPI GetClientBounds]
334	352		[WinAPI SetWindowOrgEx] DC: -1220713544 NewX: 0 NewY: 0
335	353
336	354		``` pascal
337	355		//Входим в событие OnPaint
338	356		Bitmap := TBitmap.Create;
339	357		try
340	358		ScreenDC := GetDC(0);
341	359		```
342	360
343	361		[WinAPI GetDC] hWnd: 0 Result: -1220712920
344	362
345	363		``` pascal
346	364		Bitmap.LoadFromDevice(ScreenDC);
347	365		```
348	366
349		-	~~` [WinAPI GetDeviceSize]`\~~
350		-	~~` [WinAPI GetRawImageFromDevice] SrcDC: -1220712920 SrcWidth: 0 SrcHeight: 0`\~~
351		-	~~` [WinAPI CreateBitmapFromRawImage] Width:1024 Height:768 DataSize: 3145728 CreateMask: False Bitmap:-1220746696`\~~
352		-	~~` [WinAPI GetObject] GDIObj: -1220746696 Result=84 ObjectType=Image`~~
	367	+	```text
	368	+	[WinAPI GetDeviceSize]
	369	+	[WinAPI GetRawImageFromDevice] SrcDC: -1220712920 SrcWidth: 0 SrcHeight: 0
	370	+	[WinAPI CreateBitmapFromRawImage] Width:1024 Height:768 DataSize: 3145728 CreateMask: False Bitmap:-1220746696
	371	+	[WinAPI GetObject] GDIObj: -1220746696 Result=84 ObjectType=Image
	372	+	```
353	373
354	374		``` pascal
355	375		ReleaseDC(0, ScreenDC);
356	376		```
357	377
358	378		[WinAPI ReleaseDC] hWnd: 0 DC: -1220712920
359	379
360	380		``` pascal
361	381		Canvas.Draw(0, 0, Bitmap);
362	382		```
363	383
364		-	~~` [WinAPI CreateCompatibleDC] DC: 0`\~~
365		-	~~` [WinAPI GetDC] hWnd: 0 Result: -1220712920`\~~
366		-	~~` [WinAPI SelectObject] DC=-1220712920 GDIObj=-1220746696 Result=0 ObjectType=Image`\~~
367		-	~~` [WinAPI StretchMaskBlt] DestDC:-1220713544 SrcDC:-1220712920 Image:137185120 X:0 Y:0 W:1024 H:768 XSrc:0 YSrc:0 WSrc:1024 HSrc:768`~~
	384	+	```text
	385	+	[WinAPI CreateCompatibleDC] DC: 0
	386	+	[WinAPI GetDC] hWnd: 0 Result: -1220712920
	387	+	[WinAPI SelectObject] DC=-1220712920 GDIObj=-1220746696 Result=0 ObjectType=Image
	388	+	[WinAPI StretchMaskBlt] DestDC:-1220713544 SrcDC:-1220712920 Image:137185120 X:0 Y:0 W:1024 H:768 XSrc:0 YSrc:0 WSrc:1024 HSrc:768
	389	+	```
368	390
369	391		``` pascal
370	392		finally
371	393		Bitmap.Free;
372	394		end;
373	395		```
374	396
375		-	~~` [WinAPI SelectObject] DC=-1220712920 GDIObj=0 Invalid GDI Object`\~~
376		-	~~` [WinAPI DeleteObject] GDIObject: -1220746696 Result=False ObjectType=Image`~~
	397	+	``` pascal
	398	+	[WinAPI SelectObject] DC=-1220712920 GDIObj=0 Invalid GDI Object
	399	+	[WinAPI DeleteObject] GDIObject: -1220746696 Result=False ObjectType=Image
	400	+	```
377	401
378	402		``` pascal
379	403		//Здесь мы вышли из события OnPaint
380	404		```
381	405
382		-	~~` [WinAPI DeleteObject] GDIObject: 0`\~~
383		-	~~` [WinAPI DeleteObject] GDIObject: 0`\~~
384		-	~~` [WinAPI DeleteObject] GDIObject: 0`\~~
385		-	~~` [WinAPI DeleteObject] GDIObject: 0`\~~
386		-	~~` [WinAPI SetWindowOrgEx] DC: -1220713544 NewX: -152 NewY: -246`\~~
387		-	~~` [WinAPI DeleteObject] GDIObject: 0`\~~
388		-	~~` [WinAPI DeleteObject] GDIObject: 0`\~~
389		-	~~` [WinAPI DeleteObject] GDIObject: 0`\~~
390		-	~~` [WinAPI DeleteObject] GDIObject: 0`\~~
391		-	~~` TWidgetSet.InitializeCriticalSection`\~~
392		-	~~` TWidgetSet.EnterCriticalSection`\~~
393		-	~~` [WinAPI SelectObject] DC=-1220713544 GDIObj=0 Invalid GDI Object`\~~
394		-	~~` [WinAPI MoveToEx] DC:-1220713544 X:0 Y:0`\~~
395		-	~~` [WinAPI SelectObject] DC=-1220713544 GDIObj=-1220746760 Result=-1220746856 ObjectType=Brush`\~~
396		-	~~` [WinAPI SelectObject] DC=-1220713544 GDIObj=-1220746856 Result=-1220746856 ObjectType=Brush`\~~
397		-	~~` TWidgetSet.LeaveCriticalSection`\~~
398		-	~~` [WinAPI SetWindowOrgEx] DC: -1220713544 NewX: 0 NewY: 0`\~~
399		-	~~` [WinAPI EndPaint] Handle: -1220611768 PS.HDC: -1220713544`~~
	406	+	``` pascal
	407	+	[WinAPI DeleteObject] GDIObject: 0
	408	+	[WinAPI DeleteObject] GDIObject: 0
	409	+	[WinAPI DeleteObject] GDIObject: 0
	410	+	[WinAPI DeleteObject] GDIObject: 0
	411	+	[WinAPI SetWindowOrgEx] DC: -1220713544 NewX: -152 NewY: -246
	412	+	[WinAPI DeleteObject] GDIObject: 0
	413	+	[WinAPI DeleteObject] GDIObject: 0
	414	+	[WinAPI DeleteObject] GDIObject: 0
	415	+	[WinAPI DeleteObject] GDIObject: 0
	416	+	TWidgetSet.InitializeCriticalSection
	417	+	TWidgetSet.EnterCriticalSection
	418	+	[WinAPI SelectObject] DC=-1220713544 GDIObj=0 Invalid GDI Object
	419	+	[WinAPI MoveToEx] DC:-1220713544 X:0 Y:0
	420	+	[WinAPI SelectObject] DC=-1220713544 GDIObj=-1220746760 Result=-1220746856 ObjectType=Brush
	421	+	[WinAPI SelectObject] DC=-1220713544 GDIObj=-1220746856 Result=-1220746856 ObjectType=Brush
	422	+	TWidgetSet.LeaveCriticalSection
	423	+	[WinAPI SetWindowOrgEx] DC: -1220713544 NewX: 0 NewY: 0
	424	+	[WinAPI EndPaint] Handle: -1220611768 PS.HDC: -1220713544
	425	+	```
400	426
401	427		### Реализация рисования в событии OnPaint формы или другого элемента управления
402	428
403	429		Для рисования в событии OnPaint формы само событие приходит из библиотеки лежащих в основе виджетов. Интерфейс LCL должен обработать это событие и создать соответствующий объект DC в обработчике событий, а затем вызвать LCLSendPaintMsg. Кроме того, следует также реализовать соответствующие методы рисования, такие как Rectangle или ExtTextOut. Также могут быть полезны процедуры, связанные с Pen(перо), Brush(кисть) и Font(шрифт).
404	430
405	431		Вот обработчик события OnPaint из набора виджетов Cocoa, который показывает, как он вызывает LCLSentPaintMsg:
406	432
407	433		``` pascal
408	434		procedure TLCLCommonCallback.Draw(ControlContext: NSGraphicsContext;
409	435		const bounds, dirty:NSRect);
410	436		var
411	437		struct : TPaintStruct;
412	438		begin
413	439		if not Assigned(Context) then Context:=TCocoaContext.Create;
414	440
415	441		Context.ctx:=ControlContext;
416	442		if Context.InitDraw(Round(bounds.size.width), Round(bounds.size.height)) then
417	443		begin
418	444		FillChar(struct, SizeOf(TPaintStruct), 0);
419	445		struct.hdc := HDC(Context);
420	446		{$IFDEF VerboseWinAPI}
421	447		DebugLn(Format('[TLCLCommonCallback.Draw] OnPaint event started context: %x', [HDC(context)]));
422	448		{$ENDIF}
423	449		LCLSendPaintMsg(Target, HDC(Context), @struct);
424	450		{$IFDEF VerboseWinAPI}
425	451		DebugLn('[TLCLCommonCallback.Draw] OnPaint event ended');
426	452		{$ENDIF}
427	453		end;
428	454		end;
429	455		```
430	456
431	457		И список подпрограмм WinAPI, которые были вызваны при запуске этого события:
432	458
433		-	~~` [TCocoaWidgetSet.GetDC] hWnd: 0 Result: 12400C0`\~~
434		-	~~` [TLCLCommonCallback.Draw] OnPaint event started context: 1240340`\~~
435		-	~~` TCocoaWidgetSet.CreatePenIndirect`\~~
436		-	~~` TCocoaWidgetSet.SelectObject DC: 1240340 GDIObj: 10EC460`\~~
437		-	~~` TCocoaWidgetSet.SelectObject Result: 0`\~~
438		-	~~` TCocoaWidgetSet.SelectObject DC: 1240340 GDIObj: 10EBF00`\~~
439		-	~~` TCocoaWidgetSet.SelectObject Result: 0`\~~
440		-	~~` [TCocoaWidgetSet.Rectangle] DC: 1240340 X1: 100 Y1: 100 X2: 200 Y2: 200`\~~
441		-	~~` TCocoaWidgetSet.SelectObject DC: 1240340 GDIObj: 10EC4A0`\~~
442		-	~~` TCocoaWidgetSet.SelectObject Result: 0`\~~
443		-	~~` [TCocoaWidgetSet.GetTextExtentPoint] DC: 1240340 Str: Some text Count: 9`\~~
444		-	~~` [TCocoaWidgetSet.GetTextExtentPoint] Size: 65,17`\~~
445		-	~~` [TLCLCommonCallback.Draw] OnPaint event ended`~~
	459	+	```text
	460	+	[TCocoaWidgetSet.GetDC] hWnd: 0 Result: 12400C0
	461	+	[TLCLCommonCallback.Draw] OnPaint event started context: 1240340
	462	+	TCocoaWidgetSet.CreatePenIndirect
	463	+	TCocoaWidgetSet.SelectObject DC: 1240340 GDIObj: 10EC460
	464	+	TCocoaWidgetSet.SelectObject Result: 0
	465	+	TCocoaWidgetSet.SelectObject DC: 1240340 GDIObj: 10EBF00
	466	+	TCocoaWidgetSet.SelectObject Result: 0
	467	+	[TCocoaWidgetSet.Rectangle] DC: 1240340 X1: 100 Y1: 100 X2: 200 Y2: 200
	468	+	TCocoaWidgetSet.SelectObject DC: 1240340 GDIObj: 10EC4A0
	469	+	TCocoaWidgetSet.SelectObject Result: 0
	470	+	[TCocoaWidgetSet.GetTextExtentPoint] DC: 1240340 Str: Some text Count: 9
	471	+	[TCocoaWidgetSet.GetTextExtentPoint] Size: 65,17
	472	+	[TLCLCommonCallback.Draw] OnPaint event ended
	473	+	```
446	474
447	475		### Внедрение TLabel
448	476
449	477		Внедрить TLabel особенно сложно, несмотря на то, что он является этаким базовым компонентом, потому что это требует, чтобы была реализована почти вся отрисовка. TLabel не является оконным элементом управления, вместо этого он зависит от сообщений отрисовки, рисующих \[компонент\] непосредственно на холсте формы.
450	478
451	479		Прежде чем пытаться заставить работать TLabel, рекомендуется проверить, работают ли функции рисования, такие как Rectangle, внутри события OnPaint формы.
452	480
453	481		Необходимо реализовать несколько методов WinAPI, в частности:
454	482
455	483		Методы контекста устройства
456	484
457	485		BeginPaint, GetDC, EndPaint, ReleaseDC, CreateCompatibleDC
458	486
459	487		см. [[Device Contexts and GDI objects in the LCL interfaces\|Контексты устройств и объекты GDI в интерфейсах LCL]]
460	488
461	489		Методы объектов GDI
462	490
463	491		SelectObject, DeleteObject, CreateFontIndirect, CreateFontIndirectEx
464	492
465	493		Разные функции
466	494
467	495		InvalidateRect, GetClientBounds, SetWindowOrgEx
468	496
469	497		Методы рисования текста
470	498
471	499		DrawText.Вместо реализации DrawText можно также использовать стандартный TWidgetSet.DrawText, как это делают наборы виджетов Carbon и Cocoa. Но в этом случае необходимо, чтобы каждый реализовывал хотя бы GetTextMetrics, GetTextExtentPoint и ExtTextOut. Без GetTextMetrics форма с TLabel рухнет, потому что авторазмер не сможет рассчитать подходящий размер для TLabel.
472	500
473	501		Функции Region для определения, что элемент управления находится за другим
474	502
475	503		CombineRgn, CreateRectRgn, GetClipRGN, RectVisible
476	504
477	505		Ниже приведен порядок вызова процедур рисования в форме с одним TLabel, чтобы лучше понять последовательность рисования:
478	506
479	507		1 - GetDC вызывается один раз при запуске программного обеспечения с hWnd = 0
480	508		2 - Показывается форма
481	509		3 - GetDC вызывается снова (это не произошло бы без TLabel). Вызывается несколько функций, связанных со шрифтами, а также DrawText с CalcRect, установленным в True, чтобы вычислить размер TLabel.
482	510		4 - InvalidateRect вызывается на холсте формы
483	511		5 - Управление возвращается к операционной системе до тех пор, пока из набора виджетов не придет сообщение отрисовки
484	512		6 - Вызывается BeginPaint, и в этот момент будет выполнен код в событии OnPaint формы
485	513		7 - DrawText вызывается снова с CalcRect установленным в false
486	514		8 - Отрисовка закончена
487	515
488	516		### Реализация видимости для форм и элементов управления и состояния окна
489	517
490	518		Код, который управляет видимостью, разделен между видимостью для форм и для элементов управления.
491	519
492	520		#### Видимость для форм и состояния окна
493	521
494	522		Эта часть также управляет состоянием окна (свернуто, развернуто или нормально). Это реализовано как копия функции Windows API ShowWindow, поэтому вы должны реализовать TMyWidgetset.ShowWindow в файле mywinapi.inc. Не забудьте также добавить заголовок в файл mywinapih.inc.
495	523
496	524		Ниже приведен код, который реализует эту функцию в наборе виджетов Qt. Это должно \[помочь\] очень легко понять, скопировать и реализовать его на вашем собственном виджете. Вы также можете посмотреть, как это реализует Gtk. В Windows, конечно, API Windows вызывается напрямую, поэтому нет кода, на котором его можно \[продемонстрировать\].
497	525
498	526		``` pascal
499	527		{------------------------------------------------------------------------------
500	528		function ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean;
501	529
502	530		nCmdShow:
503	531		SW_SHOWNORMAL, SW_MINIMIZE, SW_SHOWMAXIMIZED
504	532		------------------------------------------------------------------------------}
505	533		function TQtWidgetSet.ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean;
506	534		var
507	535		Widget: QWidgetH;
508	536		begin
509	537		{$ifdef VerboseQtWinAPI}
510	538		WriteLn('WinAPI ShowWindow');
511	539		{$endif}
512	540
513	541		Result := False;
514	542
515	543		Widget := QWidgetH(hWnd);
516	544
517	545		// if Widget = nil then RaiseException('TQtWidgetSet.ShowWindow hWnd is nil');
518	546
519	547		case nCmdShow of
520	548		SW_SHOW: QWidget_setVisible(Widget, True);
521	549		SW_SHOWNORMAL: QWidget_showNormal(Widget);
522	550		SW_MINIMIZE: QWidget_setWindowState(Widget, QtWindowMinimized);
523	551		SW_SHOWMINIMIZED: QWidget_showMinimized(Widget);
524	552		SW_SHOWMAXIMIZED: QWidget_showMaximized(Widget);
525	553		SW_HIDE: QWidget_setVisible(Widget, False);
526	554		end;
527	555
528	556		Result := True;
529	557		end;
530	558		```
531	559
532	560		#### Видимость для элементов управления
533	561
534	562		Для элементов управления внутри формы вам необходимо реализовать функцию класса TMyWSWinControl.ShowHide, которая находится в классе TMyWSWinControl в файле mywscontrols.pp
535	563
536	564		Помните, что большинство элементов управления наследуются от TWinControl, поэтому реализация этой функции гарантирует, что свойство Visible реализовано для всех стандартных элементов управления, которые его имеют. Ниже приведен пример кода для набора виджетов Qt.
537	565
538	566		``` pascal
539	567		{------------------------------------------------------------------------------
540	568		Method: TQtWSWinControl.ShowHide
541	569		Params: AWinControl - the calling object
542	570
543	571		Returns: Nothing
544	572
545	573		Shows or hides a widget.
546	574		------------------------------------------------------------------------------}
547	575		class procedure TQtWSWinControl.ShowHide(const AWinControl: TWinControl);
548	576		begin
549	577		if AWinControl = nil then exit;
550	578
551	579		if not AWinControl.HandleAllocated then exit;
552	580
553	581		if AWinControl.HandleObjectShouldBeVisible then
554	582		QWidget_setVisible(TQtWidget(AWinControl.Handle).Widget, True)
555	583		else QWidget_setVisible(TQtWidget(AWinControl.Handle).Widget, False);
556	584		end;
557	585		```
558	586
559	587		### Реализация компонентов на основе TStrings
560	588
561	589		Некоторые компоненты используют TStrings для хранения отображаемой информации, например: TCustomMemo, TCustomListBox и TCustomComboBox.
562	590
563	591		Для их реализации недостаточно просто реализовать их функции, например, в классе TQtCustomMemo. Одна из реализуемых функций будет называться GetStrings и выглядеть следующим образом:
564	592
565	593		``` pascal
566	594		class function TQtWSCustomListBox.GetStrings(const ACustomListBox: TCustomListBox): TStrings;
567	595		var
568	596		ListWidgetH: QListWidgetH;
569	597		begin
570	598		ListWidgetH := QListWidgetH((TQtWidget(ACustomListBox.Handle).Widget));
571	599		Result := TQtListStrings.Create(ListWidgetH, ACustomListBox);
572	600		end;
573	601		```
574	602
575	603		Эта функция должна возвращать потомок TStrings, предназначенный для отслеживания, что строки добавляются или удаляются из списка, и отправлять эту информацию в набор виджетов для обновления элемента управления. Например, следующее объявление показывает, как выглядит TQtListStrings:
576	604
577	605		``` pascal
578	606		TQtListStrings = class(TStrings)
579	607		private
580	608		FListChanged: Boolean; // StringList и QtListWidget не синхронизированы
581	609		FStringList: TStringList; // Содержит пункты для показа
582	610		FQtListWidget: QListWidgetH; // Qt Widget
583	611		FOwner: TWinControl; // Lazarus'овский владелец элементов управления ListStrings
584	612		FUpdating: Boolean; // Мы меняем Qt Widget
585	613		procedure InternalUpdate;
586	614		procedure ExternalUpdate(var Astr: TStringList; Clear: Boolean = True);
587	615		procedure IsChanged; // событие OnChange, вызваемое действием программы
588	616		protected
589	617		function GetTextStr: string; override;
590	618		function GetCount: integer; override;
591	619		function Get(Index : Integer) : string; override;
592	620		//procedure SetSorted(Val : boolean); virtual;
593	621		public
594	622		constructor Create(ListWidgetH : QListWidgetH; TheOwner: TWinControl);
595	623		destructor Destroy; override;
596	624		procedure Assign(Source : TPersistent); override;
597	625		procedure Clear; override;
598	626		procedure Delete(Index : integer); override;
599	627		procedure Insert(Index : integer; const S: string); override;
600	628		procedure SetText(TheText: PChar); override;
601	629		//procedure Sort; virtual;
602	630		public
603	631		//property Sorted: boolean read FSorted write SetSorted;
604	632		property Owner: TWinControl read FOwner;
605	633		function ListChangedHandler(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
606	634		end;
607	635		```
608	636
609	637		Вы можете увидеть его реализацию в модуле qtobjects.pas интерфейса qt.
610	638
611	639		### Реализация меню
612	640
613	641		Меню доступны на LCL для создания основных меню или всплывающих меню. TMenu является владельцем более крупной структуры меню со многими пунктами. Элементы могут иметь подэлементы, и не нуждаются в дополнительном TMenus.
614	642
615	643		Также помните, что в LCL дескриптор создается только при необходимости, и в это время все свойства элементов управления уже инициализированы. Это очень помогает для наборов виджетов, где в зависимости от свойств элемента меню он может принадлежать к одному или другому классу, например, Qt.
616	644
617	645		Следующие вещи должны быть реализованы для того, чтобы меню работали:
618	646
619	647		1\) Все методы модуля QtWSMenus, которые будут реализовывать создание и изменение меню
620	648
621	649		2\) функция `TWinCEWidgetSet.SetMenu(AWindowHandle: HWND; AMenuHandle: HMENU): Boolean;` из файла wincewinapi.inc, в котором будет реализована поддержка главного меню, связанного с окном.
622	650
623	651		#### Порядок создания меню
624	652
625	653		При реализации меню важно понимать, в каком порядке они создаются. Например, мы хотим создать следующую структуру меню:
626	654
627	655		![](/wiki-images/6/69/Menu_creation_order.png)
628	656
629	657		И когда наше приложение будет выполнено, при каждом вызове TQtWSMenuItem.CreateHandle будет появляться сообщение 'Creating MenuItem'(Создание MenuItem) с заголовком меню и сообщение 'Creating Menu'(Создание меню) с названием меню (потомки TMenu не имеют подпись), каждый раз, когда вызывается TQtWSMenu.CreateHandle.
630	658
631	659		Вот результирующий вывод такого программного обеспечения:
632	660
633		-	~~` Creating Menu. Name: MainMenu1`\~~
634		-	~~` Creating MenuItem: Item1 Parent=Menu.Items : TMenuItem`\~~
635		-	~~` Creating MenuItem: SubItem11 Parent=Item1 : TMenuItem`\~~
636		-	~~` Creating MenuItem: SubItem12 Parent=Item1 : TMenuItem`\~~
637		-	~~` Creating MenuItem: SubItem13 Parent=Item1 : TMenuItem`\~~
638		-	~~` Creating MenuItem: SubItem14 Parent=Item1 : TMenuItem`\~~
639		-	~~` Creating MenuItem: SubSubItem141 Parent=SubItem14 : TMenuItem`\~~
640		-	~~` Creating MenuItem: SubSubItem142 Parent=SubItem14 : TMenuItem`\~~
641		-	~~` Creating MenuItem: SubSubItem143 Parent=SubItem14 : TMenuItem`\~~
642		-	~~` Creating MenuItem: SubSubItem144 Parent=SubItem14 : TMenuItem`\~~
643		-	~~` Creating MenuItem: Item2 Parent=Menu.Items : TMenuItem`\~~
644		-	~~` Creating MenuItem: SubItem21 Parent=Item2 : TMenuItem`\~~
645		-	~~` Creating MenuItem: SubItem22 Parent=Item2 : TMenuItem`\~~
646		-	~~` Creating MenuItem: SubItem23 Parent=Item2 : TMenuItem`\~~
647		-	~~` Creating MenuItem: Item3 Parent=Menu.Items : TMenuItem`\~~
648		-	~~` Creating MenuItem: Item4 Parent=Menu.Items : TMenuItem`~~
	661	+	```text
	662	+	Creating Menu. Name: MainMenu1
	663	+	Creating MenuItem: Item1 Parent=Menu.Items : TMenuItem
	664	+	Creating MenuItem: SubItem11 Parent=Item1 : TMenuItem
	665	+	Creating MenuItem: SubItem12 Parent=Item1 : TMenuItem
	666	+	Creating MenuItem: SubItem13 Parent=Item1 : TMenuItem
	667	+	Creating MenuItem: SubItem14 Parent=Item1 : TMenuItem
	668	+	Creating MenuItem: SubSubItem141 Parent=SubItem14 : TMenuItem
	669	+	Creating MenuItem: SubSubItem142 Parent=SubItem14 : TMenuItem
	670	+	Creating MenuItem: SubSubItem143 Parent=SubItem14 : TMenuItem
	671	+	Creating MenuItem: SubSubItem144 Parent=SubItem14 : TMenuItem
	672	+	Creating MenuItem: Item2 Parent=Menu.Items : TMenuItem
	673	+	Creating MenuItem: SubItem21 Parent=Item2 : TMenuItem
	674	+	Creating MenuItem: SubItem22 Parent=Item2 : TMenuItem
	675	+	Creating MenuItem: SubItem23 Parent=Item2 : TMenuItem
	676	+	Creating MenuItem: Item3 Parent=Menu.Items : TMenuItem
	677	+	Creating MenuItem: Item4 Parent=Menu.Items : TMenuItem
	678	+	```
649	679
650	680		Для всех MenuItems можно использовать GetParentMenu, чтобы получить владельца их родителя: Menu (TMainMenu).
651	681
652	682		### Включение/отключение элемента управления
653	683
654	684		Текущий способ установить включение/отключение элемента управления - реализация winapi EnableWindow. Этот API должен работать в общем на любом элементе управления. Он должен включать/отключать ввод с помощью мыши и клавиатуры для указанного окна или элемента управления, а также помечать его как недоступный для редактирования пользователем, например, делая его серым.
655	685
656	686		``` pascal
657	687		{------------------------------------------------------------------------------
658	688		Method: EnableWindow
659	689		Params: HWnd - handle to window / дескриптор окна
660	690		BEnable - whether to enable the window / нужно ли включать окно
661	691		Returns: If the window was previously disabled / возращаемый результат: если окно было ранее отключено
662	692
663	693		Enables or disables mouse and keyboard input to the specified window or
664	694		control / Включает или отключает ввод с клавиатуры и мыши в указанное окно или
665	695		элемент управления
666	696		------------------------------------------------------------------------------}
667	697		function TWin32WidgetSet.EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean;
668	698		```
669	699
670	700		### Фигурные окна
671	701
672	702		Окна могут быть сформированы на основе растрового изображения (TBitmap) или региона(TRegion). Регион является видимой частью
673	703
674	704		Чтобы реализовать фигурные окна на основе TBitmap, реализуйте TWSWinControl.setShape
675	705
676	706		Для реализации фигурных окон на основе TRegion реализуйте LCLIntf.SetWindowRgn
677	707
678	708		См.также: [[LCL Tips/ru\|Создание не прямоугольных окон или элементов управления]]
679	709
680	710		### Системные цвета
681	711
682	712		Некоторые константы цвета на самом деле являются системными цветами, такими как clBtnFace, clForm, clWindow и проч. и проч.
683	713
684	714		Для реализации поддержки системных цветов должна быть реализована подпрограмма WinAPI GetSysColor:
685	715
686	716		``` pascal
687	717		function GetSysColor(nIndex: Integer): DWORD; override;
688	718		```
689	719
690	720		А вот фрагмент цветовых констант, которые должны поддерживаться. Проверьте LCLType для последних значений:
691	721
692	722		``` pascal
693	723		//==============================================
694	724		// API system Color constants pbd
695	725		// note these are usually shown ORed with
696	726		// $80000000 as these would have interfered with
697	727		// other MS color enumerations
698	728		// GetSysColor and SetSysColor expects the values
699	729		// below
700	730		//==============================================
701	731
702	732		type
703	733		COLORREF = LongInt;
704	734		TColorRef = COLORREF;
705	735
706	736		const
707	737		CLR_INVALID = TColorRef($FFFFFFFF);
708	738
709	739		COLOR_SCROLLBAR = 0;
710	740		COLOR_BACKGROUND = 1;
711	741		COLOR_ACTIVECAPTION = 2;
712	742		COLOR_INACTIVECAPTION = 3;
713	743		COLOR_MENU = 4;
714	744		COLOR_WINDOW = 5;
715	745		COLOR_WINDOWFRAME = 6;
716	746		COLOR_MENUTEXT = 7;
717	747		COLOR_WINDOWTEXT = 8;
718	748		COLOR_CAPTIONTEXT = 9;
719	749		COLOR_ACTIVEBORDER = 10;
720	750		COLOR_INACTIVEBORDER = 11;
721	751		COLOR_APPWORKSPACE = 12;
722	752		COLOR_HIGHLIGHT = 13;
723	753		COLOR_HIGHLIGHTTEXT = 14;
724	754		COLOR_BTNFACE = 15;
725	755		COLOR_BTNSHADOW = 16;
726	756		COLOR_GRAYTEXT = 17;
727	757		COLOR_BTNTEXT = 18;
728	758		COLOR_INACTIVECAPTIONTEXT = 19;
729	759		COLOR_BTNHIGHLIGHT = 20;
730	760		COLOR_3DDKSHADOW = 21;
731	761		COLOR_3DLIGHT = 22;
732	762		COLOR_INFOTEXT = 23;
733	763		COLOR_INFOBK = 24;
734	764		// PBD: 25 is unassigned in all the docs I can find
735	765		// if someone finds what this is supposed to be then fill it in
736	766		// note defaults below, and cl[ColorConst] in graphics
737	767		COLOR_HOTLIGHT = 26;
738	768		COLOR_GRADIENTACTIVECAPTION = 27;
739	769		COLOR_GRADIENTINACTIVECAPTION = 28;
740	770		COLOR_MENUHILIGHT = 29;
741	771		COLOR_MENUBAR = 30;
742	772
743	773		COLOR_FORM = 31;
744	774
745	775		COLOR_ENDCOLORS = COLOR_FORM;
746	776
747	777		COLOR_DESKTOP = COLOR_BACKGROUND;
748	778		COLOR_3DFACE = COLOR_BTNFACE;
749	779		COLOR_3DSHADOW = COLOR_BTNSHADOW;
750	780		COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT;
751	781		COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT;
752	782		COLOR_BTNHILIGHT = COLOR_BTNHIGHLIGHT;
753	783
754	784		MAX_SYS_COLORS = COLOR_ENDCOLORS;
755	785		SYS_COLOR_BASE = TColorRef($80000000);
756	786		```
757	787
758	788		### ShowMessage
759	789
760	790		Эти стандартные диалоги реализованы исключительно в LCL в следующих местах:
761	791
762	792		- Файл класса TPromptDialog lcl/include/promptdialog.inc
763	793
764	794		### SpinEdit
765	795
766	796		И TFloatSpinEdit, и TSpinEdit реализованы в классе TWSFloatSpinEdit.
767	797
768	798		### Буфер обмена
769	799
770	800		Поддержка буфера обмена реализована в lclintf путем реализации подпрограмм Windows API. Это процедуры:
771	801
772	802		``` pascal
773	803		function ClipboardFormatToMimeType(FormatID: TClipboardFormat): string; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
774	804		function ClipboardGetData(ClipboardType: TClipboardType;
775	805		FormatID: TClipboardFormat; Stream: TStream): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
776	806		// ! ClipboardGetFormats: List будет создан. Вы должны освободить его самостоятельно с помощью FreeMem(List) !
777	807		function ClipboardGetFormats(ClipboardType: TClipboardType;
778	808		var Count: integer; var List: PClipboardFormat): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
779	809		function ClipboardGetOwnerShip(ClipboardType: TClipboardType;
780	810		OnRequestProc: TClipboardRequestEvent; FormatCount: integer;
781	811		Formats: PClipboardFormat): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
782	812		function ClipboardRegisterFormat(const AMimeType: string): TClipboardFormat; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
783	813		```
784	814
785	815		Последовательность вызовов при запуске программы:
786	816
787	817		``` pascal
788	818		TCocoaWidgetSet.ClipboardRegisterFormat AMimeType=image/bmp Result=51027040
789	819		TCocoaWidgetSet.ClipboardRegisterFormat AMimeType=image/delphi.bitmap Result=0
790	820		TCocoaWidgetSet.ClipboardRegisterFormat AMimeType=image/xpm Result=0
791	821		TCocoaWidgetSet.ClipboardRegisterFormat AMimeType=image/png Result=0
792	822		TCocoaWidgetSet.ClipboardRegisterFormat AMimeType=image/jpeg Result=0
793	823		```
794	824
795	825		Последовательность вызовов во время присвоения "Caption:= Clipboard.AsText":
796	826
797	827		``` pascal
798	828		TCocoaWidgetSet.ClipboardRegisterFormat AMimeType=text/plain Result=51026976
799	829		TCocoaWidgetSet.ClipboardGetData ClipboardType=clipboard FormatID: 51026976
800	830		```
801	831
802	832		### TSpeedButton
803	833
804	834		Этот элемент управления является потомком TGraphicControl, поэтому он не имеет дескриптора и рисуется сам. Чтобы сохранить собственный внешний вид, он использует функцию `ThemeServices.DrawElement(Details.Element=teButton)` для отрисовки самого себя, поэтому реализуйте эту функцию, чтобы этот элемент управления работал. Естественно, многие другие DC, WindowOrg, рисование текста и рисование должны работать, как объяснено для TLabel.
805	835
806	836		### TRadioButton и TCheckButton
807	837
808	838		Сообщения:
809	839
810	840		В основном Widgetset должен делать:
811	841
812	842		- Отправлять LM_CHANGE, когда радиокнопка не отмечена/отмечена (LCL позаботится о том, будет ли вызываться OnClick или нет)
813	843		- Не отправлять LM_CHANGE, когда вызывается TWSCustomCheckBox.SetState(SetChecked)
814	844
815	845		См. также этот отчет об ошибке: <http://bugs.freepascal.org/view.php?id=13939>
816	846
817	847		### Поддержка FullScreen
818	848
819	849		FullScreen(окно на весь экран без рамки - прим.перев.) реализован как состояние окна wsFullScreen и, как таковой, реализован в LCLIntf.ShowWindow, где должна обрабатываться константа SW_SHOWFULLSCREEN.
820	850
821	851		## Пример работы интерфейсов LCL
822	852
823	853		Ниже приведен простой пример. Предположим, вы разработали компонент trayicon. Как бы вы реализовали его в LCL для правильной работы на различных поддерживаемых платформах?
824	854
825	855		Вам нужно будет сгенерировать следующие файлы:
826	856
827	857		\trayicon.pas
828	858		\wstrayicon.pas
829	859		\gtk\gtkwstrayicon.pas
830	860		\gtk\trayintf.pas
831	861		\win32\win32wstrayicon.pas
832	862		\win32\trayintf.pas
833	863
834	864		Предоставление отдельных файлов wsXXX.pas и \\\$(LCLWidgetType)\XXXintf.pas полностью исключает необходимость использования ifdefs. Вам нужно будет добавить в качестве пути модуля \$(LCLWidgetType) в файл XXXintf.pas, чтобы инициализировать корректный файл trayintf.pas, который, в свою очередь, инициализирует корректный класс WS Tray.
835	865
836	866		Внутри trayicon.pas вы включаете wstrayicon. Извлеките свой основной класс из класса LCL и используйте только wstrayicon в его реализации. Все классы LCL, которые взаимодействуют с набором виджетов, должны быть получены из [[doc:/lcl/lclclasses/tlclcomponent.html\|TLCLComponent]], объявленного в модуле [[doc:/lcl/lclclasses\|LCLClasses]].
837	867
838	868		``` pascal
839	869		unit TrayIcon;
840	870
841	871		interface
842	872
843	873		type
844	874		TTrayIcon = class(TLCLComponent)
845	875		public
846	876		procedure DoTray;
847	877		end;
848	878
849	879		implementation
850	880
851	881		uses wstrayicon;
852	882
853	883		procedure TTrayIcon.DoTray;
854	884		begin
855	885		// вызов wstrayicon
856	886		end;
857	887
858	888		end.
859	889		```
860	890
861	891		в trayintf вы используете gtkwstrayicon или win32trayicon, в зависимости от того, какой это файл trayintf.
862	892
863	893		в wstrayicon вы создаете класс следующим образом:
864	894
865	895		``` pascal
866	896		unit WSTrayIcon;
867	897
868	898		uses WSLCLClasses, Controls, TrayIcon; // и другие модули
869	899
870	900		TWSTrayIconClass = class of TWSTrayIcon;
871	901		TWSTrayIcon = class(TWSWinControl);
872	902		public
873	903		// все они должны быть виртуальными и классовыми процедурами !!
874	904		class procedure EmbedTrayIcon(const ATrayIcon: TCustomTrayIcon); virtual;
875	905		class procedure RemoveTrayIcon(const ATrayIcon: TCustomTrayIcon); virtual;
876	906		....
877	907		end;
878	908		...
879	909
880	910		implementation
881	911
882	912		procedure TWSTrayIcon.EmbedTrayIcon(const ATrayIcon: TCustomTrayIcon);
883	913		begin
884	914		//ничего не делаем
885	915		end;
886	916
887	917		procedure TWSTrayIcon.RemoveTrayIcon(const ATrayIcon: TCustomTrayIcon);
888	918		begin
889	919		//ничего не делаем
890	920		end;
891	921		```
892	922
893	923		теперь в gtkwstrayicon.pas сделайте так:
894	924
895	925		``` pascal
896	926		uses WSTrayIcon, WSLCLClasses, Controls, TrayIcon, gtk, gdk;
897	927
898	928		TGtkWSTrayIcon = class(TWSTrayIcon);
899	929		private
900	930		class function FindSystemTray(const ATrayIcon: TCustomTrayIcon): TWindow; virtual;public
901	931		class procedure EmbedTrayIcon(const ATrayIcon: TCustomTrayIcon); override;
902	932		class procedure RemoveTrayIcon(const ATrayIcon: TCustomTrayIcon); override;
903	933		class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override;
904	934		....
905	935		end;
906	936		...
907	937
908	938		implementation
909	939
910	940		procedure TGtkWSTrayIcon.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
911	941		var
912	942		WidgetInfo: PWidgetInfo;
913	943		begin
914	944		Result := gtk_plug_new;
915	945		WidgetInfo := CreateWidgetInfo(AWinControl, Result); // как-то так или иначе
916	946		TGtkWSWincontrolClass(WidgetSetClass).SetCallbacks(AWinControl);
917	947		// и многое другое
918	948		end;
919	949
920	950		function TGtkWSTrayIcon.FindSystemTray(const ATrayIcon:
921	951		TCustomTrayIcon): TWindow;
922	952		begin
923	953		// что-то делаем
924	954		end;
925	955
926	956		procedure TGtkWSTrayIcon.EmbedTrayIcon(const ATrayIcon: TCustomTrayIcon);
927	957		var
928	958		SystemTray: TWindow;
929	959		begin
930	960		SystemTray := FindSystemTray(ATrayIcon);
931	961		//что-то делаем
932	962		end;
933	963
934	964		procedure TGtkWSTrayIcon.RemoveTrayIcon(const ATrayIcon: TCustomTrayIcon);
935	965		begin
936	966		//что-то делаем
937	967		end;
938	968
939	969		......
940	970
941	971		initialization
942	972
943	973		RegisterWSComponent(TCustomTrayIcon, TGtkWSTrayIcon); //вот это очень важно!!!
944	974
945	975		end.
946	976		```
947	977
948	978		затем наконец-то в trayicon.pas вы пишете как обычно
949	979
950	980		``` pascal
951	981		uses WSTrayIcon; //и т.д., вы НЕ включаете сюда GtkWSTrayIcon!
952	982
953	983		TCustomTrayIcon = class(TWinControl)
954	984		public
955	985		procedure EmbedControl;
956	986		....
957	987		end;
958	988
959	989		...
960	990		procedure TTrayIcon.EmbedControl;
961	991		begin
962	992		TWSTrayIconClass(WidgetSetClass).EmbedControl(Self);
963	993		end;
964	994		```
965	995
966	996		------------------------------------------------------------------------
967	997
968	998		Этот документ находится в стадии разработки. Вы можете помочь, написав разделы этого документа. Если вы не можете найти информацию, которую вы ищете в этом документе, пожалуйста, добавьте свой вопрос на страницу обсуждения. Это поможет нам писать документацию на уровне, который не является ни слишком простым, ни слишком сложным, и полностью охватывает области, о которых люди хотят знать.
969	999
970	1000		---
971	1001		From the Free Pascal wiki, page "LCL Internals/ru", as it stood on 2020-02-19 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