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

{***************************************************************}
// 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.