Efecto Con Lineas

Hola de nuevo amigos!! Bueno pues es hora de continuar con más aplicaciones en C++ Builder, en esta ocasión realizaremos una aplicación bastante sencilla y muy rápida.

Para este programa no utilizaremos ningún componente aparte de la forma, ya que todo lo que haremos será trazar lineas y aprovechar el escalonamiento que se produce en el trazo de las mismas para obtener un efecto en la salida.

Bueno pues lo primero es después de haber creado una nueva aplicación, abrir el evento OnPaint de la forma y en el escribir el siguiente código:


void __fastcall TForm1::FormPaint(TObject *Sender)
{
        int CentroX, CentroY, Contador = 0;
        // Líneas con trazo discontinuo
        Canvas->Pen->Style = psSolid;//psDot;//psDashDotDot;;//psDashDot;//psDash;
        // Calcular el centro del área de dibujo
        CentroX = ClientWidth / 2;
        CentroY = ClientHeight / 2;
        // Recorrer toda la anchura del área de dibujo
        while (Contador < ClientWidth) {
        // Trazando líneas desde el centro
        // hasta los bordes superior e inferior
        Canvas->MoveTo(CentroX, CentroY);
        Canvas->LineTo(Contador, 0);
        Canvas->MoveTo(CentroX, CentroY);
        Canvas->LineTo(Contador, ClientHeight);
        Contador += 4; // Incrementar el contador
        }
        Contador = 0; // Contador de nuevo a cero
        // Para recorrer la altura del área de dibujo
        while (Contador < ClientHeight)
        {
        // Trazando líneas desde el centro
        // hasta los bordes izquierdo y derecho
        Canvas->MoveTo(CentroX, CentroY);
        Canvas->LineTo(0, Contador);
        Canvas->MoveTo(CentroX, CentroY);
        Canvas->LineTo(ClientWidth, Contador);
        Contador += 4; // Incrementar el contador
        }
}
//---------------------------------------------------------------------------


De esta manera dibujamos las lineas con el efecto que deseamos.

Ahora abrimos el evento OnResize también de la forma y colocamos el código que tenemos a continuación:


void __fastcall TForm1::FormResize(TObject *Sender)
{
        Invalidate();
}
//---------------------------------------------------------------------------


Con esto se redimensionan las lineas que dibujamos en la forma en caso de que esta se maximíze o se cambie de tamaño.

Finalmente compilamos y corremos nuestra aplicación y tenemos que tener como resultado algo como lo que enseguida se muestra:

Bueno pues por esta ocasión es todo, ¿verdad que estuvo muy fácil?. Pues así poco a poco iremos aprendiendo cosas más difíciles. Por ultimo guarden la aplicación que realizaron porque la necesitaremos para la próxima ocasión trabajar sobre ella y hacerle unas pequeñas modificaciones para obtener resultados diferentes. Hasta pronto y sigan practicando programación chavos.