Ejemplo de TextOut del Componente HotPDF para Delphi – Estilo de Fuente y Conjunto de Caracteres

Este ejemplo integral del componente HotPDF TextOut demuestra el manejo avanzado de fuentes, soporte de conjuntos de caracteres, escalado de texto, ajustes de espaciado y modos de renderizado. El ejemplo genera demostraciones detalladas de fuentes y conjuntos de caracteres con ejemplos prácticos para la generación de PDF en aplicaciones Delphi.

Ejemplo de TextOut del Componente HotPDF para Delphi Mostrar Fuentes y Conjuntos de Caracteres

Demostración de familias de fuentes mostrando Arial, Times New Roman y Courier New con diferentes estilos

Ejemplo de TextOut del Componente HotPDF para Delphi Escalado de Texto Espaciado de Palabras Modos de Renderizado

Formato de texto avanzado: escalado, espaciado de caracteres/palabras y modos de renderizado

Características Clave Demostradas

Soporte de Familias de Fuentes: Arial, Times New Roman, Courier New con varios estilos
Manejo de Conjuntos de Caracteres: Conjuntos de caracteres árabe, europeo oriental, OEM, ruso y turco
Escalado de Texto: Compresión y expansión horizontal del texto
Espaciado de Caracteres: Ajuste fino del espaciado de caracteres para mejorar la legibilidad
Espaciado de Palabras: Ajuste del espacio entre palabras para un mejor diseño del texto
Modos de Renderizado: Renderizado de texto relleno, contorno, relleno+contorno e invisible

📝 Nota Importante

ShowCharset solo se usa para demostrar técnicamente la visualización de caracteres de un conjunto de caracteres a través de códigos de caracteres. Para la visualización regular de texto, simplemente puede usar TextOut para mostrar directamente la cadena deseada sin necesidad de especificar códigos de caracteres.

El procedimiento ShowCharset en este ejemplo está específicamente diseñado para mostrar cómo diferentes codificaciones de caracteres renderizan caracteres individuales por sus códigos Unicode/ASCII. En aplicaciones reales, simplemente use el método TextOut con sus cadenas de texto directamente.

Implementación Técnica

Este ejemplo muestra las capacidades integrales de salida de texto del componente HotPDF, incluyendo:

Incrustación de fuentes para visualización consistente multiplataforma
Soporte de caracteres Unicode para texto internacional
Posicionamiento y rotación avanzada de texto
Generación de esquemas/marcadores PDF para navegación
Creación de documentos de múltiples páginas con gestión automática de páginas

{***************************************************************}
// Componente PDF HotPDF - Demostración de Estilo de Texto y Conjunto de Caracteres
// Copyright(c)2007-2025, https://www.loslab.com
{***************************************************************}

program TextOut;
{$APPTYPE CONSOLE}
{$I ..\..\..\Lib\HotPDF.inc}

uses
  {$IFDEF XE2+}
  WinApi.Windows,
  System.SysUtils,
  System.Classes,
  Vcl.Graphics,
  {$ELSE}
  Windows,
  SysUtils,
  Classes,
  Graphics,
  {$ENDIF}
  HPDFDoc;

// Variables globales para la gestión del documento PDF y esquemas
var
  HotPDF: THotPDF; // Instancia principal del componente HotPDF
  OutlineRoot: THPDFDocOutlineObject; // Objeto esquema raíz para navegación del documento
  CurrnetOutline: THPDFDocOutlineObject; // Objeto esquema actual para estructura anidada

  {
    ====================================================================
    ShowFontGroup - Muestra una familia de fuentes con diferentes estilos
    ====================================================================

    PROPÓSITO:
    Demuestra cómo mostrar la misma fuente en diferentes estilos (normal, negrita,
    cursiva, negrita-cursiva) con varios ángulos de rotación de texto.

    PARÁMETROS:
    @param FontGroup: String - Nombre de la familia de fuentes a mostrar (ej., 'Arial')
    @param Position: Integer - Coordenada X para la colocación del texto

    FUNCIONALIDAD:
    1. Muestra el nombre de la fuente en estilo normal en la posición base
    2. Muestra la versión en negrita con rotación positiva (+1 grado)
    3. Muestra la versión en cursiva con rotación negativa (-1 grado)
    4. Muestra la combinación negrita-cursiva en orientación normal

    DISEÑO:
    Cada estilo de fuente se muestra 20 píxeles debajo del anterior
  }

procedure ShowFontGroup(FontGroup: AnsiString; Position: Integer);
begin
  // procedure SetFont ( FontName: AnsiString; FontStyle: TFontStyles; ASize: Single; FontCharset: TFontCharset; IsVertiacal: Boolean);
  // Mostrar estilo de fuente normal
  HotPDF.CurrentPage.SetFont(FontGroup, [], 12); // Establecer fuente sin modificadores de estilo
  // procedure TextOut ( X, Y: Single; Angle: Extended; Text: WideString);
  HotPDF.CurrentPage.TextOut(Position, 70, 0, WideString(FontGroup)); // Mostrar en posición Y base (70)

  // Mostrar estilo de fuente en negrita con ligera rotación positiva
  HotPDF.CurrentPage.SetFont(FontGroup, [fsBold], 12); // Aplicar estilo negrita
  HotPDF.CurrentPage.TextOut(Position, 90, 1, WideString(FontGroup + '-Bold')); // Rotación +1 grado, Y+20

  // Mostrar estilo de fuente en cursiva con ligera rotación negativa
  HotPDF.CurrentPage.SetFont(FontGroup, [fsItalic], 12); // Aplicar estilo cursiva
  HotPDF.CurrentPage.TextOut(Position, 110, - 1, WideString(FontGroup + '-Italic')); // Rotación -1 grado, Y+40

  // Mostrar combinación negrita-cursiva sin rotación
  HotPDF.CurrentPage.SetFont(FontGroup, [fsBold, fsItalic], 12); // Aplicar tanto negrita como cursiva
  HotPDF.CurrentPage.TextOut(Position, 130, 0, WideString(FontGroup + '-Bold-Italic')); // Orientación normal, Y+60
end;

{
  ====================================================================
  ShowCharset - Muestra caracteres para un conjunto de caracteres específico
  ====================================================================

  PROPÓSITO:
  Demuestra la visualización adecuada de caracteres para diferentes codificaciones de caracteres

  PARÁMETROS:
  @param FontCharset: TFontCharset - Identificador de conjunto de caracteres de Windows
  @param First: Integer - Código de carácter Unicode/ASCII inicial
  @param Last: Integer - Código de carácter Unicode/ASCII final (inclusivo)
  @param Y1: Integer - Coordenada Y para mostrar el nombre del conjunto de caracteres
  @param Y2: Integer - Coordenada Y para mostrar la cuadrícula de caracteres

  RANGOS DE CARACTERES:
  Cada conjunto de caracteres muestra caracteres de rangos Unicode/ASCII específicos:

  - ARABIC_CHARSET: Unicode 1536-1625 (caracteres del bloque árabe)
  - EASTEUROPE_CHARSET: Unicode 160-249 (Suplemento Latin-1)
  - OEM_CHARSET: ASCII 32-121 (caracteres ASCII imprimibles)
  - RUSSIAN_CHARSET: Unicode 1024-1113 (caracteres del bloque cirílico)
  - TURKISH_CHARSET: Unicode 161-255 (Latin extendido imprimible)

  DISEÑO DE VISUALIZACIÓN:
  Los caracteres se organizan en 3 filas con 30 caracteres por fila:
  - Fila 1: Caracteres 0-29, comenzando en X=50
  - Fila 2: Caracteres 30-59, comenzando en X=50, Y+20
  - Fila 3: Caracteres 60-89, comenzando en X=50, Y+40
  - Espaciado de caracteres: 16 píxeles horizontalmente, 20 píxeles verticalmente
}

procedure ShowCharset(FontCharset: TFontCharset; First, Last: Integer; Y1, Y2: Integer);
var
  i: Integer; // Contador de bucle para iteración de caracteres
  CSName: AnsiString; // Nombre del conjunto de caracteres para mostrar
  XPos, YPos: Integer; // Variables de posición
  CharCode: Integer; // Código de carácter a mostrar
  CharCount: Integer; // Número de caracteres a mostrar
  Row: Integer; // Fila actual (1, 2 o 3)
  CharInRow: Integer; // Posición del carácter dentro de la fila actual
begin
  // Configuración del conjunto de caracteres con nombres descriptivos
  case FontCharset of
    ARABIC_CHARSET: CSName := 'ARABIC_CHARSET';
    EASTEUROPE_CHARSET: CSName := 'EASTEUROPE_CHARSET';
    OEM_CHARSET: CSName := 'OEM_CHARSET';
    RUSSIAN_CHARSET: CSName := 'RUSSIAN_CHARSET';
    TURKISH_CHARSET: CSName := 'TURKISH_CHARSET';
    else CSName := 'DEFAULT_CHARSET';
  end;

  // Establecer el número de caracteres para mostrar 90 caracteres (30 por fila × 3 filas)
  CharCount := 90;
  if Last - First + 1 < CharCount then CharCount := Last - First + 1;

  // Mostrar encabezado del conjunto de caracteres
  HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsItalic], 12);
  HotPDF.CurrentPage.TextOut(50, Y1, 0, WideString(CSName + ' ejemplo: '));

  // Establecer la fuente apropiada para mostrar caracteres con especificación de conjunto de caracteres
  HotPDF.CurrentPage.SetFont('Arial', [], 14, FontCharset);

  // Mostrar caracteres en diseño de 3 filas sin sangría
  for i := 0 to CharCount - 1 do
  begin
    // Determinar fila y posición dentro de la fila
    if i < 30 then
    begin
      // Primera fila: 30 caracteres, alineados con el título (x=50)
      Row := 1;
      CharInRow := i;
      XPos := 50 + CharInRow * 16;
      YPos := Y2;
    end else if i < 60 then
    begin
      // Segunda fila: 30 caracteres, alineados con el título (x=50)
      Row := 2;
      CharInRow := i - 30;
      XPos := 50 + CharInRow * 16;
      YPos := Y2 + 20; // 20 píxeles debajo de la primera fila
    end
    else
    begin
      // Tercera fila: caracteres restantes, alineados con el título (x=50)
      Row := 3;
      CharInRow := i - 60;
      XPos := 50 + CharInRow * 16;
      YPos := Y2 + 40; // 40 píxeles debajo de la primera fila
    end;

    // Calcular código de carácter
    CharCode := First + i;

    try
      // Usar conversión WideString para todos los caracteres
        HotPDF.CurrentPage.TextOut(XPos, YPos, 0, WideString(WideChar(CharCode)));
    except
      // Si ocurre algún error, mostrar un carácter de respaldo
        HotPDF.CurrentPage.TextOut(XPos, YPos, 0, WideString('?'));
    end;
  end;
end;

{
  ====================================================================
  ShowTable - Dibuja una estructura de tabla de demostración
  ====================================================================

  PROPÓSITO:
  Crea una estructura de tabla simple para demostrar efectos de formato de texto.
  Usado en las secciones de escalado de texto, espaciado de caracteres y espaciado de palabras.

  PARÁMETROS:
  @param X: Integer - Coordenada X del borde izquierdo
  @param Y: Integer - Coordenada Y del borde superior

  ESTRUCTURA:
  Crea una tabla de 300x100 píxeles dividida en:
  - Celda superior: 300x50 píxeles
  - Celda inferior: 300x50 píxeles
  - Divisor vertical: 130 píxeles desde el borde izquierdo

  Todas las líneas se dibujan con operación de trazo para visibilidad
}

procedure ShowTable(X, Y: Integer);
begin
  // Dibujar celda superior de la tabla (rectángulo 300x50)
  HotPDF.CurrentPage.Rectangle(X, Y, 300, 50);
  HotPDF.CurrentPage.Stroke;

  // Dibujar celda inferior de la tabla (rectángulo 300x50, desplazado 50 píxeles hacia abajo)
  HotPDF.CurrentPage.Rectangle(X, Y + 50, 300, 50);
  HotPDF.CurrentPage.Stroke;

  // Dibujar línea divisoria vertical a través de ambas celdas
  HotPDF.CurrentPage.MoveTo(X + 130, Y); // Comenzar en la parte superior de la celda superior
  HotPDF.CurrentPage.LineTo(X + 130, Y + 100); // Dibujar hasta la parte inferior de la celda inferior
  HotPDF.CurrentPage.Stroke;
end;

{
  ====================================================================
  EJECUCIÓN DEL PROGRAMA PRINCIPAL
  ====================================================================

  Este es el cuerpo principal del programa que demuestra todas las capacidades
  de salida de texto de HotPDF. El programa está estructurado en secciones,
  cada una demostrando un aspecto específico del manejo de texto:

  1. GRUPOS DE FUENTES - Muestra diferentes familias de fuentes y estilos
  2. CONJUNTOS DE CARACTERES - Demuestra el manejo de codificación de caracteres
  3. ESCALADO DE TEXTO - Muestra efectos de escalado horizontal de texto
  4. ESPACIADO DE CARACTERES - Demuestra ajustes de espaciado de caracteres
  5. ESPACIADO DE PALABRAS - Muestra modificaciones de espaciado de palabras
  6. MODOS DE RENDERIZADO - Muestra diferentes efectos de renderizado de texto

  Cada sección incluye encabezados apropiados, esquemas de navegación y
  ejemplos prácticos con comparaciones antes/después cuando es aplicable.
}
begin
  // Inicializar componente HotPDF
  HotPDF := THotPDF.Create(nil);
  try
    // Configurar propiedades del documento PDF para visualización óptima de texto
    HotPDF.AutoLaunch := true; // Abrir automáticamente PDF después de la creación
    HotPDF.FontEmbedding := true; // Habilitar incrustación de fuentes para visualización consistente de caracteres en todos los sistemas
    HotPDF.StandardFontEmulation := false; // Deshabilitar emulación de fuentes para prevenir problemas de mapeo de caracteres
    HotPDF.FileName := 'TextOut.pdf'; // Establecer nombre de archivo de salida
    HotPDF.PageLayout := plOneColumn; // Configurar visor para mostrar una columna

    // Comenzar creación del documento PDF
    HotPDF.BeginDoc(true); // Crear PDF con compresión habilitada
    OutlineRoot := HotPDF.OutlineRoot; // Inicializar navegación de esquema del documento

    // ====================================================================
    // SECCIÓN 1: DEMOSTRACIÓN DE GRUPOS DE FUENTES
    // ====================================================================
    // Esta sección demuestra cómo aparecen diferentes familias de fuentes con
    // varias combinaciones de estilos (normal, negrita, cursiva, negrita-cursiva)

    // Crear encabezado de sección con formato mejorado
    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    HotPDF.CurrentPage.TextOut(195, 30, 0, WideString('Mostrar Fuentes'));

    // Agregar entrada de esquema de navegación para esta sección
    OutlineRoot.AddChild('Mostrar Fuentes', 195, 30); // Enlaces a coordenadas

    // Mostrar tres familias de fuentes principales comúnmente disponibles en todos los sistemas
    ShowFontGroup('Arial', 50); // Fuente sans-serif en X=50
    ShowFontGroup('Times New Roman', 180); // Fuente serif en X=180
    ShowFontGroup('Courier New', 350); // Fuente monoespaciada en X=350

    // ====================================================================
    // SECCIÓN 2: DEMOSTRACIÓN DE CONJUNTOS DE CARACTERES
    // ====================================================================
    // Esta sección demuestra el manejo adecuado de diferentes codificaciones de caracteres de Windows

    // Crear encabezado de sección
    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    HotPDF.CurrentPage.TextOut(200, 170, 0, WideString('Conjuntos de Caracteres'));

    // Crear grupo de esquema para conjuntos de caracteres con estructura expandible
    // OutlineRoot.AddChild: Crea una nueva entrada de marcador/esquema en el árbol de navegación PDF
    // Parámetros: ('Título', coordenada-X, coordenada-Y)
    // - 'Conjuntos de Caracteres': Texto de visualización mostrado en el panel de esquema/marcador PDF
    // - 250: Coordenada X (posición horizontal) donde hacer clic navegará
    // - 170: Coordenada Y (posición vertical) donde hacer clic navegará
    CurrnetOutline := OutlineRoot.AddChild('Conjuntos de Caracteres', 250, 170);
    CurrnetOutline.Opened := true; // Expandir esta sección de esquema por defecto

    CurrnetOutline.AddChild('ARABIC_CHARSET', 50, 225);
    // Conjunto de caracteres árabe: rango Unicode U+0600-U+0659 (90 caracteres)
    // Rango: 1536-1625 (bloque árabe incluyendo letras, puntuación, números y diacríticos)
    // Muestra 90 caracteres árabes en 3 filas de 30 caracteres cada una
    // Usado para: árabe, persa, urdu, pastún, kurdo y otros scripts RTL

    // procedure ShowCharset(FontCharset: TFontCharset; First, Last: Integer; Y1, Y2: Integer);
    // First es el código del primer carácter, genera secuencialmente hasta el carácter Last
    // Y1 es la coordenada Y del título, y Y2 es la coordenada Y inicial del carácter
    ShowCharset(ARABIC_CHARSET, 1536, 1625, 225, 250);

    CurrnetOutline.AddChild('EASTEUROPE_CHARSET', 50, 325);
    // Conjunto de caracteres de Europa Oriental: rango Unicode U+00A0-U+00F9 (90 caracteres)
    // Rango: 160-249 (Suplemento Latin-1 con caracteres acentuados y símbolos)
    // Muestra 90 caracteres latinos extendidos en 3 filas de 30 caracteres cada una
    // Usado para: francés, alemán, español, portugués, italiano, holandés, idiomas nórdicos

    // ShowCharset es solo para demostrar la visualización de caracteres del conjunto de caracteres a través de códigos de caracteres
    // para visualización regular de texto, solo necesita usar TextOut para mostrar directamente la cadena requerida
    ShowCharset(EASTEUROPE_CHARSET, 160, 249, 325, 350);

    CurrnetOutline.AddChild('OEM_CHARSET', 50, 425);
    // Conjunto de caracteres OEM: rango ASCII 32-121 (90 caracteres)
    // Rango: 32-121 (ASCII imprimible incluyendo espacio, símbolos, números y letras)
    // Muestra 90 caracteres ASCII en 3 filas de 30 caracteres cada una
    // Usado para: aplicaciones DOS, salida de consola, sistemas heredados
    ShowCharset(OEM_CHARSET, 32, 121, 425, 450);

    CurrnetOutline.AddChild('RUSSIAN_CHARSET', 50, 525);
    // Conjunto de caracteres ruso: rango Unicode U+0400-U+0459 (90 caracteres)
    // Rango: 1024-1113 (bloque cirílico incluyendo letras rusas, ucranianas, búlgaras)
    // Muestra 90 caracteres cirílicos en 3 filas de 30 caracteres cada una
    // Usado para: ruso, búlgaro, serbio (cirílico), macedonio, ucraniano, bielorruso
    ShowCharset(RUSSIAN_CHARSET, 1024, 1113, 525, 550);

    CurrnetOutline.AddChild('TURKISH_CHARSET', 50, 625);
    // Conjunto de caracteres turco: rango Unicode U+00A1-U+00FF (95 caracteres)
    // Rango: 161-255 (Suplemento Latin-1 imprimible, evitando caracteres de control 128-160)
    // Muestra 90 caracteres en 3 filas de 30 caracteres cada una (primeros 90 de 95 disponibles)
    // Incluye especiales turcos: Ç(199), ç(231), Ğ(208), ğ(240), İ(221), ı(253), Ö(214), ö(246), Ş(222), ş(254), Ü(220), ü(252)
    // Usado para: idioma turco con sus caracteres únicos y símbolos europeos
    ShowCharset(TURKISH_CHARSET, 161, 255, 625, 650);

    // ====================================================================
    // SECCIÓN 3: DEMOSTRACIÓN DE ESCALADO DE TEXTO
    // ====================================================================
    // Esta sección muestra cómo el escalado horizontal de texto afecta la apariencia del texto
    // El escalado modifica el ancho de los caracteres manteniendo la altura

    // Comenzar nueva página para demostraciones de formato de texto avanzado
    HotPDF.AddPage;

    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    OutlineRoot.AddChild('Escalado horizontal de texto', 180, 40); // Agregar a navegación de esquema principal
    HotPDF.CurrentPage.TextOut(180, 40, 0, WideString('Escalado horizontal de texto'));

    // Crear estructura de tabla de comparación
    ShowTable(130, 80);

    // Agregar etiquetas descriptivas para la comparación
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);
    HotPDF.CurrentPage.TextOut(160, 100, 0, WideString('predeterminado 100')); // Etiqueta de escalado normal
    HotPDF.CurrentPage.TextOut(165, 145, 0, WideString('establecer a 50')); // Etiqueta de escalado comprimido

    // Demostrar escalado de texto normal (100% - predeterminado)
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);
    HotPDF.CurrentPage.TextOut(280, 95, 0, WideString('Palabra'));

    // Demostrar escalado de texto comprimido (50% de ancho)
    HotPDF.CurrentPage.SetHorizontalScaling(50); // Comprimir texto al 50% de ancho
    HotPDF.CurrentPage.TextOut(285, 140, 0, WideString('Palabra'));
    HotPDF.CurrentPage.SetHorizontalScaling(100); // Restablecer a escalado normal

    // ====================================================================
    // SECCIÓN 4: DEMOSTRACIÓN DE ESPACIADO DE CARACTERES
    // ====================================================================
    // Esta sección demuestra cómo el espaciado de caracteres afecta la legibilidad del texto
    // El espaciado de caracteres agrega espacio uniforme entre caracteres individuales

    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    OutlineRoot.AddChild('Espaciado de Caracteres', 200, 220);
    HotPDF.CurrentPage.TextOut(200, 220, 0, WideString('Espaciado de Caracteres'));

    // Crear tabla de comparación
    ShowTable(130, 260);

    // Agregar etiquetas descriptivas
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);
    HotPDF.CurrentPage.TextOut(162, 280, 0, WideString('predeterminado 0')); // Etiqueta de espaciado normal
    HotPDF.CurrentPage.TextOut(162, 330, 0, WideString('establecer espacio 5')); // Etiqueta de espaciado expandido

    // Demostrar espaciado de caracteres normal (0 - predeterminado)
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);
    HotPDF.CurrentPage.TextOut(278, 275, 0, WideString('Carácter'));

    // Demostrar espaciado de caracteres expandido (+5 unidades entre caracteres)
    HotPDF.CurrentPage.SetCharacterSpacing(5); // Agregar 5 unidades entre cada carácter
    HotPDF.CurrentPage.TextOut(278, 320, 0, WideString('Carácter'));
    HotPDF.CurrentPage.SetCharacterSpacing(0); // Restablecer a espaciado normal

    // ====================================================================
    // SECCIÓN 5: DEMOSTRACIÓN DE ESPACIADO DE PALABRAS
    // ====================================================================
    // Esta sección demuestra cómo el espaciado de palabras afecta el diseño del texto
    // El espaciado de palabras agrega espacio específicamente entre palabras (en caracteres de espacio)

    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    OutlineRoot.AddChild('Espaciado de Palabras', 200, 380);
    HotPDF.CurrentPage.TextOut(200, 380, 0, WideString('Espaciado de Palabras'));

    // Crear tabla de comparación
    ShowTable(130, 420);

    // Agregar etiquetas descriptivas
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);
    HotPDF.CurrentPage.TextOut(162, 440, 0, WideString('predeterminado 0')); // Etiqueta de espaciado de palabras normal
    HotPDF.CurrentPage.TextOut(162, 490, 0, WideString('establecer espacio 10')); // Etiqueta de espaciado de palabras expandido

    // Demostrar espaciado de palabras normal (0 - predeterminado)
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);
    HotPDF.CurrentPage.TextOut(280, 430, 0, WideString('Espacio Palabra'));

    // Demostrar espaciado de palabras expandido (+10 unidades entre palabras)
    HotPDF.CurrentPage.SetWordSpacing(10); // Agregar 10 unidades entre palabras
    HotPDF.CurrentPage.TextOut(280, 480, 0, WideString('Espacio Palabra'));
    HotPDF.CurrentPage.SetWordSpacing(0); // Restablecer a espaciado normal

    // ====================================================================
    // SECCIÓN 6: DEMOSTRACIÓN DE MODOS DE RENDERIZADO DE TEXTO
    // ====================================================================
    // Esta sección demuestra diferentes efectos de renderizado de texto disponibles en PDF
    // El texto puede ser rellenado, contorneado, ambos, o invisible (para efectos avanzados)

    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    OutlineRoot.AddChild('Modos de Renderizado', 200, 550);
    HotPDF.CurrentPage.TextOut(200, 550, 0, WideString('Modos de Renderizado'));

    // Crear una estructura de tabla compleja para comparación de modos de renderizado
    // Contorno de tabla principal (500x150 píxeles)
    HotPDF.CurrentPage.Rectangle(50, 600, 500, 150);
    HotPDF.CurrentPage.Stroke;

    // Divisores verticales creando 4 columnas de igual ancho
    HotPDF.CurrentPage.MoveTo(175, 600); // Primer divisor
    HotPDF.CurrentPage.LineTo(175, 750);
    HotPDF.CurrentPage.Stroke;

    HotPDF.CurrentPage.MoveTo(300, 600); // Segundo divisor
    HotPDF.CurrentPage.LineTo(300, 750);
    HotPDF.CurrentPage.Stroke;

    HotPDF.CurrentPage.MoveTo(425, 600); // Tercer divisor
    HotPDF.CurrentPage.LineTo(425, 750);
    HotPDF.CurrentPage.Stroke;

    // Divisor horizontal separando encabezado del contenido
    HotPDF.CurrentPage.MoveTo(50, 665);
    HotPDF.CurrentPage.LineTo(550, 665);
    HotPDF.CurrentPage.Stroke;

    // Agregar encabezados de columna describiendo cada modo de renderizado
    HotPDF.CurrentPage.SetFont('Arial', [], 12);
    HotPDF.CurrentPage.TextOut(100, 620, 0, WideString('Relleno')); // Modo relleno - texto coloreado sólido
    HotPDF.CurrentPage.TextOut(215, 620, 0, WideString('Contorno')); // Modo contorno - texto delineado
    HotPDF.CurrentPage.TextOut(320, 620, 0, WideString('Relleno Contorno')); // Modo combinado - rellenado con contorno
    HotPDF.CurrentPage.TextOut(465, 620, 0, WideString('Invisible')); // Modo invisible - para efectos especiales

    // Configurar colores para demostración dramática de efectos de renderizado
    HotPDF.CurrentPage.SetFont('Arial', [fsBold], 72); // Fuente grande para visibilidad clara
    HotPDF.CurrentPage.SetRGBStrokeColor(clRed); // Color de contorno rojo
    HotPDF.CurrentPage.SetRGBFillColor(clYellow); // Color de relleno amarillo

    // Demostrar modo de renderizado Relleno - texto coloreado sólido
    HotPDF.CurrentPage.SetTextRenderingMode(trFill);
    HotPDF.CurrentPage.TextOut(90, 670, 0, WideString('P'));

    // Demostrar modo de renderizado Contorno - solo texto delineado
    HotPDF.CurrentPage.SetTextRenderingMode(trStroke);
    HotPDF.CurrentPage.TextOut(215, 670, 0, WideString('D'));

    // Demostrar modo de renderizado Relleno+Contorno - texto rellenado con contorno coloreado
    HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);
    HotPDF.CurrentPage.TextOut(340, 670, 0, WideString('F'));

    // Demostrar modo de renderizado Invisible - el texto está presente pero no es visible
    // (útil para texto buscable sobre imágenes, o técnicas de diseño avanzadas)
    HotPDF.CurrentPage.SetTextRenderingMode(trInvisible);
    HotPDF.CurrentPage.TextOut(475, 670, 0, WideString('X'));

    // Restablecer al modo de renderizado predeterminado para cualquier texto posterior
    HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);

    // Finalizar y guardar el documento PDF
    HotPDF.EndDoc;

  finally
    // Asegurar limpieza adecuada del componente HotPDF
    HotPDF.Free;
  end;
end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

{***************************************************************}

// Componente PDF HotPDF - Demostración de Estilo de Texto y Conjunto de Caracteres

{***************************************************************}

program TextOut;

{$APPTYPE CONSOLE}

{$I ..\..\..\Lib\HotPDF.inc}

uses

{$IFDEF XE2+}

WinApi.Windows,

System.SysUtils,

System.Classes,

Vcl.Graphics,

{$ELSE}

Windows,

SysUtils,

Classes,

Graphics,

{$ENDIF}

HPDFDoc;

// Variables globales para la gestión del documento PDF y esquemas

var

HotPDF: THotPDF; // Instancia principal del componente HotPDF

OutlineRoot: THPDFDocOutlineObject; // Objeto esquema raíz para navegación del documento

CurrnetOutline: THPDFDocOutlineObject; // Objeto esquema actual para estructura anidada

{

====================================================================

ShowFontGroup - Muestra una familia de fuentes con diferentes estilos

====================================================================

PROPÓSITO:

Demuestra cómo mostrar la misma fuente en diferentes estilos (normal, negrita,

cursiva, negrita-cursiva) con varios ángulos de rotación de texto.

PARÁMETROS:

@param FontGroup: String - Nombre de la familia de fuentes a mostrar (ej., 'Arial')

@param Position: Integer - Coordenada X para la colocación del texto

FUNCIONALIDAD:

1. Muestra el nombre de la fuente en estilo normal en la posición base

2. Muestra la versión en negrita con rotación positiva (+1 grado)

3. Muestra la versión en cursiva con rotación negativa (-1 grado)

4. Muestra la combinación negrita-cursiva en orientación normal

DISEÑO:

Cada estilo de fuente se muestra 20 píxeles debajo del anterior

}

procedure ShowFontGroup(FontGroup: AnsiString; Position: Integer);

begin

// procedure SetFont ( FontName: AnsiString; FontStyle: TFontStyles; ASize: Single; FontCharset: TFontCharset; IsVertiacal: Boolean);

// Mostrar estilo de fuente normal

HotPDF.CurrentPage.SetFont(FontGroup, [], 12); // Establecer fuente sin modificadores de estilo

// procedure TextOut ( X, Y: Single; Angle: Extended; Text: WideString);

HotPDF.CurrentPage.TextOut(Position, 70, 0, WideString(FontGroup)); // Mostrar en posición Y base (70)

// Mostrar estilo de fuente en negrita con ligera rotación positiva

HotPDF.CurrentPage.SetFont(FontGroup, [fsBold], 12); // Aplicar estilo negrita

HotPDF.CurrentPage.TextOut(Position, 90, 1, WideString(FontGroup + '-Bold')); // Rotación +1 grado, Y+20

// Mostrar estilo de fuente en cursiva con ligera rotación negativa

HotPDF.CurrentPage.SetFont(FontGroup, [fsItalic], 12); // Aplicar estilo cursiva

HotPDF.CurrentPage.TextOut(Position, 110, - 1, WideString(FontGroup + '-Italic')); // Rotación -1 grado, Y+40

// Mostrar combinación negrita-cursiva sin rotación

HotPDF.CurrentPage.SetFont(FontGroup, [fsBold, fsItalic], 12); // Aplicar tanto negrita como cursiva

HotPDF.CurrentPage.TextOut(Position, 130, 0, WideString(FontGroup + '-Bold-Italic')); // Orientación normal, Y+60

end;

{

====================================================================

ShowCharset - Muestra caracteres para un conjunto de caracteres específico

====================================================================

PROPÓSITO:

Demuestra la visualización adecuada de caracteres para diferentes codificaciones de caracteres

PARÁMETROS:

@param FontCharset: TFontCharset - Identificador de conjunto de caracteres de Windows

@param First: Integer - Código de carácter Unicode/ASCII inicial

@param Last: Integer - Código de carácter Unicode/ASCII final (inclusivo)

@param Y1: Integer - Coordenada Y para mostrar el nombre del conjunto de caracteres

@param Y2: Integer - Coordenada Y para mostrar la cuadrícula de caracteres

RANGOS DE CARACTERES:

Cada conjunto de caracteres muestra caracteres de rangos Unicode/ASCII específicos:

- ARABIC_CHARSET: Unicode 1536-1625 (caracteres del bloque árabe)

- EASTEUROPE_CHARSET: Unicode 160-249 (Suplemento Latin-1)

- OEM_CHARSET: ASCII 32-121 (caracteres ASCII imprimibles)

- RUSSIAN_CHARSET: Unicode 1024-1113 (caracteres del bloque cirílico)

- TURKISH_CHARSET: Unicode 161-255 (Latin extendido imprimible)

DISEÑO DE VISUALIZACIÓN:

Los caracteres se organizan en 3 filas con 30 caracteres por fila:

- Fila 1: Caracteres 0-29, comenzando en X=50

- Fila 2: Caracteres 30-59, comenzando en X=50, Y+20

- Fila 3: Caracteres 60-89, comenzando en X=50, Y+40

- Espaciado de caracteres: 16 píxeles horizontalmente, 20 píxeles verticalmente

}

procedure ShowCharset(FontCharset: TFontCharset; First, Last: Integer; Y1, Y2: Integer);

var

i: Integer; // Contador de bucle para iteración de caracteres

CSName: AnsiString; // Nombre del conjunto de caracteres para mostrar

XPos, YPos: Integer; // Variables de posición

CharCode: Integer; // Código de carácter a mostrar

CharCount: Integer; // Número de caracteres a mostrar

Row: Integer; // Fila actual (1, 2 o 3)

CharInRow: Integer; // Posición del carácter dentro de la fila actual

begin

// Configuración del conjunto de caracteres con nombres descriptivos

case FontCharset of

ARABIC_CHARSET: CSName := 'ARABIC_CHARSET';

EASTEUROPE_CHARSET: CSName := 'EASTEUROPE_CHARSET';

OEM_CHARSET: CSName := 'OEM_CHARSET';

RUSSIAN_CHARSET: CSName := 'RUSSIAN_CHARSET';

TURKISH_CHARSET: CSName := 'TURKISH_CHARSET';

else CSName := 'DEFAULT_CHARSET';

end;

// Establecer el número de caracteres para mostrar 90 caracteres (30 por fila × 3 filas)

CharCount := 90;

if Last - First + 1 < CharCount then CharCount := Last - First + 1;

// Mostrar encabezado del conjunto de caracteres

HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsItalic], 12);

HotPDF.CurrentPage.TextOut(50, Y1, 0, WideString(CSName + ' ejemplo: '));

// Establecer la fuente apropiada para mostrar caracteres con especificación de conjunto de caracteres

HotPDF.CurrentPage.SetFont('Arial', [], 14, FontCharset);

// Mostrar caracteres en diseño de 3 filas sin sangría

for i := 0 to CharCount - 1 do

begin

// Determinar fila y posición dentro de la fila

if i < 30 then

begin

// Primera fila: 30 caracteres, alineados con el título (x=50)

Row := 1;

CharInRow := i;

XPos := 50 + CharInRow * 16;

YPos := Y2;

end else if i < 60 then

begin

// Segunda fila: 30 caracteres, alineados con el título (x=50)

Row := 2;

CharInRow := i - 30;

XPos := 50 + CharInRow * 16;

YPos := Y2 + 20; // 20 píxeles debajo de la primera fila

end

else

begin

// Tercera fila: caracteres restantes, alineados con el título (x=50)

Row := 3;

CharInRow := i - 60;

XPos := 50 + CharInRow * 16;

YPos := Y2 + 40; // 40 píxeles debajo de la primera fila

end;

// Calcular código de carácter

CharCode := First + i;

try

// Usar conversión WideString para todos los caracteres

HotPDF.CurrentPage.TextOut(XPos, YPos, 0, WideString(WideChar(CharCode)));

except

// Si ocurre algún error, mostrar un carácter de respaldo

HotPDF.CurrentPage.TextOut(XPos, YPos, 0, WideString('?'));

end;

{

====================================================================

ShowTable - Dibuja una estructura de tabla de demostración

====================================================================

PROPÓSITO:

Crea una estructura de tabla simple para demostrar efectos de formato de texto.

Usado en las secciones de escalado de texto, espaciado de caracteres y espaciado de palabras.

PARÁMETROS:

@param X: Integer - Coordenada X del borde izquierdo

@param Y: Integer - Coordenada Y del borde superior

ESTRUCTURA:

Crea una tabla de 300x100 píxeles dividida en:

- Celda superior: 300x50 píxeles

- Celda inferior: 300x50 píxeles

- Divisor vertical: 130 píxeles desde el borde izquierdo

Todas las líneas se dibujan con operación de trazo para visibilidad

}

procedure ShowTable(X, Y: Integer);

begin

// Dibujar celda superior de la tabla (rectángulo 300x50)

HotPDF.CurrentPage.Rectangle(X, Y, 300, 50);

HotPDF.CurrentPage.Stroke;

// Dibujar celda inferior de la tabla (rectángulo 300x50, desplazado 50 píxeles hacia abajo)

HotPDF.CurrentPage.Rectangle(X, Y + 50, 300, 50);

HotPDF.CurrentPage.Stroke;

// Dibujar línea divisoria vertical a través de ambas celdas

HotPDF.CurrentPage.MoveTo(X + 130, Y); // Comenzar en la parte superior de la celda superior

HotPDF.CurrentPage.LineTo(X + 130, Y + 100); // Dibujar hasta la parte inferior de la celda inferior

HotPDF.CurrentPage.Stroke;

end;

{

====================================================================

EJECUCIÓN DEL PROGRAMA PRINCIPAL

====================================================================

Este es el cuerpo principal del programa que demuestra todas las capacidades

de salida de texto de HotPDF. El programa está estructurado en secciones,

cada una demostrando un aspecto específico del manejo de texto:

1. GRUPOS DE FUENTES - Muestra diferentes familias de fuentes y estilos

2. CONJUNTOS DE CARACTERES - Demuestra el manejo de codificación de caracteres

3. ESCALADO DE TEXTO - Muestra efectos de escalado horizontal de texto

4. ESPACIADO DE CARACTERES - Demuestra ajustes de espaciado de caracteres

5. ESPACIADO DE PALABRAS - Muestra modificaciones de espaciado de palabras

6. MODOS DE RENDERIZADO - Muestra diferentes efectos de renderizado de texto

Cada sección incluye encabezados apropiados, esquemas de navegación y

ejemplos prácticos con comparaciones antes/después cuando es aplicable.

}

begin

// Inicializar componente HotPDF

HotPDF := THotPDF.Create(nil);

try

// Configurar propiedades del documento PDF para visualización óptima de texto

HotPDF.AutoLaunch := true; // Abrir automáticamente PDF después de la creación

HotPDF.FontEmbedding := true; // Habilitar incrustación de fuentes para visualización consistente de caracteres en todos los sistemas

HotPDF.StandardFontEmulation := false; // Deshabilitar emulación de fuentes para prevenir problemas de mapeo de caracteres

HotPDF.FileName := 'TextOut.pdf'; // Establecer nombre de archivo de salida

HotPDF.PageLayout := plOneColumn; // Configurar visor para mostrar una columna

// Comenzar creación del documento PDF

HotPDF.BeginDoc(true); // Crear PDF con compresión habilitada

OutlineRoot := HotPDF.OutlineRoot; // Inicializar navegación de esquema del documento

// ====================================================================

// SECCIÓN 1: DEMOSTRACIÓN DE GRUPOS DE FUENTES

// ====================================================================

// Esta sección demuestra cómo aparecen diferentes familias de fuentes con

// varias combinaciones de estilos (normal, negrita, cursiva, negrita-cursiva)

// Crear encabezado de sección con formato mejorado

HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);

HotPDF.CurrentPage.TextOut(195, 30, 0, WideString('Mostrar Fuentes'));

// Agregar entrada de esquema de navegación para esta sección

OutlineRoot.AddChild('Mostrar Fuentes', 195, 30); // Enlaces a coordenadas

// Mostrar tres familias de fuentes principales comúnmente disponibles en todos los sistemas

ShowFontGroup('Arial', 50); // Fuente sans-serif en X=50

ShowFontGroup('Times New Roman', 180); // Fuente serif en X=180

ShowFontGroup('Courier New', 350); // Fuente monoespaciada en X=350

// ====================================================================

// SECCIÓN 2: DEMOSTRACIÓN DE CONJUNTOS DE CARACTERES

// ====================================================================

// Esta sección demuestra el manejo adecuado de diferentes codificaciones de caracteres de Windows

// Crear encabezado de sección

HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);

HotPDF.CurrentPage.TextOut(200, 170, 0, WideString('Conjuntos de Caracteres'));

// Crear grupo de esquema para conjuntos de caracteres con estructura expandible

// OutlineRoot.AddChild: Crea una nueva entrada de marcador/esquema en el árbol de navegación PDF

// Parámetros: ('Título', coordenada-X, coordenada-Y)

// - 'Conjuntos de Caracteres': Texto de visualización mostrado en el panel de esquema/marcador PDF

// - 250: Coordenada X (posición horizontal) donde hacer clic navegará

// - 170: Coordenada Y (posición vertical) donde hacer clic navegará

CurrnetOutline := OutlineRoot.AddChild('Conjuntos de Caracteres', 250, 170);

CurrnetOutline.Opened := true; // Expandir esta sección de esquema por defecto

CurrnetOutline.AddChild('ARABIC_CHARSET', 50, 225);

// Conjunto de caracteres árabe: rango Unicode U+0600-U+0659 (90 caracteres)

// Rango: 1536-1625 (bloque árabe incluyendo letras, puntuación, números y diacríticos)

// Muestra 90 caracteres árabes en 3 filas de 30 caracteres cada una

// Usado para: árabe, persa, urdu, pastún, kurdo y otros scripts RTL

// procedure ShowCharset(FontCharset: TFontCharset; First, Last: Integer; Y1, Y2: Integer);

// First es el código del primer carácter, genera secuencialmente hasta el carácter Last

// Y1 es la coordenada Y del título, y Y2 es la coordenada Y inicial del carácter

ShowCharset(ARABIC_CHARSET, 1536, 1625, 225, 250);

CurrnetOutline.AddChild('EASTEUROPE_CHARSET', 50, 325);

// Conjunto de caracteres de Europa Oriental: rango Unicode U+00A0-U+00F9 (90 caracteres)

// Rango: 160-249 (Suplemento Latin-1 con caracteres acentuados y símbolos)

// Muestra 90 caracteres latinos extendidos en 3 filas de 30 caracteres cada una

// Usado para: francés, alemán, español, portugués, italiano, holandés, idiomas nórdicos

// ShowCharset es solo para demostrar la visualización de caracteres del conjunto de caracteres a través de códigos de caracteres

// para visualización regular de texto, solo necesita usar TextOut para mostrar directamente la cadena requerida

ShowCharset(EASTEUROPE_CHARSET, 160, 249, 325, 350);

CurrnetOutline.AddChild('OEM_CHARSET', 50, 425);

// Conjunto de caracteres OEM: rango ASCII 32-121 (90 caracteres)

// Rango: 32-121 (ASCII imprimible incluyendo espacio, símbolos, números y letras)

// Muestra 90 caracteres ASCII en 3 filas de 30 caracteres cada una

// Usado para: aplicaciones DOS, salida de consola, sistemas heredados

ShowCharset(OEM_CHARSET, 32, 121, 425, 450);

CurrnetOutline.AddChild('RUSSIAN_CHARSET', 50, 525);

// Conjunto de caracteres ruso: rango Unicode U+0400-U+0459 (90 caracteres)

// Rango: 1024-1113 (bloque cirílico incluyendo letras rusas, ucranianas, búlgaras)

// Muestra 90 caracteres cirílicos en 3 filas de 30 caracteres cada una

// Usado para: ruso, búlgaro, serbio (cirílico), macedonio, ucraniano, bielorruso

ShowCharset(RUSSIAN_CHARSET, 1024, 1113, 525, 550);

CurrnetOutline.AddChild('TURKISH_CHARSET', 50, 625);

// Conjunto de caracteres turco: rango Unicode U+00A1-U+00FF (95 caracteres)

// Rango: 161-255 (Suplemento Latin-1 imprimible, evitando caracteres de control 128-160)

// Muestra 90 caracteres en 3 filas de 30 caracteres cada una (primeros 90 de 95 disponibles)

// Incluye especiales turcos: Ç(199), ç(231), Ğ(208), ğ(240), İ(221), ı(253), Ö(214), ö(246), Ş(222), ş(254), Ü(220), ü(252)

// Usado para: idioma turco con sus caracteres únicos y símbolos europeos

ShowCharset(TURKISH_CHARSET, 161, 255, 625, 650);

// ====================================================================

// SECCIÓN 3: DEMOSTRACIÓN DE ESCALADO DE TEXTO

// ====================================================================

// Esta sección muestra cómo el escalado horizontal de texto afecta la apariencia del texto

// El escalado modifica el ancho de los caracteres manteniendo la altura

// Comenzar nueva página para demostraciones de formato de texto avanzado

HotPDF.AddPage;

HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);

OutlineRoot.AddChild('Escalado horizontal de texto', 180, 40); // Agregar a navegación de esquema principal

HotPDF.CurrentPage.TextOut(180, 40, 0, WideString('Escalado horizontal de texto'));

// Crear estructura de tabla de comparación

ShowTable(130, 80);

// Agregar etiquetas descriptivas para la comparación

HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);

HotPDF.CurrentPage.TextOut(160, 100, 0, WideString('predeterminado 100')); // Etiqueta de escalado normal

HotPDF.CurrentPage.TextOut(165, 145, 0, WideString('establecer a 50')); // Etiqueta de escalado comprimido

// Demostrar escalado de texto normal (100% - predeterminado)

HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);

HotPDF.CurrentPage.TextOut(280, 95, 0, WideString('Palabra'));

// Demostrar escalado de texto comprimido (50% de ancho)

HotPDF.CurrentPage.SetHorizontalScaling(50); // Comprimir texto al 50% de ancho

HotPDF.CurrentPage.TextOut(285, 140, 0, WideString('Palabra'));

HotPDF.CurrentPage.SetHorizontalScaling(100); // Restablecer a escalado normal

// ====================================================================

// SECCIÓN 4: DEMOSTRACIÓN DE ESPACIADO DE CARACTERES

// ====================================================================

// Esta sección demuestra cómo el espaciado de caracteres afecta la legibilidad del texto

// El espaciado de caracteres agrega espacio uniforme entre caracteres individuales

HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);

OutlineRoot.AddChild('Espaciado de Caracteres', 200, 220);

HotPDF.CurrentPage.TextOut(200, 220, 0, WideString('Espaciado de Caracteres'));

// Crear tabla de comparación

ShowTable(130, 260);

// Agregar etiquetas descriptivas

HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);

HotPDF.CurrentPage.TextOut(162, 280, 0, WideString('predeterminado 0')); // Etiqueta de espaciado normal

HotPDF.CurrentPage.TextOut(162, 330, 0, WideString('establecer espacio 5')); // Etiqueta de espaciado expandido

// Demostrar espaciado de caracteres normal (0 - predeterminado)

HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);

HotPDF.CurrentPage.TextOut(278, 275, 0, WideString('Carácter'));

// Demostrar espaciado de caracteres expandido (+5 unidades entre caracteres)

HotPDF.CurrentPage.SetCharacterSpacing(5); // Agregar 5 unidades entre cada carácter

HotPDF.CurrentPage.TextOut(278, 320, 0, WideString('Carácter'));

HotPDF.CurrentPage.SetCharacterSpacing(0); // Restablecer a espaciado normal

// ====================================================================

// SECCIÓN 5: DEMOSTRACIÓN DE ESPACIADO DE PALABRAS

// ====================================================================

// Esta sección demuestra cómo el espaciado de palabras afecta el diseño del texto

// El espaciado de palabras agrega espacio específicamente entre palabras (en caracteres de espacio)

HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);

OutlineRoot.AddChild('Espaciado de Palabras', 200, 380);

HotPDF.CurrentPage.TextOut(200, 380, 0, WideString('Espaciado de Palabras'));

// Crear tabla de comparación

ShowTable(130, 420);

// Agregar etiquetas descriptivas

HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);

HotPDF.CurrentPage.TextOut(162, 440, 0, WideString('predeterminado 0')); // Etiqueta de espaciado de palabras normal

HotPDF.CurrentPage.TextOut(162, 490, 0, WideString('establecer espacio 10')); // Etiqueta de espaciado de palabras expandido

// Demostrar espaciado de palabras normal (0 - predeterminado)

HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);

HotPDF.CurrentPage.TextOut(280, 430, 0, WideString('Espacio Palabra'));

// Demostrar espaciado de palabras expandido (+10 unidades entre palabras)

HotPDF.CurrentPage.SetWordSpacing(10); // Agregar 10 unidades entre palabras

HotPDF.CurrentPage.TextOut(280, 480, 0, WideString('Espacio Palabra'));

HotPDF.CurrentPage.SetWordSpacing(0); // Restablecer a espaciado normal

// ====================================================================

// SECCIÓN 6: DEMOSTRACIÓN DE MODOS DE RENDERIZADO DE TEXTO

// ====================================================================

// Esta sección demuestra diferentes efectos de renderizado de texto disponibles en PDF

// El texto puede ser rellenado, contorneado, ambos, o invisible (para efectos avanzados)

HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);

OutlineRoot.AddChild('Modos de Renderizado', 200, 550);

HotPDF.CurrentPage.TextOut(200, 550, 0, WideString('Modos de Renderizado'));

// Crear una estructura de tabla compleja para comparación de modos de renderizado

// Contorno de tabla principal (500x150 píxeles)

HotPDF.CurrentPage.Rectangle(50, 600, 500, 150);

HotPDF.CurrentPage.Stroke;

// Divisores verticales creando 4 columnas de igual ancho

HotPDF.CurrentPage.MoveTo(175, 600); // Primer divisor

HotPDF.CurrentPage.LineTo(175, 750);

HotPDF.CurrentPage.Stroke;

HotPDF.CurrentPage.MoveTo(300, 600); // Segundo divisor

HotPDF.CurrentPage.LineTo(300, 750);

HotPDF.CurrentPage.Stroke;

HotPDF.CurrentPage.MoveTo(425, 600); // Tercer divisor

HotPDF.CurrentPage.LineTo(425, 750);

HotPDF.CurrentPage.Stroke;

// Divisor horizontal separando encabezado del contenido

HotPDF.CurrentPage.MoveTo(50, 665);

HotPDF.CurrentPage.LineTo(550, 665);

HotPDF.CurrentPage.Stroke;

// Agregar encabezados de columna describiendo cada modo de renderizado

HotPDF.CurrentPage.SetFont('Arial', [], 12);

HotPDF.CurrentPage.TextOut(100, 620, 0, WideString('Relleno')); // Modo relleno - texto coloreado sólido

HotPDF.CurrentPage.TextOut(215, 620, 0, WideString('Contorno')); // Modo contorno - texto delineado

HotPDF.CurrentPage.TextOut(320, 620, 0, WideString('Relleno Contorno')); // Modo combinado - rellenado con contorno

HotPDF.CurrentPage.TextOut(465, 620, 0, WideString('Invisible')); // Modo invisible - para efectos especiales

// Configurar colores para demostración dramática de efectos de renderizado

HotPDF.CurrentPage.SetFont('Arial', [fsBold], 72); // Fuente grande para visibilidad clara

HotPDF.CurrentPage.SetRGBStrokeColor(clRed); // Color de contorno rojo

HotPDF.CurrentPage.SetRGBFillColor(clYellow); // Color de relleno amarillo

// Demostrar modo de renderizado Relleno - texto coloreado sólido

HotPDF.CurrentPage.SetTextRenderingMode(trFill);

HotPDF.CurrentPage.TextOut(90, 670, 0, WideString('P'));

// Demostrar modo de renderizado Contorno - solo texto delineado

HotPDF.CurrentPage.SetTextRenderingMode(trStroke);

HotPDF.CurrentPage.TextOut(215, 670, 0, WideString('D'));

// Demostrar modo de renderizado Relleno+Contorno - texto rellenado con contorno coloreado

HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);

HotPDF.CurrentPage.TextOut(340, 670, 0, WideString('F'));

// Demostrar modo de renderizado Invisible - el texto está presente pero no es visible

// (útil para texto buscable sobre imágenes, o técnicas de diseño avanzadas)

HotPDF.CurrentPage.SetTextRenderingMode(trInvisible);

HotPDF.CurrentPage.TextOut(475, 670, 0, WideString('X'));

// Restablecer al modo de renderizado predeterminado para cualquier texto posterior

HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);

// Finalizar y guardar el documento PDF

HotPDF.EndDoc;

finally

// Asegurar limpieza adecuada del componente HotPDF

HotPDF.Free;

end;

end.

Discover more from losLab Software Development

Subscribe to get the latest posts sent to your email.

Ejemplo de TextOut del Componente HotPDF para Delphi

Ejemplo de TextOut del Componente HotPDF para Delphi – Estilo de Fuente y Conjunto de Caracteres

Características Clave Demostradas

📝 Nota Importante

Implementación Técnica

Like this:

Related

Discover more from losLab Software Development

Company Site

Ejemplo de TextOut del Componente HotPDF para Delphi – Estilo de Fuente y Conjunto de Caracteres

Características Clave Demostradas

📝 Nota Importante

Implementación Técnica

Share this:

Like this:

Related

Discover more from losLab Software Development

Company Site