/*--------------------------------------------------------------------
 * FICHERO:  RegTexCe.c
 * OBJETIVO: Definir la funcin Reg_TextoCentrado()
 * AUTOR:    Pedro Reina
 * FECHA:    V.14.7.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Region.h"

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Reg_TextoCentrado()
 * OBJETIVO: Escribir un texto en una regin centrado en 
 *           una fila
 * ENTRADAS: La regin, el texto y la fila
 * SALIDAS:  Ninguna
 * EJEMPLO:  Reg_TextoCentrado (CuadroInfo,"Informacin",2)
 *------------------------------------------------------------------*/
void Reg_TextoCentrado (Region, Texto, Fila)
region Region;
cadena Texto;
octeto Fila;
  {
  octeto Columna;

  Pan_Color (Reg_DiPapel(Region), Reg_DiTinta(Region));

  Columna = ( Reg_ColDer(Region) - Reg_ColIzq(Region) 
              + 1 - Cad_Longitud(Texto) ) / 2;
  Reg_PonTexto (Region, Fila, Columna, Texto);
  }