BGRABitmap tutorial 1/es: what changed

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

Old	New		Line
1	1		Esta tutoría muestra como usar la librería [[BGRABitmap]].
2	2
3	3		### Crear un nuevo proyecto
4	4
5	5		Crea una aplicación gráfica con el menú Proyecto \> Nuevo proyecto.
6	6
7	7		La unidad principal debería verse como esto :
8	8
9	9		``` pascal
10	10		unit UMain;
11	11
12	12		{$mode objfpc}{$H+}
13	13
14	14		interface
15	15
16	16		uses
17	17		Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs;
18	18
19	19		type
20	20
21	21		{ TForm1 }
22	22
23	23		TForm1 = class(TForm)
24	24		private
25	25		{ private declarations }
26	26		public
27	27		{ public declarations }
28	28		end;
29	29
30	30		var
31	31		Form1: TForm1;
32	32
33	33		implementation
34	34
35	35		initialization
36	36		{$I UMain.lrs}
37	37
38	38		end.
39	39		```
40	40
41	41		Si no la encuentras usa Ctrl-F12 para mostrar la lista de archivos.
42	42
43	43		Guarda tu proyecto en una carpeta siguiente a la librería BGRABitmap con el menú Archivo \> Guardar todo (no necesariamente en la misma carpeta).
44	44
45	45		### Agrega referencia a BGRABitmap
46	46
47	47		En la unidad añade referencia a BGRABitmap y a BGRABitmapTypes luego de 'Dialogs'.
48	48
49	49		``` pascal
50	50		uses
51	51		Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
52	52		BGRABitmap, BGRABitmapTypes;
53	53		```
54	54
55	55		Luego tienes que hacer el proyecto dependiente de las unidades de BGRABitmap. Hay dos formas.
56	56
57	57		#### Mediante la instalación del paquete BGRABitmap
58	58
59	59		Abre bgrabitmappack.lpk y haz clic en instalar. Un dialogo se muestra preguntando si el paquete debe ser agregado a Lazarus y si es necesario compilarlo nuevamente. Elije Si dos veces.
60	60
61	61		Si todo sale bien, Lazarus se reinicia y las unidades de BGRABitmap están disponibles. Si esto no funciona, puedes simplemente añadir BGRABitmap a la ruta de búsqueda sin tener que compilar Lazarus.
62	62
63	63		#### Añadiendo las unidades de BGRABitmap a la ruta de búsqueda
64	64
65	65		La otra forma es agregar las unidades de BGRABitmap a la ruta de búsqueda del proyecto. Para hacer esto, ve a las opciones del compilador con el menú Proyecto \> Opciones del proyecto. En Opciones del Compilador \> Rutas \> Otros archivos de unidad agrega BGRABitmap. Por ejemplo, si BGRABitmap esta en una carpeta siguiente a tu proyecto, la ruta relativa puede ser "..\BGRABitmap".
66	66
67	67		Si copias los archivos de BGRABitmap en la misma carpeta de tu proyecto, entonces no necesitas agregar esa ruta de busqueda. Pero no es recomendado porque si tienes multiples proyectos usando la librería puede volverse repetitiva la tarea de actualizar la nueva versión de la librería.
68	68
69	69		Si estás perdido con la ruta relativa, puedes también agregar la ruta relativa añadiendo la unidad BGRABitmap en tu proyecto. Para hacer eso, abre con tu proyecto el archivo bgrabitmap.pas. Luego usa el menú Proyecto \> Añadir archivo al proyecto. Lazarus preguntará si quieres agregar el archivo al proyecto y al nuevo directorio al proyecto.
70	70
71	71		### Agrega algunos dibujos
72	72
73	73		Agrega un evento de pintado. Para hacer esto haz clic en la Forma (Form) luego ve al inspector de objetos, en la pestaña de eventos haz doble clic en el evento OnPaint. Lazarus agregará automáticamente un manejador FormPaint a la unidad principal. Agrega por ejemplo el siguiente código dentro:
74	74
75	75		``` pascal
76	76		procedure TForm1.FormPaint(Sender: TObject);
77	77		var bmp: TBGRABitmap;
78	78		begin
79	79		bmp := TBGRABitmap.Create(ClientWidth, ClientHeight, BGRABlack);
80	80		bmp.FillRect(20, 20, 100, 40, BGRA(255,192,0), dmSet); //rellena un rectángulo naranja
81	81		bmp.Draw(Canvas, 0, 0, True); //renderiza el BGRABitmap en la Forma
82	82		bmp.Free; //libera la memoria
83	83		end;
84	84		```
85	85
86	86		Como puedes ver, necesitas definir una variable TBGRABitmap y crearla. Hay diferentes constructores para TBGRABitmap. El primero usado aquí crea un bitmap de tamaño ClientWidth x ClientHeiht rellenado con negro. ClientWidth y ClientHeight son propiedades de forma que regresan el espacio disponible para dibujar dentro de la forma.
87	87
88	88		El procedimiento FillRect toma parametros similares para dibujar un rectángulo, esto es la esquina superior-izquierda seguido por la esquina inferior-derecha mas 1. Esto significa que el pixel a (100,40) es excluido del rectángulo.
89	89
90	90		Luego de eso, hay un parámetro color con componentes rojo/verde/azul y un modo de dibujo. dmSet significa que simplemente reemplaza los píxeles.
91	91
92	92		No olvides liberar el objeto luego de usarlo, para evitar pérdida de memoria.
93	93
94	94		### Código resultante
95	95
96	96		Deberías obtener el siguiente código:
97	97
98	98		``` pascal
99	99		unit UMain;
100	100
101	101		{$mode objfpc}{$H+}
102	102
103	103		interface
104	104
105	105		uses
106	106		Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
107	107		BGRABitmap, BGRABitmapTypes;
108	108
109	109		type
110	110
111	111		{ TForm1 }
112	112
113	113		TForm1 = class(TForm)
114	114		procedure FormPaint(Sender: TObject);
115	115		private
116	116		{ private declarations }
117	117		public
118	118		{ public declarations }
119	119		end;
120	120
121	121		var
122	122		Form1: TForm1;
123	123
124	124		implementation
125	125
126	126		{ TForm1 }
127	127
128	128		procedure TForm1.FormPaint(Sender: TObject);
129	129		var bmp: TBGRABitmap;
130	130		begin
131	131		bmp := TBGRABitmap.Create(ClientWidth,ClientHeight,BGRABlack);
132	132		bmp.FillRect(20,20,100,40,BGRA(255,192,0),dmSet);
133	133		bmp.Draw(Canvas,0,0,True);
134	134		bmp.Free;
135	135		end;
136	136
137	137		initialization
138	138		{$I UMain.lrs}
139	139
140	140		end.
141	141		```
142	142
143	143		### Ejecuta el programa
144	144
145	145		Deberías obtener una ventana rellenada en negro con un rectángulo naranja en ella.
146	146
147		-	~~<figure>~~
148		-	~~<img src="BGRATutorial1.png" title="BGRATutorial1.png" />~~
149		-	~~<figcaption>BGRATutorial1.png</figcaption>~~
150		-	~~</figure>~~
	147	+	![](/wiki-images/e/ea/BGRATutorial1.png)
151	148
152	149		[[BGRABitmap tutorial 2/es\|Siguiente tutoría (cargar imágen)]]
153	150
154	151		---
155	152		From the Free Pascal wiki, page "BGRABitmap tutorial 1/es", as it stood on 2020-02-09 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).
156	153		Category: Castellano
157	154		Category: Español

Back to history