Superpocision de imagen en Image.Canvas

[pablopessoa]

Hola gente!!
tengo un problema dibujando en el canvas de un Timage.
Supongamos que hago un rectangulo con borde negro y relleno (Brush) de color verde, ahora hago otro igual pero el nuevo rectangulo se situa en poco encima del primero, bueno la parte donde se "mezclan" en lugar de quedarse de color verde.. se pone de color blanco.
Como puedo arreglar esto? ahora los pongo un ejemplo.

[[cHackAll]]

prueba;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 Canvas.Pen.Width := 2;
 Canvas.Pen.Color := clBlack;
 Canvas.Brush.Color := clGreen;
 Canvas.Rectangle(100, 100, 200, 200);
 Canvas.Rectangle(150, 150, 250, 250);
end;

Talvez si nos copias (parte de) tu codigo podriamos saber que sucede

[pablopessoa]

no hay problema, aca te subo el codigo del editor grafico para que lo veas como trabaja, ( y tb por si te sirve ) , capas puedas ver como hacer que no me pinte de blanco las figuras ( ojo , depende los colores, si superpongo una cuadrado azul con uno amarillo me aparece verde jeje).
saludos y gracias por el interes

[[seoane]]

¿Para que usas esta linea?

Código Delphi [-]
Pen.Mode := pmNotXor;

[pablopessoa]

Mirá, la uso por que asi lo encontre en un tutorial, lo probe y funciono, pero ahora que me lo pregunte busque un poquito mas y encontre este texto en una web : (es un poquito largo, perdon por eso)

"...De todos los modos de dibujo, el más socorrido y el que vamos a usar es el pmNotXor. Este modo tiene la particularidad que si dibujamos una línea, por ejemplo, y después vuelves a dibujar la línea de nuevo por encima de la que estaba, esta se borra, y queda como si no hubieras dibujada nada.Esto lo vamos a usar para crear el efecto que tienen los programas de dibujo, los cuales cuando dibujas un línea esta se se va dibujando a medida que mueves el ratón, y puedes ir cambiando el destino, y cuando dejas de dibujar (sueltas el botón por ejemplo), la línea queda dibujada desde el origen hasta donde esta el cursor del ratón...."

Vos decis que el problema esta en usar ese modo del Pen.Mode ? a cual me recomendarias que cambie? Gracias!!!

[pcicom]

Prueba con esto

Asignale a la imagen o al objeto EN CANVAS lo siguiente

imagen1.Canvas.brush.Style:=bsClear;