Exemplo HotPDF Component Delphi TextOut – Estilo de Fonte e Conjunto de Caracteres

Este exemplo abrangente do componente HotPDF TextOut demonstra o manuseio avançado de fontes, suporte a conjuntos de caracteres, dimensionamento de texto, ajustes de espaçamento e modos de renderização. O exemplo gera demonstrações detalhadas de fontes e conjuntos de caracteres com exemplos práticos para geração de PDF em aplicações Delphi.

Exemplo HotPDF Component Delphi TextOut Mostrar Fontes Conjuntos de Caracteres

Demonstração de famílias de fontes mostrando Arial, Times New Roman e Courier New com diferentes estilos

Exemplo HotPDF Component Delphi TextOut Dimensionamento Espaçamento Modos de Renderização

Formatação avançada de texto: dimensionamento, espaçamento de caracteres/palavras e modos de renderização

Principais Recursos Demonstrados

Suporte a Famílias de Fontes: Arial, Times New Roman, Courier New com vários estilos
Manuseio de Conjuntos de Caracteres: Conjuntos de caracteres árabe, europeu oriental, OEM, russo e turco
Dimensionamento de Texto: Compressão e expansão horizontal do texto
Espaçamento de Caracteres: Ajuste fino do espaçamento de caracteres para melhor legibilidade
Espaçamento de Palavras: Ajuste do espaço entre palavras para melhor layout do texto
Modos de Renderização: Renderização de texto preenchido, contornado, preenchido+contornado e invisível

📝 Nota Importante

ShowCharset é usado apenas para demonstrar tecnicamente a exibição de caracteres de um conjunto de caracteres através de códigos de caracteres. Para exibição de texto regular, você pode simplesmente usar TextOut para exibir diretamente a string desejada sem precisar especificar códigos de caracteres.

O procedimento ShowCharset neste exemplo é especificamente projetado para mostrar como diferentes codificações de caracteres renderizam caracteres individuais por seus códigos Unicode/ASCII. Em aplicações reais, simplesmente use o método TextOut com suas strings de texto diretamente.

Implementação Técnica

Este exemplo demonstra as capacidades abrangentes de saída de texto do componente HotPDF, incluindo:

Incorporação de fontes para exibição consistente multiplataforma
Suporte a caracteres Unicode para texto internacional
Posicionamento e rotação avançados de texto
Geração de estrutura/marcadores PDF para navegação
Criação de documentos multipáginas com gerenciamento automático de páginas

{***************************************************************}
// Componente PDF HotPDF - Demonstração de Estilo de Texto e 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;

// Variáveis globais para gerenciamento de documento PDF e estrutura
var
  HotPDF: THotPDF; // Instância principal do componente HotPDF
  OutlineRoot: THPDFDocOutlineObject; // Objeto de estrutura raiz para navegação do documento
  CurrnetOutline: THPDFDocOutlineObject; // Objeto de estrutura atual para estrutura aninhada

  {
    ====================================================================
    ShowFontGroup - Exibe uma família de fontes com diferentes estilos
    ====================================================================

    PROPÓSITO:
    Demonstra como exibir a mesma fonte em diferentes estilos (normal, negrito,
    itálico, negrito-itálico) com vários ângulos de rotação de texto.

    PARÂMETROS:
    @param FontGroup: String - Nome da família de fontes a exibir (ex: 'Arial')
    @param Position: Integer - Coordenada X para posicionamento do texto

    FUNCIONALIDADE:
    1. Exibe o nome da fonte em estilo normal na posição base
    2. Mostra a versão negrito com rotação positiva (+1 grau)
    3. Mostra a versão itálico com rotação negativa (-1 grau)
    4. Mostra a combinação negrito-itálico em orientação normal

    LAYOUT:
    Cada estilo de fonte é exibido 20 pixels abaixo do anterior
  }

procedure ShowFontGroup(FontGroup: AnsiString; Position: Integer);
begin
  // procedure SetFont ( FontName: AnsiString; FontStyle: TFontStyles; ASize: Single; FontCharset: TFontCharset; IsVertiacal: Boolean);
  // Exibir estilo de fonte normal
  HotPDF.CurrentPage.SetFont(FontGroup, [], 12); // Definir fonte sem modificadores de estilo
  // procedure TextOut ( X, Y: Single; Angle: Extended; Text: WideString);
  HotPDF.CurrentPage.TextOut(Position, 70, 0, WideString(FontGroup)); // Exibir na posição Y base (70)

  // Exibir estilo de fonte negrito com ligeira rotação positiva
  HotPDF.CurrentPage.SetFont(FontGroup, [fsBold], 12); // Aplicar estilo negrito
  HotPDF.CurrentPage.TextOut(Position, 90, 1, WideString(FontGroup + '-Bold')); // Rotação +1 grau, Y+20

  // Exibir estilo de fonte itálico com ligeira rotação negativa
  HotPDF.CurrentPage.SetFont(FontGroup, [fsItalic], 12); // Aplicar estilo itálico
  HotPDF.CurrentPage.TextOut(Position, 110, - 1, WideString(FontGroup + '-Italic')); // Rotação -1 grau, Y+40

  // Exibir combinação negrito-itálico sem rotação
  HotPDF.CurrentPage.SetFont(FontGroup, [fsBold, fsItalic], 12); // Aplicar negrito e itálico
  HotPDF.CurrentPage.TextOut(Position, 130, 0, WideString(FontGroup + '-Bold-Italic')); // Orientação normal, Y+60
end;

{
  ====================================================================
  ShowCharset - Exibe caracteres para um conjunto de caracteres específico
  ====================================================================

  PROPÓSITO:
  Demonstra a exibição adequada de caracteres para diferentes codificações de caracteres

  PARÂMETROS:
  @param FontCharset: TFontCharset - Identificador de conjunto de caracteres Windows
  @param First: Integer - Código de caractere Unicode/ASCII inicial
  @param Last: Integer - Código de caractere Unicode/ASCII final (inclusivo)
  @param Y1: Integer - Coordenada Y para exibição do nome do conjunto de caracteres
  @param Y2: Integer - Coordenada Y para exibição da grade de caracteres

  FAIXAS DE CARACTERES:
  Cada conjunto de caracteres exibe caracteres de faixas Unicode/ASCII específicas:

  - ARABIC_CHARSET: Unicode 1536-1625 (caracteres do bloco árabe)
  - EASTEUROPE_CHARSET: Unicode 160-249 (Suplemento Latin-1)
  - OEM_CHARSET: ASCII 32-121 (caracteres ASCII imprimíveis)
  - RUSSIAN_CHARSET: Unicode 1024-1113 (caracteres do bloco cirílico)
  - TURKISH_CHARSET: Unicode 161-255 (Latin estendido imprimível)

  LAYOUT DE EXIBIÇÃO:
  Os caracteres são organizados em 3 fileiras com 30 caracteres por fileira:
  - Fileira 1: Caracteres 0-29, começando em X=50
  - Fileira 2: Caracteres 30-59, começando em X=50, Y+20
  - Fileira 3: Caracteres 60-89, começando em X=50, Y+40
  - Espaçamento de caracteres: 16 pixels horizontalmente, 20 pixels verticalmente
}

procedure ShowCharset(FontCharset: TFontCharset; First, Last: Integer; Y1, Y2: Integer);
var
  i: Integer; // Contador de loop para iteração de caracteres
  CSName: AnsiString; // Nome do conjunto de caracteres para exibição
  XPos, YPos: Integer; // Variáveis de posição
  CharCode: Integer; // Código de caractere a exibir
  CharCount: Integer; // Número de caracteres a exibir
  Row: Integer; // Fileira atual (1, 2 ou 3)
  CharInRow: Integer; // Posição do caractere dentro da fileira atual
begin
  // Configuração do conjunto de caracteres com nomes descritivos
  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;

  // Definir contagem de caracteres para exibir 90 caracteres (30 por fileira × 3 fileiras)
  CharCount := 90;
  if Last - First + 1 < CharCount then CharCount := Last - First + 1;

  // Exibir cabeçalho do conjunto de caracteres
  HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsItalic], 12);
  HotPDF.CurrentPage.TextOut(50, Y1, 0, WideString(CSName + ' exemplo: '));

  // Definir a fonte apropriada para exibição de caracteres com especificação do conjunto de caracteres
  HotPDF.CurrentPage.SetFont('Arial', [], 14, FontCharset);

  // Exibir caracteres em layout de 3 fileiras sem indentação
  for i := 0 to CharCount - 1 do
  begin
    // Determinar fileira e posição dentro da fileira
    if i < 30 then
    begin
      // Primeira fileira: 30 caracteres, alinhados com o título (x=50)
      Row := 1;
      CharInRow := i;
      XPos := 50 + CharInRow * 16;
      YPos := Y2;
    end else if i < 60 then
    begin
      // Segunda fileira: 30 caracteres, alinhados com o título (x=50)
      Row := 2;
      CharInRow := i - 30;
      XPos := 50 + CharInRow * 16;
      YPos := Y2 + 20; // 20 pixels abaixo da primeira fileira
    end
    else
    begin
      // Terceira fileira: caracteres restantes, alinhados com o título (x=50)
      Row := 3;
      CharInRow := i - 60;
      XPos := 50 + CharInRow * 16;
      YPos := Y2 + 40; // 40 pixels abaixo da primeira fileira
    end;

    // Calcular código do caractere
    CharCode := First + i;

    try
      // Usar conversão WideString para todos os caracteres
        HotPDF.CurrentPage.TextOut(XPos, YPos, 0, WideString(WideChar(CharCode)));
    except
      // Se ocorrer algum erro, exibir um caractere de fallback
        HotPDF.CurrentPage.TextOut(XPos, YPos, 0, WideString('?'));
    end;
  end;
end;

{
  ====================================================================
  ShowTable - Desenha uma estrutura de tabela de demonstração
  ====================================================================

  PROPÓSITO:
  Cria uma estrutura de tabela simples para demonstrar efeitos de formatação de texto.
  Usado nas seções de dimensionamento de texto, espaçamento de caracteres e espaçamento de palavras.

  PARÂMETROS:
  @param X: Integer - Coordenada X da borda esquerda
  @param Y: Integer - Coordenada Y da borda superior

  ESTRUTURA:
  Cria uma tabela de 300x100 pixels dividida em:
  - Célula superior: 300x50 pixels
  - Célula inferior: 300x50 pixels
  - Divisor vertical: 130 pixels da borda esquerda

  Todas as linhas são desenhadas com operação de contorno para visibilidade
}

procedure ShowTable(X, Y: Integer);
begin
  // Desenhar célula superior da tabela (retângulo 300x50)
  HotPDF.CurrentPage.Rectangle(X, Y, 300, 50);
  HotPDF.CurrentPage.Stroke;

  // Desenhar célula inferior da tabela (retângulo 300x50, deslocado 50 pixels para baixo)
  HotPDF.CurrentPage.Rectangle(X, Y + 50, 300, 50);
  HotPDF.CurrentPage.Stroke;

  // Desenhar linha divisória vertical através de ambas as células
  HotPDF.CurrentPage.MoveTo(X + 130, Y); // Começar no topo da célula superior
  HotPDF.CurrentPage.LineTo(X + 130, Y + 100); // Desenhar até o fundo da célula inferior
  HotPDF.CurrentPage.Stroke;
end;

{
  ====================================================================
  EXECUÇÃO DO PROGRAMA PRINCIPAL
  ====================================================================

  Este é o corpo principal do programa que demonstra todas as capacidades
  de saída de texto do HotPDF. O programa é estruturado em seções, cada uma
  demonstrando um aspecto específico do manuseio de texto:

  1. GRUPOS DE FONTES - Mostra diferentes famílias de fontes e estilos
  2. CONJUNTOS DE CARACTERES - Demonstra o manuseio de codificação de caracteres
  3. DIMENSIONAMENTO DE TEXTO - Mostra efeitos de dimensionamento horizontal de texto
  4. ESPAÇAMENTO DE CARACTERES - Demonstra ajustes de espaçamento de caracteres
  5. ESPAÇAMENTO DE PALAVRAS - Mostra modificações de espaçamento de palavras
  6. MODOS DE RENDERIZAÇÃO - Exibe diferentes efeitos de renderização de texto

  Cada seção inclui cabeçalhos apropriados, estruturas de navegação e
  exemplos práticos com comparações antes/depois quando aplicável.
}
begin
  // Inicializar componente HotPDF
  HotPDF := THotPDF.Create(nil);
  try
    // Configurar propriedades do documento PDF para exibição ótima de texto
    HotPDF.AutoLaunch := true; // Abrir automaticamente o PDF após criação
    HotPDF.FontEmbedding := true; // Habilitar incorporação de fontes para exibição consistente de caracteres em todos os sistemas
    HotPDF.StandardFontEmulation := false; // Desabilitar emulação de fontes para prevenir problemas de mapeamento de caracteres
    HotPDF.FileName := 'TextOut.pdf'; // Definir nome do arquivo de saída
    HotPDF.PageLayout := plOneColumn; // Configurar visualizador para exibir uma coluna

    // Iniciar criação do documento PDF
    HotPDF.BeginDoc(true); // Criar PDF com compressão habilitada
    OutlineRoot := HotPDF.OutlineRoot; // Inicializar navegação da estrutura do documento

    // ====================================================================
    // SEÇÃO 1: DEMONSTRAÇÃO DE GRUPOS DE FONTES
    // ====================================================================
    // Esta seção demonstra como diferentes famílias de fontes aparecem com
    // várias combinações de estilos (normal, negrito, itálico, negrito-itálico)

    // Criar cabeçalho de seção com formatação aprimorada
    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    HotPDF.CurrentPage.TextOut(195, 30, 0, WideString('Mostrar Fontes'));

    // Adicionar entrada de estrutura de navegação para esta seção
    OutlineRoot.AddChild('Mostrar Fontes', 195, 30); // Links para coordenadas

    // Exibir três principais famílias de fontes comumente disponíveis em todos os sistemas
    ShowFontGroup('Arial', 50); // Fonte sans-serif em X=50
    ShowFontGroup('Times New Roman', 180); // Fonte serif em X=180
    ShowFontGroup('Courier New', 350); // Fonte monoespaçada em X=350

    // ====================================================================
    // SEÇÃO 2: DEMONSTRAÇÃO DE CONJUNTOS DE CARACTERES
    // ====================================================================
    // Esta seção demonstra o manuseio adequado de diferentes codificações de caracteres Windows

    // Criar cabeçalho de seção
    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    HotPDF.CurrentPage.TextOut(200, 170, 0, WideString('Conjuntos de Caracteres'));

    // Criar grupo de estrutura para conjuntos de caracteres com estrutura expansível
    // OutlineRoot.AddChild: Cria uma nova entrada de marcador/estrutura na árvore de navegação PDF
    // Parâmetros: ('Título', coordenada-X, coordenada-Y)
    // - 'Conjuntos de Caracteres': Texto de exibição mostrado no painel de estrutura/marcador PDF
    // - 250: Coordenada X (posição horizontal) para onde o clique navegará
    // - 170: Coordenada Y (posição vertical) para onde o clique navegará
    CurrnetOutline := OutlineRoot.AddChild('Conjuntos de Caracteres', 250, 170);
    CurrnetOutline.Opened := true; // Expandir esta seção de estrutura por padrão

    CurrnetOutline.AddChild('ARABIC_CHARSET', 50, 225);
    // Conjunto de caracteres árabe: faixa Unicode U+0600-U+0659 (90 caracteres)
    // Faixa: 1536-1625 (bloco árabe incluindo letras, pontuação, números e diacríticos)
    // Exibe 90 caracteres árabes em 3 fileiras de 30 caracteres cada
    // Usado para: árabe, persa, urdu, pashto, curdo e outros scripts RTL

    // procedure ShowCharset(FontCharset: TFontCharset; First, Last: Integer; Y1, Y2: Integer);
    // First é o código do primeiro caractere, saída sequencial até o último caractere
    // Y1 é a coordenada Y do título, e Y2 é a coordenada Y inicial dos caracteres
    ShowCharset(ARABIC_CHARSET, 1536, 1625, 225, 250);

    CurrnetOutline.AddChild('EASTEUROPE_CHARSET', 50, 325);
    // Conjunto de caracteres europeu oriental: faixa Unicode U+00A0-U+00F9 (90 caracteres)
    // Faixa: 160-249 (Suplemento Latin-1 com caracteres acentuados e símbolos)
    // Exibe 90 caracteres latinos estendidos em 3 fileiras de 30 caracteres cada
    // Usado para: francês, alemão, espanhol, português, italiano, holandês, idiomas nórdicos

    // ShowCharset é apenas para demonstrar a exibição de caracteres do conjunto de caracteres através de códigos de caracteres
    // para exibição de texto regular, você só precisa usar TextOut para mostrar diretamente a string necessária
    ShowCharset(EASTEUROPE_CHARSET, 160, 249, 325, 350);

    CurrnetOutline.AddChild('OEM_CHARSET', 50, 425);
    // Conjunto de caracteres OEM: faixa ASCII 32-121 (90 caracteres)
    // Faixa: 32-121 (ASCII imprimível incluindo espaço, símbolos, números e letras)
    // Exibe 90 caracteres ASCII em 3 fileiras de 30 caracteres cada
    // Usado para: aplicações DOS, saída de console, sistemas legados
    ShowCharset(OEM_CHARSET, 32, 121, 425, 450);

    CurrnetOutline.AddChild('RUSSIAN_CHARSET', 50, 525);
    // Conjunto de caracteres russo: faixa Unicode U+0400-U+0459 (90 caracteres)
    // Faixa: 1024-1113 (bloco cirílico incluindo letras russas, ucranianas, búlgaras)
    // Exibe 90 caracteres cirílicos em 3 fileiras de 30 caracteres cada
    // Usado para: russo, búlgaro, sérvio (cirílico), macedônio, ucraniano, bielorrusso
    ShowCharset(RUSSIAN_CHARSET, 1024, 1113, 525, 550);

    CurrnetOutline.AddChild('TURKISH_CHARSET', 50, 625);
    // Conjunto de caracteres turco: faixa Unicode U+00A1-U+00FF (95 caracteres)
    // Faixa: 161-255 (Suplemento Latin-1 imprimível, evitando caracteres de controle 128-160)
    // Exibe 90 caracteres em 3 fileiras de 30 caracteres cada (primeiros 90 dos 95 disponíveis)
    // Inclui especiais turcos: Ç(199), ç(231), Ğ(208), ğ(240), İ(221), ı(253), Ö(214), ö(246), Ş(222), ş(254), Ü(220), ü(252)
    // Usado para: idioma turco com seus caracteres únicos e símbolos europeus
    ShowCharset(TURKISH_CHARSET, 161, 255, 625, 650);

    // ====================================================================
    // SEÇÃO 3: DEMONSTRAÇÃO DE DIMENSIONAMENTO DE TEXTO
    // ====================================================================
    // Esta seção mostra como o dimensionamento horizontal de texto afeta a aparência do texto
    // O dimensionamento modifica a largura dos caracteres mantendo a altura

    // Iniciar nova página para demonstrações de formatação avançada de texto
    HotPDF.AddPage;

    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    OutlineRoot.AddChild('Dimensionamento horizontal de texto', 180, 40); // Adicionar à navegação da estrutura principal
    HotPDF.CurrentPage.TextOut(180, 40, 0, WideString('Dimensionamento horizontal de texto'));

    // Criar estrutura de tabela de comparação
    ShowTable(130, 80);

    // Adicionar rótulos descritivos para a comparação
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);
    HotPDF.CurrentPage.TextOut(160, 100, 0, WideString('padrão 100')); // Rótulo de dimensionamento normal
    HotPDF.CurrentPage.TextOut(165, 145, 0, WideString('definido para 50')); // Rótulo de dimensionamento comprimido

    // Demonstrar dimensionamento normal de texto (100% - padrão)
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);
    HotPDF.CurrentPage.TextOut(280, 95, 0, WideString('Palavra'));

    // Demonstrar dimensionamento comprimido de texto (50% de largura)
    HotPDF.CurrentPage.SetHorizontalScaling(50); // Comprimir texto para 50% de largura
    HotPDF.CurrentPage.TextOut(285, 140, 0, WideString('Palavra'));
    HotPDF.CurrentPage.SetHorizontalScaling(100); // Redefinir para dimensionamento normal

    // ====================================================================
    // SEÇÃO 4: DEMONSTRAÇÃO DE ESPAÇAMENTO DE CARACTERES
    // ====================================================================
    // Esta seção demonstra como o espaçamento de caracteres afeta a legibilidade do texto
    // O espaçamento de caracteres adiciona espaço uniforme entre caracteres individuais

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

    // Criar tabela de comparação
    ShowTable(130, 260);

    // Adicionar rótulos descritivos
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);
    HotPDF.CurrentPage.TextOut(162, 280, 0, WideString('padrão 0')); // Rótulo de espaçamento normal
    HotPDF.CurrentPage.TextOut(162, 330, 0, WideString('espaço definido 5')); // Rótulo de espaçamento expandido

    // Demonstrar espaçamento normal de caracteres (0 - padrão)
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);
    HotPDF.CurrentPage.TextOut(278, 275, 0, WideString('Caractere'));

    // Demonstrar espaçamento expandido de caracteres (+5 unidades entre caracteres)
    HotPDF.CurrentPage.SetCharacterSpacing(5); // Adicionar 5 unidades entre cada caractere
    HotPDF.CurrentPage.TextOut(278, 320, 0, WideString('Caractere'));
    HotPDF.CurrentPage.SetCharacterSpacing(0); // Redefinir para espaçamento normal

    // ====================================================================
    // SEÇÃO 5: DEMONSTRAÇÃO DE ESPAÇAMENTO DE PALAVRAS
    // ====================================================================
    // Esta seção demonstra como o espaçamento de palavras afeta o layout do texto
    // O espaçamento de palavras adiciona espaço especificamente entre palavras (em caracteres de espaço)

    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    OutlineRoot.AddChild('Espaçamento de Palavras', 200, 380);
    HotPDF.CurrentPage.TextOut(200, 380, 0, WideString('Espaçamento de Palavras'));

    // Criar tabela de comparação
    ShowTable(130, 420);

    // Adicionar rótulos descritivos
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);
    HotPDF.CurrentPage.TextOut(162, 440, 0, WideString('padrão 0')); // Rótulo de espaçamento normal de palavras
    HotPDF.CurrentPage.TextOut(162, 490, 0, WideString('espaço definido 10')); // Rótulo de espaçamento expandido de palavras

    // Demonstrar espaçamento normal de palavras (0 - padrão)
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);
    HotPDF.CurrentPage.TextOut(280, 430, 0, WideString('Espaço Palavra'));

    // Demonstrar espaçamento expandido de palavras (+10 unidades entre palavras)
    HotPDF.CurrentPage.SetWordSpacing(10); // Adicionar 10 unidades entre palavras
    HotPDF.CurrentPage.TextOut(280, 480, 0, WideString('Espaço Palavra'));
    HotPDF.CurrentPage.SetWordSpacing(0); // Redefinir para espaçamento normal

    // ====================================================================
    // SEÇÃO 6: DEMONSTRAÇÃO DE MODOS DE RENDERIZAÇÃO DE TEXTO
    // ====================================================================
    // Esta seção demonstra diferentes efeitos de renderização de texto disponíveis em PDF
    // O texto pode ser preenchido, contornado, ambos, ou invisível (para efeitos avançados)

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

    // Criar uma estrutura de tabela complexa para comparação de modos de renderização
    // Contorno da tabela principal (500x150 pixels)
    HotPDF.CurrentPage.Rectangle(50, 600, 500, 150);
    HotPDF.CurrentPage.Stroke;

    // Divisores verticais criando 4 colunas de largura igual
    HotPDF.CurrentPage.MoveTo(175, 600); // Primeiro 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); // Terceiro divisor
    HotPDF.CurrentPage.LineTo(425, 750);
    HotPDF.CurrentPage.Stroke;

    // Divisor horizontal separando cabeçalho do conteúdo
    HotPDF.CurrentPage.MoveTo(50, 665);
    HotPDF.CurrentPage.LineTo(550, 665);
    HotPDF.CurrentPage.Stroke;

    // Adicionar cabeçalhos de colunas descrevendo cada modo de renderização
    HotPDF.CurrentPage.SetFont('Arial', [], 12);
    HotPDF.CurrentPage.TextOut(100, 620, 0, WideString('Preencher')); // Modo preencher - texto colorido sólido
    HotPDF.CurrentPage.TextOut(215, 620, 0, WideString('Contorno')); // Modo contorno - texto contornado
    HotPDF.CurrentPage.TextOut(320, 620, 0, WideString('Preencher Contorno')); // Modo combinado - preenchido com contorno
    HotPDF.CurrentPage.TextOut(465, 620, 0, WideString('Invisível')); // Modo invisível - para efeitos especiais

    // Configurar cores para demonstração dramática de efeito de renderização
    HotPDF.CurrentPage.SetFont('Arial', [fsBold], 72); // Fonte grande para visibilidade clara
    HotPDF.CurrentPage.SetRGBStrokeColor(clRed); // Cor de contorno vermelha
    HotPDF.CurrentPage.SetRGBFillColor(clYellow); // Cor de preenchimento amarela

    // Demonstrar modo de renderização Preencher - texto colorido sólido
    HotPDF.CurrentPage.SetTextRenderingMode(trFill);
    HotPDF.CurrentPage.TextOut(90, 670, 0, WideString('P'));

    // Demonstrar modo de renderização Contorno - apenas texto contornado
    HotPDF.CurrentPage.SetTextRenderingMode(trStroke);
    HotPDF.CurrentPage.TextOut(215, 670, 0, WideString('D'));

    // Demonstrar modo de renderização Preencher+Contorno - texto preenchido com contorno colorido
    HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);
    HotPDF.CurrentPage.TextOut(340, 670, 0, WideString('F'));

    // Demonstrar modo de renderização Invisível - texto está presente mas não visível
    // (útil para texto pesquisável sobre imagens, ou técnicas de layout avançadas)
    HotPDF.CurrentPage.SetTextRenderingMode(trInvisible);
    HotPDF.CurrentPage.TextOut(475, 670, 0, WideString('X'));

    // Redefinir para modo de renderização padrão para qualquer texto subsequente
    HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);

    // Finalizar e salvar o documento PDF
    HotPDF.EndDoc;

  finally
    // Garantir limpeza adequada do 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 - Demonstração de Estilo de Texto e 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;

// Variáveis globais para gerenciamento de documento PDF e estrutura

var

HotPDF: THotPDF; // Instância principal do componente HotPDF

OutlineRoot: THPDFDocOutlineObject; // Objeto de estrutura raiz para navegação do documento

CurrnetOutline: THPDFDocOutlineObject; // Objeto de estrutura atual para estrutura aninhada

{

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

ShowFontGroup - Exibe uma família de fontes com diferentes estilos

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

PROPÓSITO:

Demonstra como exibir a mesma fonte em diferentes estilos (normal, negrito,

itálico, negrito-itálico) com vários ângulos de rotação de texto.

PARÂMETROS:

@param FontGroup: String - Nome da família de fontes a exibir (ex: 'Arial')

@param Position: Integer - Coordenada X para posicionamento do texto

FUNCIONALIDADE:

1. Exibe o nome da fonte em estilo normal na posição base

2. Mostra a versão negrito com rotação positiva (+1 grau)

3. Mostra a versão itálico com rotação negativa (-1 grau)

4. Mostra a combinação negrito-itálico em orientação normal

LAYOUT:

Cada estilo de fonte é exibido 20 pixels abaixo do anterior

}

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

begin

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

// Exibir estilo de fonte normal

HotPDF.CurrentPage.SetFont(FontGroup, [], 12); // Definir fonte sem modificadores de estilo

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

HotPDF.CurrentPage.TextOut(Position, 70, 0, WideString(FontGroup)); // Exibir na posição Y base (70)

// Exibir estilo de fonte negrito com ligeira rotação positiva

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

HotPDF.CurrentPage.TextOut(Position, 90, 1, WideString(FontGroup + '-Bold')); // Rotação +1 grau, Y+20

// Exibir estilo de fonte itálico com ligeira rotação negativa

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

HotPDF.CurrentPage.TextOut(Position, 110, - 1, WideString(FontGroup + '-Italic')); // Rotação -1 grau, Y+40

// Exibir combinação negrito-itálico sem rotação

HotPDF.CurrentPage.SetFont(FontGroup, [fsBold, fsItalic], 12); // Aplicar negrito e itálico

HotPDF.CurrentPage.TextOut(Position, 130, 0, WideString(FontGroup + '-Bold-Italic')); // Orientação normal, Y+60

end;

{

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

ShowCharset - Exibe caracteres para um conjunto de caracteres específico

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

PROPÓSITO:

Demonstra a exibição adequada de caracteres para diferentes codificações de caracteres

PARÂMETROS:

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

@param First: Integer - Código de caractere Unicode/ASCII inicial

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

@param Y1: Integer - Coordenada Y para exibição do nome do conjunto de caracteres

@param Y2: Integer - Coordenada Y para exibição da grade de caracteres

FAIXAS DE CARACTERES:

Cada conjunto de caracteres exibe caracteres de faixas Unicode/ASCII específicas:

- ARABIC_CHARSET: Unicode 1536-1625 (caracteres do bloco árabe)

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

- OEM_CHARSET: ASCII 32-121 (caracteres ASCII imprimíveis)

- RUSSIAN_CHARSET: Unicode 1024-1113 (caracteres do bloco cirílico)

- TURKISH_CHARSET: Unicode 161-255 (Latin estendido imprimível)

LAYOUT DE EXIBIÇÃO:

Os caracteres são organizados em 3 fileiras com 30 caracteres por fileira:

- Fileira 1: Caracteres 0-29, começando em X=50

- Fileira 2: Caracteres 30-59, começando em X=50, Y+20

- Fileira 3: Caracteres 60-89, começando em X=50, Y+40

- Espaçamento de caracteres: 16 pixels horizontalmente, 20 pixels verticalmente

}

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

var

i: Integer; // Contador de loop para iteração de caracteres

CSName: AnsiString; // Nome do conjunto de caracteres para exibição

XPos, YPos: Integer; // Variáveis de posição

CharCode: Integer; // Código de caractere a exibir

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

Row: Integer; // Fileira atual (1, 2 ou 3)

CharInRow: Integer; // Posição do caractere dentro da fileira atual

begin

// Configuração do conjunto de caracteres com nomes descritivos

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;

// Definir contagem de caracteres para exibir 90 caracteres (30 por fileira × 3 fileiras)

CharCount := 90;

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

// Exibir cabeçalho do conjunto de caracteres

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

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

// Definir a fonte apropriada para exibição de caracteres com especificação do conjunto de caracteres

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

// Exibir caracteres em layout de 3 fileiras sem indentação

for i := 0 to CharCount - 1 do

begin

// Determinar fileira e posição dentro da fileira

if i < 30 then

begin

// Primeira fileira: 30 caracteres, alinhados com o título (x=50)

Row := 1;

CharInRow := i;

XPos := 50 + CharInRow * 16;

YPos := Y2;

end else if i < 60 then

begin

// Segunda fileira: 30 caracteres, alinhados com o título (x=50)

Row := 2;

CharInRow := i - 30;

XPos := 50 + CharInRow * 16;

YPos := Y2 + 20; // 20 pixels abaixo da primeira fileira

end

else

begin

// Terceira fileira: caracteres restantes, alinhados com o título (x=50)

Row := 3;

CharInRow := i - 60;

XPos := 50 + CharInRow * 16;

YPos := Y2 + 40; // 40 pixels abaixo da primeira fileira

end;

// Calcular código do caractere

CharCode := First + i;

try

// Usar conversão WideString para todos os caracteres

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

except

// Se ocorrer algum erro, exibir um caractere de fallback

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

end;

{

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

ShowTable - Desenha uma estrutura de tabela de demonstração

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

PROPÓSITO:

Cria uma estrutura de tabela simples para demonstrar efeitos de formatação de texto.

Usado nas seções de dimensionamento de texto, espaçamento de caracteres e espaçamento de palavras.

PARÂMETROS:

@param X: Integer - Coordenada X da borda esquerda

@param Y: Integer - Coordenada Y da borda superior

ESTRUTURA:

Cria uma tabela de 300x100 pixels dividida em:

- Célula superior: 300x50 pixels

- Célula inferior: 300x50 pixels

- Divisor vertical: 130 pixels da borda esquerda

Todas as linhas são desenhadas com operação de contorno para visibilidade

}

procedure ShowTable(X, Y: Integer);

begin

// Desenhar célula superior da tabela (retângulo 300x50)

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

HotPDF.CurrentPage.Stroke;

// Desenhar célula inferior da tabela (retângulo 300x50, deslocado 50 pixels para baixo)

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

HotPDF.CurrentPage.Stroke;

// Desenhar linha divisória vertical através de ambas as células

HotPDF.CurrentPage.MoveTo(X + 130, Y); // Começar no topo da célula superior

HotPDF.CurrentPage.LineTo(X + 130, Y + 100); // Desenhar até o fundo da célula inferior

HotPDF.CurrentPage.Stroke;

end;

{

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

EXECUÇÃO DO PROGRAMA PRINCIPAL

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

Este é o corpo principal do programa que demonstra todas as capacidades

de saída de texto do HotPDF. O programa é estruturado em seções, cada uma

demonstrando um aspecto específico do manuseio de texto:

1. GRUPOS DE FONTES - Mostra diferentes famílias de fontes e estilos

2. CONJUNTOS DE CARACTERES - Demonstra o manuseio de codificação de caracteres

3. DIMENSIONAMENTO DE TEXTO - Mostra efeitos de dimensionamento horizontal de texto

4. ESPAÇAMENTO DE CARACTERES - Demonstra ajustes de espaçamento de caracteres

5. ESPAÇAMENTO DE PALAVRAS - Mostra modificações de espaçamento de palavras

6. MODOS DE RENDERIZAÇÃO - Exibe diferentes efeitos de renderização de texto

Cada seção inclui cabeçalhos apropriados, estruturas de navegação e

exemplos práticos com comparações antes/depois quando aplicável.

}

begin

// Inicializar componente HotPDF

HotPDF := THotPDF.Create(nil);

try

// Configurar propriedades do documento PDF para exibição ótima de texto

HotPDF.AutoLaunch := true; // Abrir automaticamente o PDF após criação

HotPDF.FontEmbedding := true; // Habilitar incorporação de fontes para exibição consistente de caracteres em todos os sistemas

HotPDF.StandardFontEmulation := false; // Desabilitar emulação de fontes para prevenir problemas de mapeamento de caracteres

HotPDF.FileName := 'TextOut.pdf'; // Definir nome do arquivo de saída

HotPDF.PageLayout := plOneColumn; // Configurar visualizador para exibir uma coluna

// Iniciar criação do documento PDF

HotPDF.BeginDoc(true); // Criar PDF com compressão habilitada

OutlineRoot := HotPDF.OutlineRoot; // Inicializar navegação da estrutura do documento

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

// SEÇÃO 1: DEMONSTRAÇÃO DE GRUPOS DE FONTES

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

// Esta seção demonstra como diferentes famílias de fontes aparecem com

// várias combinações de estilos (normal, negrito, itálico, negrito-itálico)

// Criar cabeçalho de seção com formatação aprimorada

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

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

// Adicionar entrada de estrutura de navegação para esta seção

OutlineRoot.AddChild('Mostrar Fontes', 195, 30); // Links para coordenadas

// Exibir três principais famílias de fontes comumente disponíveis em todos os sistemas

ShowFontGroup('Arial', 50); // Fonte sans-serif em X=50

ShowFontGroup('Times New Roman', 180); // Fonte serif em X=180

ShowFontGroup('Courier New', 350); // Fonte monoespaçada em X=350

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

// SEÇÃO 2: DEMONSTRAÇÃO DE CONJUNTOS DE CARACTERES

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

// Esta seção demonstra o manuseio adequado de diferentes codificações de caracteres Windows

// Criar cabeçalho de seção

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

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

// Criar grupo de estrutura para conjuntos de caracteres com estrutura expansível

// OutlineRoot.AddChild: Cria uma nova entrada de marcador/estrutura na árvore de navegação PDF

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

// - 'Conjuntos de Caracteres': Texto de exibição mostrado no painel de estrutura/marcador PDF

// - 250: Coordenada X (posição horizontal) para onde o clique navegará

// - 170: Coordenada Y (posição vertical) para onde o clique navegará

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

CurrnetOutline.Opened := true; // Expandir esta seção de estrutura por padrão

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

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

// Faixa: 1536-1625 (bloco árabe incluindo letras, pontuação, números e diacríticos)

// Exibe 90 caracteres árabes em 3 fileiras de 30 caracteres cada

// Usado para: árabe, persa, urdu, pashto, curdo e outros scripts RTL

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

// First é o código do primeiro caractere, saída sequencial até o último caractere

// Y1 é a coordenada Y do título, e Y2 é a coordenada Y inicial dos caracteres

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

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

// Conjunto de caracteres europeu oriental: faixa Unicode U+00A0-U+00F9 (90 caracteres)

// Faixa: 160-249 (Suplemento Latin-1 com caracteres acentuados e símbolos)

// Exibe 90 caracteres latinos estendidos em 3 fileiras de 30 caracteres cada

// Usado para: francês, alemão, espanhol, português, italiano, holandês, idiomas nórdicos

// ShowCharset é apenas para demonstrar a exibição de caracteres do conjunto de caracteres através de códigos de caracteres

// para exibição de texto regular, você só precisa usar TextOut para mostrar diretamente a string necessária

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

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

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

// Faixa: 32-121 (ASCII imprimível incluindo espaço, símbolos, números e letras)

// Exibe 90 caracteres ASCII em 3 fileiras de 30 caracteres cada

// Usado para: aplicações DOS, saída de console, sistemas legados

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

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

// Conjunto de caracteres russo: faixa Unicode U+0400-U+0459 (90 caracteres)

// Faixa: 1024-1113 (bloco cirílico incluindo letras russas, ucranianas, búlgaras)

// Exibe 90 caracteres cirílicos em 3 fileiras de 30 caracteres cada

// Usado para: russo, búlgaro, sérvio (cirílico), macedônio, ucraniano, bielorrusso

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

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

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

// Faixa: 161-255 (Suplemento Latin-1 imprimível, evitando caracteres de controle 128-160)

// Exibe 90 caracteres em 3 fileiras de 30 caracteres cada (primeiros 90 dos 95 disponíveis)

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

// Usado para: idioma turco com seus caracteres únicos e símbolos europeus

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

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

// SEÇÃO 3: DEMONSTRAÇÃO DE DIMENSIONAMENTO DE TEXTO

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

// Esta seção mostra como o dimensionamento horizontal de texto afeta a aparência do texto

// O dimensionamento modifica a largura dos caracteres mantendo a altura

// Iniciar nova página para demonstrações de formatação avançada de texto

HotPDF.AddPage;

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

OutlineRoot.AddChild('Dimensionamento horizontal de texto', 180, 40); // Adicionar à navegação da estrutura principal

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

// Criar estrutura de tabela de comparação

ShowTable(130, 80);

// Adicionar rótulos descritivos para a comparação

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

HotPDF.CurrentPage.TextOut(160, 100, 0, WideString('padrão 100')); // Rótulo de dimensionamento normal

HotPDF.CurrentPage.TextOut(165, 145, 0, WideString('definido para 50')); // Rótulo de dimensionamento comprimido

// Demonstrar dimensionamento normal de texto (100% - padrão)

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

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

// Demonstrar dimensionamento comprimido de texto (50% de largura)

HotPDF.CurrentPage.SetHorizontalScaling(50); // Comprimir texto para 50% de largura

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

HotPDF.CurrentPage.SetHorizontalScaling(100); // Redefinir para dimensionamento normal

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

// SEÇÃO 4: DEMONSTRAÇÃO DE ESPAÇAMENTO DE CARACTERES

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

// Esta seção demonstra como o espaçamento de caracteres afeta a legibilidade do texto

// O espaçamento de caracteres adiciona espaço uniforme entre caracteres individuais

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

OutlineRoot.AddChild('Espaçamento de Caracteres', 200, 220);

HotPDF.CurrentPage.TextOut(200, 220, 0, WideString('Espaçamento de Caracteres'));

// Criar tabela de comparação

ShowTable(130, 260);

// Adicionar rótulos descritivos

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

HotPDF.CurrentPage.TextOut(162, 280, 0, WideString('padrão 0')); // Rótulo de espaçamento normal

HotPDF.CurrentPage.TextOut(162, 330, 0, WideString('espaço definido 5')); // Rótulo de espaçamento expandido

// Demonstrar espaçamento normal de caracteres (0 - padrão)

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

HotPDF.CurrentPage.TextOut(278, 275, 0, WideString('Caractere'));

// Demonstrar espaçamento expandido de caracteres (+5 unidades entre caracteres)

HotPDF.CurrentPage.SetCharacterSpacing(5); // Adicionar 5 unidades entre cada caractere

HotPDF.CurrentPage.TextOut(278, 320, 0, WideString('Caractere'));

HotPDF.CurrentPage.SetCharacterSpacing(0); // Redefinir para espaçamento normal

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

// SEÇÃO 5: DEMONSTRAÇÃO DE ESPAÇAMENTO DE PALAVRAS

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

// Esta seção demonstra como o espaçamento de palavras afeta o layout do texto

// O espaçamento de palavras adiciona espaço especificamente entre palavras (em caracteres de espaço)

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

OutlineRoot.AddChild('Espaçamento de Palavras', 200, 380);

HotPDF.CurrentPage.TextOut(200, 380, 0, WideString('Espaçamento de Palavras'));

// Criar tabela de comparação

ShowTable(130, 420);

// Adicionar rótulos descritivos

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

HotPDF.CurrentPage.TextOut(162, 440, 0, WideString('padrão 0')); // Rótulo de espaçamento normal de palavras

HotPDF.CurrentPage.TextOut(162, 490, 0, WideString('espaço definido 10')); // Rótulo de espaçamento expandido de palavras

// Demonstrar espaçamento normal de palavras (0 - padrão)

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

HotPDF.CurrentPage.TextOut(280, 430, 0, WideString('Espaço Palavra'));

// Demonstrar espaçamento expandido de palavras (+10 unidades entre palavras)

HotPDF.CurrentPage.SetWordSpacing(10); // Adicionar 10 unidades entre palavras

HotPDF.CurrentPage.TextOut(280, 480, 0, WideString('Espaço Palavra'));

HotPDF.CurrentPage.SetWordSpacing(0); // Redefinir para espaçamento normal

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

// SEÇÃO 6: DEMONSTRAÇÃO DE MODOS DE RENDERIZAÇÃO DE TEXTO

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

// Esta seção demonstra diferentes efeitos de renderização de texto disponíveis em PDF

// O texto pode ser preenchido, contornado, ambos, ou invisível (para efeitos avançados)

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

OutlineRoot.AddChild('Modos de Renderização', 200, 550);

HotPDF.CurrentPage.TextOut(200, 550, 0, WideString('Modos de Renderização'));

// Criar uma estrutura de tabela complexa para comparação de modos de renderização

// Contorno da tabela principal (500x150 pixels)

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

HotPDF.CurrentPage.Stroke;

// Divisores verticais criando 4 colunas de largura igual

HotPDF.CurrentPage.MoveTo(175, 600); // Primeiro 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); // Terceiro divisor

HotPDF.CurrentPage.LineTo(425, 750);

HotPDF.CurrentPage.Stroke;

// Divisor horizontal separando cabeçalho do conteúdo

HotPDF.CurrentPage.MoveTo(50, 665);

HotPDF.CurrentPage.LineTo(550, 665);

HotPDF.CurrentPage.Stroke;

// Adicionar cabeçalhos de colunas descrevendo cada modo de renderização

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

HotPDF.CurrentPage.TextOut(100, 620, 0, WideString('Preencher')); // Modo preencher - texto colorido sólido

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

HotPDF.CurrentPage.TextOut(320, 620, 0, WideString('Preencher Contorno')); // Modo combinado - preenchido com contorno

HotPDF.CurrentPage.TextOut(465, 620, 0, WideString('Invisível')); // Modo invisível - para efeitos especiais

// Configurar cores para demonstração dramática de efeito de renderização

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

HotPDF.CurrentPage.SetRGBStrokeColor(clRed); // Cor de contorno vermelha

HotPDF.CurrentPage.SetRGBFillColor(clYellow); // Cor de preenchimento amarela

// Demonstrar modo de renderização Preencher - texto colorido sólido

HotPDF.CurrentPage.SetTextRenderingMode(trFill);

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

// Demonstrar modo de renderização Contorno - apenas texto contornado

HotPDF.CurrentPage.SetTextRenderingMode(trStroke);

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

// Demonstrar modo de renderização Preencher+Contorno - texto preenchido com contorno colorido

HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);

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

// Demonstrar modo de renderização Invisível - texto está presente mas não visível

// (útil para texto pesquisável sobre imagens, ou técnicas de layout avançadas)

HotPDF.CurrentPage.SetTextRenderingMode(trInvisible);

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

// Redefinir para modo de renderização padrão para qualquer texto subsequente

HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);

// Finalizar e salvar o documento PDF

HotPDF.EndDoc;

finally

// Garantir limpeza adequada do componente HotPDF

HotPDF.Free;

end;

end.

Discover more from losLab Software Development

Subscribe to get the latest posts sent to your email.

Exemplo HotPDF Component Delphi TextOut

Exemplo HotPDF Component Delphi TextOut – Estilo de Fonte e Conjunto de Caracteres

Principais Recursos Demonstrados

📝 Nota Importante

Implementação Técnica

Like this:

Related

Discover more from losLab Software Development

Company Site

Exemplo HotPDF Component Delphi TextOut – Estilo de Fonte e Conjunto de Caracteres

Principais Recursos Demonstrados

📝 Nota Importante

Implementação Técnica

Share this:

Like this:

Related

Discover more from losLab Software Development

Company Site