Problemas con TCanvas.Pixels en la posición [0, 0]
 

Buenas gente.

He estado buscando sobre este problema en la web, pero parece que soy el único al que le pasa... Así que pregunto por si a ustedes les ha pasado lo mismo.

Hace unos años hice un programita que trabaja con la propiedad Pixels de TCanvas. El otro día lo fui a usar y la cosa no funcionaba. Al ponerme a investigar me di cuenta de que NO ASIGNA los valores en la posición [0, 0]. No sé porqué, pero sencillamente no asigna un valor ahí, en los otros puntos sí que los asigna.

Lo más raro de todo es que si uno usa ScanLines, todo funciona perfectamente, la cosa falla solamente con Pixels.

La cosa pasa con los TBitmap en memoria, es decir, si yo creo una TImage en el formulario y uso Pixels[0, 0], la cosa funciona perfectamente.

Si alguien sabe a qué puede deberse, se los agradecería.

PD: Sé que el programa funciona perfectamente porque lo he usado durante años en el mismo WinXP de siempre. No ha cambiado nada desde entonces...

puedes poner el codigo?

PD: yo he tenido algunos problemas asignando al canvas de timage, pero no al de un tbitmap, aunque, para q se entienda, asignando al tbitmap de un timage a veces me da problemas.

Hola coso. Gracias por contestar.

En realidad el código es de lo más simplón. Por ejemplo, una de las cosas que probé para ver qué pasaba (recito de memoria, porque estoy en un ciber y no tengo el código):

Código Delphi [-]
 
var Bmp: TBitmap;
     X, Y: Integer;
 
 
Bmp:= TBitmap.Create;
Bmp.LoadFormFile('c:\algo.bmp'); //que mide 18x18
Bmp.Canvas.Brush.Color:= clBlack;
Bmp.Canvas.Rectangle(0, 0, 17, 17);
 
for X:= 0 to 17 do
  for Y:= 0 to 17 do
    Bmp.Canvas.Pixel:= clWhite;

Bmp.SaveToFile('c:\algo.bmp');
Bmp.Free;

Y el pixel (0, 0) es clBlack, en vez de clWhite... El pixel (1, 0) es, increíblemente, clWhite.

Código Delphi [-]
for X:= 0 to 17 do
  for Y:= 0 to 17 do
    Bmp.Canvas.Pixel[X,Y]:= clWhite;

no se si ya lo has arreglado...

PD: nada, ahora vi q lo escribias de memoria