PDA

Ver la Versión Completa : pregunta para roman


juan
03-05-2003, 23:28:18
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.

__cadetill
03-05-2003, 23:44:57
acabo de probar el codigo que mandas y me ha funcionado bien


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


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

juan
03-05-2003, 23:58:50
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.

BenjiRock
06-05-2003, 12:52:04
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

juan
06-05-2003, 23:36:48
Gracias, ya me salio se me habia escapado un detalle,

__cadetill
07-05-2003, 11:07:07
Posteado originalmente por juan
Gracias, ya me salio se me habia escapado un detalle,

Bueno, y cual era? Estoy intrigado :D

juan
08-05-2003, 02:43:31
Es de risa (da verguenza), no me respetaba el tamaño del Timage