BGRABitmap tutorial 4/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 acceder directamente a los píxeles.
2	2
3	3		### Crear un nuevo proyecto
4	4
5	5		Crea un nuevo proyecto y añade referencia a [[BGRABitmap]], de la misma forma que en [[BGRABitmap tutorial/es\|la primer tutoría]].
6	6
7	7		### Añade un manejador de pintado
8	8
9	9		Con el inspector de objetos, añade un manejador OnPaint y escribe :
10	10
11	11		``` pascal
12	12		procedure TForm1.FormPaint(Sender: TObject);
13	13		var x,y: integer;
14	14		p: PBGRAPixel;
15	15		image: TBGRABitmap;
16	16		begin
17	17		image := TBGRABitmap.Create(ClientWidth,ClientHeight);
18	18
19	19		for y := 0 to image.Height-1 do
20	20		begin
21	21		p := image.Scanline[y];
22	22		for x := 0 to image.Width-1 do
23	23		begin
24	24		p^.red := x*256 div image.Width;
25	25		p^.green := y*256 div image.Height;
26	26		p^.blue := 0;
27	27		p^.alpha := 255;
28	28		inc(p);
29	29		end;
30	30		end;
31	31		image.InvalidateBitmap; // cambiado para acceso directo
32	32
33	33		image.Draw(Canvas,0,0,True);
34	34		image.free;
35	35		end;
36	36		```
37	37
38	38		Este procedimiento crea un bitmap del mismo tamaño que el disponible en el espacio del cliente. Luego el 'loop' accede directamente a los datos del píxel para renderizar un degradado bidimensional. Finalmente la imágen es dibujada y liberada.
39	39
40	40		Para acceder a los datos del bitmap, también puedes usar Data, si no interesa el orden de líneas, o ScanLine para acceder a una línea específica. Con una línea, los píxeles son ordenados de izquierda a derecha. Cada componente es definido. Por ejemplo :
41	41
42	42		``` pascal
43	43		p^.red := x*256 div image.Width;
44	44		```
45	45
46	46		Define un componente rojo variando de 0 a 255 de izquierda a derecha. El valor máximo de image.Width nunca es alcanzado por x, entonces el componente rojo nunca alcanza 256.
47	47
48	48		### Ejecuta el programa
49	49
50	50		Deberías ver una forma con un degradado, donde las esquinas son negro, rojo, amarillo y verde. Cuando redimensionas la forma, el gradiente es redimensionado en consecuencia.
51	51
52		-	~~<figure>~~
53		-	~~<img src="BGRATutorial4.png" title="BGRATutorial4.png" />~~
54		-	~~<figcaption>BGRATutorial4.png</figcaption>~~
55		-	~~</figure>~~
	52	+	![](/wiki-images/8/8b/BGRATutorial4.png)
56	53
57	54		### Usando espacio de color HSLA
58	55
59	56		Puedes usar matiz, saturación y luminosidad. Para hacer esto, declara un THSLAPixel. Su rango de valores va desde 0 0a 65535. Para convertirlo en un píxel estándar RBG, usa HSLAToBGRA.
60	57
61	58		``` pascal
62	59		procedure TForm1.FormPaint(Sender: TObject);
63	60		var x,y: integer;
64	61		p: PBGRAPixel;
65	62		image: TBGRABitmap;
66	63		hsla: THSLAPixel;
67	64		begin
68	65		image := TBGRABitmap.Create(ClientWidth,ClientHeight);
69	66		hsla.lightness := 32768;
70	67		hsla.alpha := 65535;
71	68		for y := 0 to image.Height-1 do
72	69		begin
73	70		p := image.Scanline[y];
74	71		hsla.saturation := y*65536 div image.Height;
75	72		for x := 0 to image.Width-1 do
76	73		begin
77	74		hsla.hue := x*65536 div image.Width;
78	75		p^:= HSLAToBGRA(hsla);
79	76		inc(p);
80	77		end;
81	78		end;
82	79		image.InvalidateBitmap; // cambiado para acceso directo
83	80
84	81		image.Draw(Canvas,0,0,True);
85	82		image.free;
86	83		end;
87	84		```
88	85
89		-	~~<figure>~~
90		-	~~<img src="BGRATutorial4b.png" title="BGRATutorial4b.png" />~~
91		-	~~<figcaption>BGRATutorial4b.png</figcaption>~~
92		-	~~</figure>~~
	86	+	![](/wiki-images/1/1b/BGRATutorial4b.png)
93	87
94	88		[[BGRABitmap tutorial 3/es\|Tutoría anterior (dibujando con el ratón)]] \\| [[BGRABitmap tutorial 5/es\|Siguiente tutoría (capas y máscaras)]]
95	89
96	90		---
97	91		From the Free Pascal wiki, page "BGRABitmap tutorial 4/es", as it stood on 2020-02-10 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).
98	92		Category: Castellano
99	93		Category: Español

Back to history