Ver la Versión Completa : pregunta para roman
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
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
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
Es de risa (da verguenza), no me respetaba el tamaño del Timage
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.