Accessing the Interfaces directly/pt: what changed

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

Title: Accessing the Interfaces directly/pt

New		Line
1	+	Esta página descreve como ter acesso direto de escrita ao widgeset subjacente usado pelo Lazarus (por exemplo: a API do Windows, ou GTK ou QT, etc). Pode-se sempre tentar evitar de confiar nas especifidades do widgeset. Este documento está aqui para as pessoas melhorarem o widgeset e para quem escreve componentes e realmente precisa acessar os widgeset diretamente.
2	+
3	+	## Visão Geral
4	+
5	+	Cada TWinControl tem um handle e a LCL não precisa saber o que é um handle. O significado de um handle é totalmente assunto da interface:
6	+
7	+	- em Gtk um handle é freqüentemente um PGtkWidget.
8	+	- em Windows um handle é freqüentemente um HWnd.
9	+	- em Carbon um handle é freqüentemente um objeto descendente de TCarbonWidget.
10	+	- em Qt um handle é freqüentemente um ponteiro para um objeto descendente de TQtWidget.
11	+
12	+	## Detalhes de cada Widgetset
13	+
14	+	### Qt
15	+
16	+	Handles em Qt são na maioria ponteiros para objetos. Toda vez que um controle é criado, um objeto de ajuda é também criado e os dois são conectados. O objeto de ajuda é necessário para receber eventos do Qt. Depois de receber um evento, ele vai enviá-lo para a LCL.
17	+
18	+	A maior parte dos objetos é descendente de TQtWidget, como declarado abaixo:
19	+
20	+	{ TQtWidget }
21	+
22	+	TQtWidget = class(TObject)
23	+	private
24	+	public
25	+	Widget: QWidgetH;
26	+	LCLObject: TWinControl;
27	+	end;
28	+
29	+	Note as duas variáveis que todos eles contêm:
30	+
31	+	- Widget - Esta é uma conexão ao objeto do Qt para este Widget
32	+	- LCLObject - É uma ponte com o objeto da LCL a que ele está vinculado.
33	+
34	+	### Carbon
35	+
36	+	Handles em Carbon são muito similares aos do Qt. As classes do helper são descendentes da classe abstrata TCarbonWidget.
37	+
38	+	{ TCarbonWidget }
39	+
40	+	TCarbonWidget = class(TObject)
41	+	private
42	+	public
43	+	Widget: Pointer;
44	+	LCLObject: TWinControl;
45	+	end;
46	+
47	+	Note as duas variáveis que todos eles contêm:
48	+
49	+	- Widget - Esta é uma conexão com o objeto do Carbon para este Widget:ControlRef (descendentes de TCarbonControl) ou WindowRef (descendentes de TCarbonWindow).
50	+	- LCLObject - É uma ponte com o objeto da LCL a que ele está vinculado.
51	+
52	+	### Windows
53	+
54	+	Handles em Win32 ou WinCE são quase sempre o mesmo que os seus handles relativos da API. Por exemplo, um handle de TMenu é HMENU, um handle de TBrush é HBRUSH, portanto você pode facilmente usá-los e passá-los para as APIs.
55	+
56	+	## List of Handles on various LCL classes
57	+
58	+	### TFont
59	+
60	+	- Win32, WinCE: HFONT
61	+	- Qt: Um objeto TQtFont de qtprivate.pas
62	+	- Carbon: Um objeto TCarbonFont de carbongdiobjects.pp
63	+
64	+	### TCanvas
65	+
66	+	- Win32, WinCE: HDC
67	+	- Gtk: Um objeto TDeviceContext de gtkdef.pp
68	+	- Você pode can pegar um drawable, por exemplo com: TDeviceContext(MyCanvas.Handle).Drawable
69	+	- Qt: Um objeto TQtDeviceContext de qtprivate.pas
70	+	- Carbon: Um objeto TCarbonDeviceContext de carboncanvas.pp
71	+	- O handle nativo pode ser accessado com TCarbonDeviceContext(MyCanvas.Handle).CGContext de tipo CGContextRef
72	+
73	+	### TBrush
74	+
75	+	- Win32, WinCE: HBRUSH
76	+	- Qt: Um objeto TQtBrush de qtprivate.pas
77	+	- Carbon: Um objeto TCarbonBrush de carbongdiobjects.pp
78	+
79	+	### TBitmap
80	+
81	+	- Win32, WinCE: HBITMAP
82	+	- Gtk: PGDIObject (definido na unidade GtkDef)
83	+	- Qt: Um objeto TQtImage de qtobjects.pas unit
84	+	- Carbon: Um objeto TCarbonBitmap de carbongdiobjects.pp
85	+
86	+	Você pode acessar isto no Gtk fazendo:
87	+
88	+	var
89	+	GDIObject: PGDIObject;
90	+	Bitmap: TBitmap;
91	+	AImage: PGtkWidget;
92	+	begin
93	+	...
94	+
95	+	GDIObject := PgdiObject(Bitmap.Handle);
96	+
97	+	AImage := gtk_image_new_from_pixmap(GDIObject^.GDIPixmapObject,
98	+	GDIObject^.GDIBitmapMaskObject);
99	+
100	+	gtk_widget_show(AImage);
101	+
102	+	gtk_container_add(GTK_CONTAINER(MyForm.Handle), AImage);
103	+	end;
104	+
105	+	### TCustomForm
106	+
107	+	- Win32, WinCE: it´s a HWND, um handle de janela nativo
108	+	- Gtk: É um ponteiro para uma estrutura.
109	+	- Qt: O handle é um ponteiro para um objeto da classe TQtMainWindow declarada em qtwidgets.pas. Para ter acess ao objeto do Qt TQtMainWindow significa faça:
110	+
111	+	TQtMainWindow(Handle).Widget
112	+
113	+	- Carbon: TCarbonWindow de carbonprivate.pp
114	+
115	+	### TMenu, TMainMenu, TMenuItem and TPopUpMenu
116	+
117	+	- Win32, WinCE : HMENU
118	+	- Qt: TMainMenu é um ponteiro para um objeto TQtMenuBar. TPopUpMenu é um objeto TQtMenu. TMenuItem pode ser um TQtAction se representa um item selecionável, ou um separador ou um TQtMenu se é um item que tem submenus.
119	+	- Carbon: TMenuItem é um objeto TCarbonMenu, TMenu (TMainMenu e TPopupMenu) é representado pelo seu item de menu raiz.
120	+
121	+	---
122	+	From the Free Pascal wiki, page "Accessing the Interfaces directly/pt", as it stood on 2012-02-03 after a change by Chronos, 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).
123	+	Category: LCL/pt

Back to history