SoloCodigo

Programación General => Pascal => Mensaje iniciado por: MiSiTo en Lunes 22 de Mayo de 2006, 11:50

Título: Recuadros En Pascal...
Publicado por: MiSiTo en Lunes 22 de Mayo de 2006, 11:50
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.
Título: Re: Recuadros En Pascal...
Publicado por: Enko en Lunes 22 de Mayo de 2006, 16:33
fijate si esto funciona  :hola:
Si quieres escribir directamente en el recuadro, usa el procedimiento Ventana.
Código: Text
  1.  
  2. procedure Recuadro(X1,Y1,X2,Y2,Plano,Fondo : byte);
  3.  var
  4.   I : byte;
  5.   S : char;
  6.  Begin
  7.   TextColor(Plano);
  8.   TextBackground(Fondo);
  9.   S := #205;
  10.   for I := (X1+1) to (X2-1) do
  11.    begin
  12.     GotoXY(I,Y1);
  13.     Write(S);
  14.     GotoXY(I,Y2);
  15.     Write(S);
  16.    end;
  17.   S := #186;
  18.   for I := (Y1+1) to (Y2-1) do
  19.    begin
  20.     GotoXY(X1,I);
  21.     Write(S);
  22.     GotoXY(X2,I);
  23.     Write(S);
  24.    end;
  25.   S := #201;
  26.   GotoXY(X1,Y1);
  27.   Write(S);
  28.   S := #187;
  29.   GotoXY(X2,Y1);
  30.   Write(S);
  31.   S := #200;
  32.   gotoXY(X1,Y2);
  33.   Write(S);
  34.   S := #188;
  35.   GotoXY(X2,Y2);
  36.   Write(S);
  37.  End;
  38.  
  39. procedure Ventana(X1,Y1,X2,Y2,Plano,Fondo,PlanoRecuadro,FondoRecuadro : byte);
  40.  Begin
  41.   Window(X1,Y1,X2,Y2);
  42.   Recuadro(1,1,X2-X1,Y2-Y1,PlanoRecuadro,FondoRecuadro);
  43.   Window(X1+1,Y1+1,X2-2,Y2-2);
  44.   Textcolor(Plano);
  45.   TextBackground(Fondo);
  46.   ClrScr;
  47.  End;
  48.  
  49.  
Título: Re: Recuadros En Pascal...
Publicado por: juancpalmajr en Miércoles 24 de Mayo de 2006, 03:34
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.
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