Web hosting Custom Email SiteBuilder

Rutinas Para Escritura De Texto

SetTextStyle(Tipo_de_letra,Orientación,Tamaño)

Permite establecer el tipo de letra, la orientación y el tamaño de está, donde :

Tipo_de_letra : Es un número cualquiera entre 0 y 10;

Orientación: 0 si es Horizontal, 1 Vertical

Tamaño: Un número de tipo Word.

SetTextJustify(Alineación_Horizontal,   Alineación_Vertical);

Permite justificar el texto a imprimir.

Alineación_Horizontal puede ser:

LeftText = Alineado a la izquierda

CenterText =Alineado al centro

RightText = Alineado a la derecha

Alineación_Vertical puede ser:

BottomText = Abajo

CenterText = Centro

TopText = Arriba.

OutText(Cadena_De_Texto);

Imprime la Cadena_de_Texto.

OutTextXY(Columna,Fila,Cadena_De_Texto);

Imprime la Cadena_de_Texto en la Columna, Fila.

Tanto para Outext  como Outextxy son afectadas por  setcolor, settextjustify y settextstyle.

El siguiente ejemplo muestra los diferentes tipos de letra que tiene turbo pascal:

Program Tipos_De_Letra;
Uses crt,graph;
var

Gd, Gm : Integer;
i             : byte;


begin{Inicio del programa principal}

GD := Detect;{Se autodetecta el tipo de tarjeta o controlador gráfico para el monitor en el que se este ejecutando el programa}

InitGraph(GD, GM, ' ');{Inicializa el modo gráfico}
if GraphResult <> grOk then Halt(1);{Evalua, si la inicialización no fue correcta entonces Termina}

for i:=0 to 10 do

    begin

         settextstyle(i,0,1);

         outtextxy(1,1*10,'Tutor de Programación');

    end;

readkey;{Espera a que se presione cualquier tecla}

   CloseGraph;{Cierra el modo gráfico}
end. {Final del programa principal}

  Regresar

Indice