Accessing the Interfaces directly/pt: what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | - | ||
| 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 | 2 | ||
| 3 | + | ## Contents | |
| 4 | + | ||
| 5 | + | * 1 Visão Geral | |
| 6 | + | * 2 Detalhes de cada Widgetset | |
| 7 | + | * 2.1 Qt | |
| 8 | + | * 2.2 Carbon | |
| 9 | + | * 2.3 Windows | |
| 10 | + | * 3 List of Handles on various LCL classes | |
| 11 | + | * 3.1 TFont | |
| 12 | + | * 3.2 TCanvas | |
| 13 | + | * 3.3 TBrush | |
| 14 | + | * 3.4 TBitmap | |
| 15 | + | * 3.5 TCustomForm | |
| 16 | + | * 3.6 TMenu, TMainMenu, TMenuItem and TPopUpMenu | |
| 17 | + | ||
| 3 | 18 | ## Visão Geral | |
| 4 | 19 | ||
| 5 | - | ||
| 20 | + | 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 | 21 | ||
| 7 | - | ||
| 8 | - | ||
| 9 | - | ||
| 10 | - | ||
| 22 | + | * em Gtk um handle é freqüentemente um PGtkWidget. | |
| 23 | + | * em Windows um handle é freqüentemente um HWnd. | |
| 24 | + | * em Carbon um handle é freqüentemente um objeto descendente de TCarbonWidget. | |
| 25 | + | * em Qt um handle é freqüentemente um ponteiro para um objeto descendente de TQtWidget. | |
| 11 | 26 | ||
| 12 | 27 | ## Detalhes de cada Widgetset | |
| 13 | 28 | ||
| 14 | 29 | ### Qt | |
| 15 | 30 | ||
| 16 | - | ||
| 17 | - | ||
| 18 | - | ||
| 19 | - | ||
| 20 | - | ||
| 31 | + | 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. | |
| 21 | 32 | ||
| 33 | + | A maior parte dos objetos é descendente de TQtWidget, como declarado abaixo: | |
| 34 | + | ``` | |
| 35 | + | { TQtWidget } | |
| 36 | + | ||
| 22 | 37 | TQtWidget = class(TObject) | |
| 23 | 38 | private | |
| 24 | 39 | public | |
| 25 | 40 | Widget: QWidgetH; | |
| 26 | 41 | LCLObject: TWinControl; | |
| 27 | 42 | end; | |
| 43 | + | ``` | |
| 28 | 44 | ||
| 29 | - | ||
| 45 | + | Note as duas variáveis que todos eles contêm: | |
| 30 | 46 | ||
| 31 | - | ||
| 32 | - | ||
| 47 | + | * Widget - Esta é uma conexão ao objeto do Qt para este Widget | |
| 48 | + | * LCLObject - É uma ponte com o objeto da LCL a que ele está vinculado. | |
| 33 | 49 | ||
| 34 | 50 | ### Carbon | |
| 35 | 51 | ||
| 36 | - | ||
| 37 | - | ||
| 38 | - | ||
| 39 | - | ||
| 52 | + | Handles em Carbon são muito similares aos do Qt. As classes do helper são descendentes da classe abstrata TCarbonWidget. | |
| 53 | + | ``` | |
| 54 | + | { TCarbonWidget } | |
| 55 | + | ||
| 40 | 56 | TCarbonWidget = class(TObject) | |
| 41 | 57 | private | |
| 42 | 58 | public | |
| 43 | 59 | Widget: Pointer; | |
| 44 | 60 | LCLObject: TWinControl; | |
| 45 | 61 | end; | |
| 62 | + | ``` | |
| 46 | 63 | ||
| 47 | - | ||
| 64 | + | Note as duas variáveis que todos eles contêm: | |
| 48 | 65 | ||
| 49 | - | ||
| 50 | - | ||
| 66 | + | * Widget - Esta é uma conexão com o objeto do Carbon para este Widget:ControlRef (descendentes de TCarbonControl) ou WindowRef (descendentes de TCarbonWindow). | |
| 67 | + | * LCLObject - É uma ponte com o objeto da LCL a que ele está vinculado. | |
| 51 | 68 | ||
| 52 | 69 | ### Windows | |
| 53 | 70 | ||
| 54 | - | ||
| 71 | + | 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 | 72 | ||
| 56 | 73 | ## List of Handles on various LCL classes | |
| 57 | 74 | ||
| 58 | 75 | ### TFont | |
| 59 | 76 | ||
| 60 | - | ||
| 61 | - | ||
| 62 | - | ||
| 77 | + | * Win32, WinCE: HFONT | |
| 78 | + | * Qt: Um objeto TQtFont de qtprivate.pas | |
| 79 | + | * Carbon: Um objeto TCarbonFont de carbongdiobjects.pp | |
| 63 | 80 | ||
| 64 | 81 | ### TCanvas | |
| 65 | 82 | ||
| 66 | - | ||
| 67 | - | ||
| 68 | - | ||
| 69 | - | ||
| 70 | - | ||
| 71 | - | ||
| 83 | + | * Win32, WinCE: HDC | |
| 84 | + | * Gtk: Um objeto TDeviceContext de gtkdef.pp | |
| 85 | + | * Você pode can pegar um drawable, por exemplo com: TDeviceContext(MyCanvas.Handle).Drawable | |
| 86 | + | * Qt: Um objeto TQtDeviceContext de qtprivate.pas | |
| 87 | + | * Carbon: Um objeto TCarbonDeviceContext de carboncanvas.pp | |
| 88 | + | * O handle nativo pode ser accessado com TCarbonDeviceContext(MyCanvas.Handle).CGContext de tipo CGContextRef | |
| 72 | 89 | ||
| 73 | 90 | ### TBrush | |
| 74 | 91 | ||
| 75 | - | ||
| 76 | - | ||
| 77 | - | ||
| 92 | + | * Win32, WinCE: HBRUSH | |
| 93 | + | * Qt: Um objeto TQtBrush de qtprivate.pas | |
| 94 | + | * Carbon: Um objeto TCarbonBrush de carbongdiobjects.pp | |
| 78 | 95 | ||
| 79 | 96 | ### TBitmap | |
| 80 | 97 | ||
| 81 | - | ||
| 82 | - | ||
| 83 | - | ||
| 84 | - | ||
| 85 | - | ||
| 86 | - | ||
| 98 | + | * Win32, WinCE: HBITMAP | |
| 99 | + | * Gtk: PGDIObject (definido na unidade GtkDef) | |
| 100 | + | * Qt: Um objeto TQtImage de qtobjects.pas unit | |
| 101 | + | * Carbon: Um objeto TCarbonBitmap de carbongdiobjects.pp | |
| 87 | 102 | ||
| 88 | - | ||
| 103 | + | Você pode acessar isto no Gtk fazendo: | |
| 104 | + | ``` | |
| 105 | + | var | |
| 89 | 106 | GDIObject: PGDIObject; | |
| 90 | 107 | Bitmap: TBitmap; | |
| 91 | 108 | AImage: PGtkWidget; | |
| 92 | 109 | begin | |
| 93 | 110 | ... | |
| 94 | - | ||
| 95 | - | ||
| 96 | - | ||
| 97 | - | ||
| 111 | + | ||
| 112 | + | GDIObject := PgdiObject(Bitmap.Handle); | |
| 113 | + | ||
| 114 | + | AImage := gtk_image_new_from_pixmap(GDIObject^.GDIPixmapObject, | |
| 98 | 115 | GDIObject^.GDIBitmapMaskObject); | |
| 99 | - | ||
| 116 | + | ||
| 100 | 117 | gtk_widget_show(AImage); | |
| 101 | - | ||
| 118 | + | ||
| 102 | 119 | gtk_container_add(GTK_CONTAINER(MyForm.Handle), AImage); | |
| 103 | 120 | end; | |
| 121 | + | ``` | |
| 104 | 122 | ||
| 105 | 123 | ### TCustomForm | |
| 106 | 124 | ||
| 107 | - | ||
| 108 | - | ||
| 109 | - | ||
| 125 | + | * Win32, WinCE: it´s a HWND, um handle de janela nativo | |
| 126 | + | * Gtk: É um ponteiro para uma estrutura. | |
| 127 | + | * 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 | 128 | ||
| 111 | - | ||
| 129 | + | TQtMainWindow(Handle).Widget | |
| 112 | 130 | ||
| 113 | - | ||
| 131 | + | * Carbon: TCarbonWindow de carbonprivate.pp | |
| 114 | 132 | ||
| 115 | 133 | ### TMenu, TMainMenu, TMenuItem and TPopUpMenu | |
| 116 | 134 | ||
| 117 | - | ||
| 118 | - | ||
| 119 | - | ||
| 135 | + | * Win32, WinCE : HMENU | |
| 136 | + | * 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. | |
| 137 | + | * Carbon: TMenuItem é um objeto TCarbonMenu, TMenu (TMainMenu e TPopupMenu) é representado pelo seu item de menu raiz. | |
| 120 | 138 | ||
| 121 | 139 | --- | |
| 122 | - | ||
| 123 | - | ||
| 140 | + | *From the Free Pascal wiki, page "Accessing the Interfaces directly/pt", as the Internet Archive kept it on 2024-03-08. 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).* |