Programación General > Pascal

 Recuadros En Pascal...

(1/1)

MiSiTo:
Hola queria saber como puedo hacer un recuadro en pascal, a continuacion les dejo un ejemplo, pero no tengo claro que poner en donde estan los interrogantes, he visto en algunos ejemplos una especia de cuadrados en color sombreado, pero no se como se introducen desde pascal .... si me pueden echar una mano por favor ..

Saludos y gracias.

Enko:
fijate si esto funciona  :hola:
Si quieres escribir directamente en el recuadro, usa el procedimiento Ventana.

--- Código: Text --- procedure Recuadro(X1,Y1,X2,Y2,Plano,Fondo : byte); var  I : byte;  S : char; Begin  TextColor(Plano);  TextBackground(Fondo);  S := #205;  for I := (X1+1) to (X2-1) do   begin    GotoXY(I,Y1);    Write(S);    GotoXY(I,Y2);    Write(S);   end;  S := #186;  for I := (Y1+1) to (Y2-1) do   begin    GotoXY(X1,I);    Write(S);    GotoXY(X2,I);    Write(S);   end;  S := #201;  GotoXY(X1,Y1);  Write(S);  S := #187;  GotoXY(X2,Y1);  Write(S);  S := #200;  gotoXY(X1,Y2);  Write(S);  S := #188;  GotoXY(X2,Y2);  Write(S); End; procedure Ventana(X1,Y1,X2,Y2,Plano,Fondo,PlanoRecuadro,FondoRecuadro : byte); Begin  Window(X1,Y1,X2,Y2);  Recuadro(1,1,X2-X1,Y2-Y1,PlanoRecuadro,FondoRecuadro);  Window(X1+1,Y1+1,X2-2,Y2-2);  Textcolor(Plano);  TextBackground(Fondo);  ClrScr; End;  

juancpalmajr:

--- Cita de: "MiSiTo" --- Hola queria saber como puedo hacer un recuadro en pascal, a continuacion les dejo un ejemplo, pero no tengo claro que poner en donde estan los interrogantes, he visto en algunos ejemplos una especia de cuadrados en color sombreado, pero no se como se introducen desde pascal .... si me pueden echar una mano por favor ..

Saludos y gracias.
--- Fin de la cita ---
nunca lo hice pero yo haria:
crea una ventana y dibujala con esos caracteres de dibujo de modo texto, un par de writeln/write, despues crea otra ventana mas pequeña y la metes mas al medio, dando la sensacion de que esta dentro del recuadro, todo esto usando CRT.
Sino, podes usar Graph y utilizar las funciones que vienen para ella, pero aqui se trabaja en modo grafico.
Olvida la segunda opcion, pensa en la primera. Va a funcar...creo

Navegación

[0] Índice de Mensajes