pregunta para roman

[juan]

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]

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]

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]

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]

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

[__cadetill]

Posteado originalmente por juan
Gracias, ya me salio se me habia escapado un detalle,

Bueno, y cual era? Estoy intrigado

[juan]

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