un problema de lineas
 

Tengo un problema que no lo he podido solucionar creo una linea y si se ve pero no toda la linea completa sino nada mas una parte

var
Sh : Timage;
begin
with Sh do
Canvas.FillRect(ClientRect);
Canvas.MoveTo(X, Y);
Canvas.LineTo(X1,Y1);
transparent:=true;
parent:=panel2;
end;

gracias.

acabo de probar el codigo que mandas y me ha funcionado bien

prueba a quitar la linea de "Transparent" para ver si realmente te crea la linea como tu la querias

Gracias, Ya lo intente y no me crea la linea completa, pienso que esta bien, pero aun no se porque no me dibuja toda la linea.

Fijate bien en como cadetill ha probado tu ejemplo, estos fallos casi siempre son una tonteria y se nos escapan pequeños detalles.

Prueba el ejemplo de cadetill, puede que tu fallo este en la clausula with que debe tener un begin y un end si a continuacion tienes mas de una sentencia.

with Sh do
begin
Canvas.FillRect(ClientRect);
Canvas.MoveTo(1, 1);
Canvas.LineTo(100,1);
Transparent := true;
Parent := Panel2;
end;


Suerte

Gracias, ya me salio se me habia escapado un detalle,

Bueno, y cual era? Estoy intrigado :D

....
 

Es de risa (da verguenza), no me respetaba el tamaño del Timage