Esempio HotPDF Component Delphi TextOut – Stile Font e Set di Caratteri

Questo esempio completo del componente HotPDF TextOut dimostra la gestione avanzata dei font, il supporto per set di caratteri, il ridimensionamento del testo, le regolazioni di spaziatura e le modalità di rendering. L’esempio genera dimostrazioni dettagliate di font e set di caratteri con esempi pratici per la generazione PDF nelle applicazioni Delphi.

Esempio HotPDF Component Delphi TextOut Mostra Font Set di Caratteri

Dimostrazione delle famiglie di font che mostra Arial, Times New Roman e Courier New con diversi stili

Esempio HotPDF Component Delphi TextOut Ridimensionamento Spaziatura Modalità Rendering

Formattazione avanzata del testo: ridimensionamento, spaziatura caratteri/parole e modalità di rendering

Caratteristiche Principali Dimostrate

Supporto Famiglie Font: Arial, Times New Roman, Courier New con vari stili
Gestione Set di Caratteri: Set di caratteri arabo, europeo orientale, OEM, russo e turco
Ridimensionamento Testo: Compressione ed espansione orizzontale del testo
Spaziatura Caratteri: Regolazione fine della spaziatura caratteri per migliorare la leggibilità
Spaziatura Parole: Regolazione dello spazio tra parole per un migliore layout del testo
Modalità Rendering: Rendering del testo riempito, contornato, riempito+contornato e invisibile

📝 Nota Importante

ShowCharset è utilizzato solo per dimostrare tecnicamente la visualizzazione di caratteri da un set di caratteri attraverso codici carattere. Per la visualizzazione di testo normale, puoi semplicemente usare TextOut per visualizzare direttamente la stringa desiderata senza dover specificare alcun codice carattere.

La procedura ShowCharset in questo esempio è specificamente progettata per mostrare come diverse codifiche di caratteri renderizzano caratteri individuali tramite i loro codici Unicode/ASCII. Nelle applicazioni reali, usa semplicemente il metodo TextOut con le tue stringhe di testo direttamente.

Implementazione Tecnica

Questo esempio mostra le capacità complete di output del testo del componente HotPDF, incluso:

Incorporamento font per visualizzazione consistente multipiattaforma
Supporto caratteri Unicode per testo internazionale
Posizionamento e rotazione avanzati del testo
Generazione outline/segnalibri PDF per navigazione
Creazione documenti multipagina con gestione automatica delle pagine

{***************************************************************}
// Componente PDF HotPDF - Dimostrazione Stile Testo e Set di Caratteri
// 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;

// Variabili globali per gestione documento PDF e outline
var
  HotPDF: THotPDF; // Istanza principale del componente HotPDF
  OutlineRoot: THPDFDocOutlineObject; // Oggetto outline radice per navigazione documento
  CurrnetOutline: THPDFDocOutlineObject; // Oggetto outline corrente per struttura annidata

  {
    ====================================================================
    ShowFontGroup - Visualizza una famiglia di font con diversi stili
    ====================================================================

    SCOPO:
    Dimostra come visualizzare lo stesso font in diversi stili (normale, grassetto,
    corsivo, grassetto-corsivo) con vari angoli di rotazione del testo.

    PARAMETRI:
    @param FontGroup: String - Nome della famiglia di font da visualizzare (es. 'Arial')
    @param Position: Integer - Coordinata X per posizionamento del testo

    FUNZIONALITÀ:
    1. Visualizza nome font in stile normale alla posizione base
    2. Mostra versione grassetto con rotazione positiva (+1 grado)
    3. Mostra versione corsivo con rotazione negativa (-1 grado)
    4. Mostra combinazione grassetto-corsivo in orientamento normale

    LAYOUT:
    Ogni stile font è visualizzato 20 pixel sotto il precedente
  }

procedure ShowFontGroup(FontGroup: AnsiString; Position: Integer);
begin
  // procedure SetFont ( FontName: AnsiString; FontStyle: TFontStyles; ASize: Single; FontCharset: TFontCharset; IsVertiacal: Boolean);
  // Visualizza stile font normale
  HotPDF.CurrentPage.SetFont(FontGroup, [], 12); // Imposta font senza modificatori di stile
  // procedure TextOut ( X, Y: Single; Angle: Extended; Text: WideString);
  HotPDF.CurrentPage.TextOut(Position, 70, 0, WideString(FontGroup)); // Visualizza alla posizione Y base (70)

  // Visualizza stile font grassetto con leggera rotazione positiva
  HotPDF.CurrentPage.SetFont(FontGroup, [fsBold], 12); // Applica stile grassetto
  HotPDF.CurrentPage.TextOut(Position, 90, 1, WideString(FontGroup + '-Bold')); // Rotazione +1 grado, Y+20

  // Visualizza stile font corsivo con leggera rotazione negativa
  HotPDF.CurrentPage.SetFont(FontGroup, [fsItalic], 12); // Applica stile corsivo
  HotPDF.CurrentPage.TextOut(Position, 110, - 1, WideString(FontGroup + '-Italic')); // Rotazione -1 grado, Y+40

  // Visualizza combinazione grassetto-corsivo senza rotazione
  HotPDF.CurrentPage.SetFont(FontGroup, [fsBold, fsItalic], 12); // Applica sia grassetto che corsivo
  HotPDF.CurrentPage.TextOut(Position, 130, 0, WideString(FontGroup + '-Bold-Italic')); // Orientamento normale, Y+60
end;

{
  ====================================================================
  ShowCharset - Visualizza caratteri per un set di caratteri specifico
  ====================================================================

  SCOPO:
  Dimostra la corretta visualizzazione di caratteri per diverse codifiche carattere

  PARAMETRI:
  @param FontCharset: TFontCharset - Identificatore set di caratteri Windows
  @param First: Integer - Codice carattere Unicode/ASCII iniziale
  @param Last: Integer - Codice carattere Unicode/ASCII finale (inclusivo)
  @param Y1: Integer - Coordinata Y per visualizzazione nome set caratteri
  @param Y2: Integer - Coordinata Y per visualizzazione griglia caratteri

  INTERVALLI CARATTERI:
  Ogni charset visualizza caratteri da specifici intervalli Unicode/ASCII:

  - ARABIC_CHARSET: Unicode 1536-1625 (caratteri blocco arabo)
  - EASTEUROPE_CHARSET: Unicode 160-249 (Supplemento Latin-1)
  - OEM_CHARSET: ASCII 32-121 (caratteri ASCII stampabili)
  - RUSSIAN_CHARSET: Unicode 1024-1113 (caratteri blocco cirillico)
  - TURKISH_CHARSET: Unicode 161-255 (Latino esteso stampabile)

  LAYOUT VISUALIZZAZIONE:
  I caratteri sono disposti in 3 righe con 30 caratteri per riga:
  - Riga 1: Caratteri 0-29, iniziando a X=50
  - Riga 2: Caratteri 30-59, iniziando a X=50, Y+20
  - Riga 3: Caratteri 60-89, iniziando a X=50, Y+40
  - Spaziatura caratteri: 16 pixel orizzontalmente, 20 pixel verticalmente
}

procedure ShowCharset(FontCharset: TFontCharset; First, Last: Integer; Y1, Y2: Integer);
var
  i: Integer; // Contatore loop per iterazione caratteri
  CSName: AnsiString; // Nome set caratteri per visualizzazione
  XPos, YPos: Integer; // Variabili posizione
  CharCode: Integer; // Codice carattere da visualizzare
  CharCount: Integer; // Numero caratteri da visualizzare
  Row: Integer; // Riga corrente (1, 2 o 3)
  CharInRow: Integer; // Posizione carattere all'interno della riga corrente
begin
  // Configurazione set caratteri con nomi descrittivi
  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;

  // Imposta conteggio caratteri per visualizzare 90 caratteri (30 per riga × 3 righe)
  CharCount := 90;
  if Last - First + 1 < CharCount then CharCount := Last - First + 1;

  // Visualizza intestazione set caratteri
  HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsItalic], 12);
  HotPDF.CurrentPage.TextOut(50, Y1, 0, WideString(CSName + ' esempio: '));

  // Imposta il font appropriato per visualizzazione caratteri con specifica charset
  HotPDF.CurrentPage.SetFont('Arial', [], 14, FontCharset);

  // Visualizza caratteri in layout 3 righe senza indentazione
  for i := 0 to CharCount - 1 do
  begin
    // Determina riga e posizione all'interno della riga
    if i < 30 then
    begin
      // Prima riga: 30 caratteri, allineati con titolo (x=50)
      Row := 1;
      CharInRow := i;
      XPos := 50 + CharInRow * 16;
      YPos := Y2;
    end else if i < 60 then
    begin
      // Seconda riga: 30 caratteri, allineati con titolo (x=50)
      Row := 2;
      CharInRow := i - 30;
      XPos := 50 + CharInRow * 16;
      YPos := Y2 + 20; // 20 pixel sotto prima riga
    end
    else
    begin
      // Terza riga: caratteri rimanenti, allineati con titolo (x=50)
      Row := 3;
      CharInRow := i - 60;
      XPos := 50 + CharInRow * 16;
      YPos := Y2 + 40; // 40 pixel sotto prima riga
    end;

    // Calcola codice carattere
    CharCode := First + i;

    try
      // Usa conversione WideString per tutti i caratteri
        HotPDF.CurrentPage.TextOut(XPos, YPos, 0, WideString(WideChar(CharCode)));
    except
      // Se si verifica qualche errore, visualizza carattere di fallback
        HotPDF.CurrentPage.TextOut(XPos, YPos, 0, WideString('?'));
    end;
  end;
end;

{
  ====================================================================
  ShowTable - Disegna una struttura tabella dimostrativa
  ====================================================================

  SCOPO:
  Crea una semplice struttura tabella per dimostrare effetti formattazione testo.
  Usata nelle sezioni ridimensionamento testo, spaziatura caratteri e spaziatura parole.

  PARAMETRI:
  @param X: Integer - Coordinata X bordo sinistro
  @param Y: Integer - Coordinata Y bordo superiore

  STRUTTURA:
  Crea una tabella 300x100 pixel divisa in:
  - Cella superiore: 300x50 pixel
  - Cella inferiore: 300x50 pixel
  - Divisore verticale: 130 pixel dal bordo sinistro

  Tutte le linee sono disegnate con operazione stroke per visibilità
}

procedure ShowTable(X, Y: Integer);
begin
  // Disegna cella superiore tabella (rettangolo 300x50)
  HotPDF.CurrentPage.Rectangle(X, Y, 300, 50);
  HotPDF.CurrentPage.Stroke;

  // Disegna cella inferiore tabella (rettangolo 300x50, spostato 50 pixel in basso)
  HotPDF.CurrentPage.Rectangle(X, Y + 50, 300, 50);
  HotPDF.CurrentPage.Stroke;

  // Disegna linea divisoria verticale attraverso entrambe le celle
  HotPDF.CurrentPage.MoveTo(X + 130, Y); // Inizia in cima alla cella superiore
  HotPDF.CurrentPage.LineTo(X + 130, Y + 100); // Disegna fino in fondo alla cella inferiore
  HotPDF.CurrentPage.Stroke;
end;

{
  ====================================================================
  ESECUZIONE PROGRAMMA PRINCIPALE
  ====================================================================

  Questo è il corpo principale del programma che dimostra tutte le capacità
  di output testo di HotPDF. Il programma è strutturato in sezioni, ognuna
  che dimostra un aspetto specifico della gestione testo:

  1. GRUPPI FONT - Mostra diverse famiglie font e stili
  2. SET CARATTERI - Dimostra gestione codifica caratteri
  3. RIDIMENSIONAMENTO TESTO - Mostra effetti ridimensionamento orizzontale testo
  4. SPAZIATURA CARATTERI - Dimostra regolazioni spaziatura caratteri
  5. SPAZIATURA PAROLE - Mostra modifiche spaziatura parole
  6. MODALITÀ RENDERING - Visualizza diversi effetti rendering testo

  Ogni sezione include intestazioni appropriate, outline navigazione e
  esempi pratici con confronti prima/dopo quando applicabile.
}
begin
  // Inizializza componente HotPDF
  HotPDF := THotPDF.Create(nil);
  try
    // Configura proprietà documento PDF per visualizzazione ottimale testo
    HotPDF.AutoLaunch := true; // Apri automaticamente PDF dopo creazione
    HotPDF.FontEmbedding := true; // Abilita incorporamento font per visualizzazione caratteri consistente su tutti i sistemi
    HotPDF.StandardFontEmulation := false; // Disabilita emulazione font per prevenire problemi mappatura caratteri
    HotPDF.FileName := 'TextOut.pdf'; // Imposta nome file output
    HotPDF.PageLayout := plOneColumn; // Configura visualizzatore per mostrare una colonna

    // Inizia creazione documento PDF
    HotPDF.BeginDoc(true); // Crea PDF con compressione abilitata
    OutlineRoot := HotPDF.OutlineRoot; // Inizializza navigazione outline documento

    // ====================================================================
    // SEZIONE 1: DIMOSTRAZIONE GRUPPI FONT
    // ====================================================================
    // Questa sezione dimostra come diverse famiglie font appaiono con
    // varie combinazioni stili (normale, grassetto, corsivo, grassetto-corsivo)

    // Crea intestazione sezione con formattazione migliorata
    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    HotPDF.CurrentPage.TextOut(195, 30, 0, WideString('Mostra Font'));

    // Aggiungi voce outline navigazione per questa sezione
    OutlineRoot.AddChild('Mostra Font', 195, 30); // Collegamenti a coordinate

    // Visualizza tre principali famiglie font comunemente disponibili su tutti i sistemi
    ShowFontGroup('Arial', 50); // Font sans-serif a X=50
    ShowFontGroup('Times New Roman', 180); // Font serif a X=180
    ShowFontGroup('Courier New', 350); // Font monospace a X=350

    // ====================================================================
    // SEZIONE 2: DIMOSTRAZIONE SET CARATTERI
    // ====================================================================
    // Questa sezione dimostra la corretta gestione di diverse codifiche caratteri Windows

    // Crea intestazione sezione
    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    HotPDF.CurrentPage.TextOut(200, 170, 0, WideString('Set Caratteri'));

    // Crea gruppo outline per set caratteri con struttura espandibile
    // OutlineRoot.AddChild: Crea una nuova voce segnalibro/outline nell'albero navigazione PDF
    // Parametri: ('Titolo', coordinata-X, coordinata-Y)
    // - 'Set Caratteri': Testo visualizzazione mostrato nel pannello outline/segnalibro PDF
    // - 250: Coordinata X (posizione orizzontale) dove il clic navigherà
    // - 170: Coordinata Y (posizione verticale) dove il clic navigherà
    CurrnetOutline := OutlineRoot.AddChild('Set Caratteri', 250, 170);
    CurrnetOutline.Opened := true; // Espandi questa sezione outline per default

    CurrnetOutline.AddChild('ARABIC_CHARSET', 50, 225);
    // Set caratteri arabo: intervallo Unicode U+0600-U+0659 (90 caratteri)
    // Intervallo: 1536-1625 (blocco arabo incluse lettere, punteggiatura, numeri e diacritici)
    // Visualizza 90 caratteri arabi in 3 righe di 30 caratteri ciascuna
    // Usato per: arabo, persiano, urdu, pashto, curdo e altri script RTL

    // procedure ShowCharset(FontCharset: TFontCharset; First, Last: Integer; Y1, Y2: Integer);
    // First è il codice del primo carattere, output sequenziale fino all'ultimo carattere
    // Y1 è la coordinata Y del titolo, e Y2 è la coordinata Y iniziale dei caratteri
    ShowCharset(ARABIC_CHARSET, 1536, 1625, 225, 250);

    CurrnetOutline.AddChild('EASTEUROPE_CHARSET', 50, 325);
    // Set caratteri europeo orientale: intervallo Unicode U+00A0-U+00F9 (90 caratteri)
    // Intervallo: 160-249 (Supplemento Latin-1 con caratteri accentati e simboli)
    // Visualizza 90 caratteri latini estesi in 3 righe di 30 caratteri ciascuna
    // Usato per: francese, tedesco, spagnolo, portoghese, italiano, olandese, lingue nordiche

    // ShowCharset è solo per dimostrare la visualizzazione di caratteri dal set caratteri attraverso codici carattere
    // per visualizzazione testo normale, devi solo usare TextOut per mostrare direttamente la stringa richiesta
    ShowCharset(EASTEUROPE_CHARSET, 160, 249, 325, 350);

    CurrnetOutline.AddChild('OEM_CHARSET', 50, 425);
    // Set caratteri OEM: intervallo ASCII 32-121 (90 caratteri)
    // Intervallo: 32-121 (ASCII stampabile incluso spazio, simboli, numeri e lettere)
    // Visualizza 90 caratteri ASCII in 3 righe di 30 caratteri ciascuna
    // Usato per: applicazioni DOS, output console, sistemi legacy
    ShowCharset(OEM_CHARSET, 32, 121, 425, 450);

    CurrnetOutline.AddChild('RUSSIAN_CHARSET', 50, 525);
    // Set caratteri russo: intervallo Unicode U+0400-U+0459 (90 caratteri)
    // Intervallo: 1024-1113 (blocco cirillico incluse lettere russe, ucraine, bulgare)
    // Visualizza 90 caratteri cirillici in 3 righe di 30 caratteri ciascuna
    // Usato per: russo, bulgaro, serbo (cirillico), macedone, ucraino, bielorusso
    ShowCharset(RUSSIAN_CHARSET, 1024, 1113, 525, 550);

    CurrnetOutline.AddChild('TURKISH_CHARSET', 50, 625);
    // Set caratteri turco: intervallo Unicode U+00A1-U+00FF (95 caratteri)
    // Intervallo: 161-255 (Supplemento Latin-1 stampabile, evitando caratteri controllo 128-160)
    // Visualizza 90 caratteri in 3 righe di 30 caratteri ciascuna (primi 90 dei 95 disponibili)
    // Include speciali turchi: Ç(199), ç(231), Ğ(208), ğ(240), İ(221), ı(253), Ö(214), ö(246), Ş(222), ş(254), Ü(220), ü(252)
    // Usato per: lingua turca con i suoi caratteri unici e simboli europei
    ShowCharset(TURKISH_CHARSET, 161, 255, 625, 650);

    // ====================================================================
    // SEZIONE 3: DIMOSTRAZIONE RIDIMENSIONAMENTO TESTO
    // ====================================================================
    // Questa sezione mostra come il ridimensionamento orizzontale testo influisce sull'aspetto testo
    // Il ridimensionamento modifica la larghezza dei caratteri mantenendo l'altezza

    // Inizia nuova pagina per dimostrazioni formattazione testo avanzata
    HotPDF.AddPage;

    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    OutlineRoot.AddChild('Ridimensionamento orizzontale testo', 180, 40); // Aggiungi a navigazione outline principale
    HotPDF.CurrentPage.TextOut(180, 40, 0, WideString('Ridimensionamento orizzontale testo'));

    // Crea struttura tabella confronto
    ShowTable(130, 80);

    // Aggiungi etichette descrittive per il confronto
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);
    HotPDF.CurrentPage.TextOut(160, 100, 0, WideString('predefinito 100')); // Etichetta ridimensionamento normale
    HotPDF.CurrentPage.TextOut(165, 145, 0, WideString('impostato a 50')); // Etichetta ridimensionamento compresso

    // Dimostra ridimensionamento testo normale (100% - predefinito)
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);
    HotPDF.CurrentPage.TextOut(280, 95, 0, WideString('Parola'));

    // Dimostra ridimensionamento testo compresso (50% larghezza)
    HotPDF.CurrentPage.SetHorizontalScaling(50); // Comprimi testo al 50% larghezza
    HotPDF.CurrentPage.TextOut(285, 140, 0, WideString('Parola'));
    HotPDF.CurrentPage.SetHorizontalScaling(100); // Ripristina ridimensionamento normale

    // ====================================================================
    // SEZIONE 4: DIMOSTRAZIONE SPAZIATURA CARATTERI
    // ====================================================================
    // Questa sezione dimostra come la spaziatura caratteri influisce sulla leggibilità testo
    // La spaziatura caratteri aggiunge spazio uniforme tra caratteri individuali

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

    // Crea tabella confronto
    ShowTable(130, 260);

    // Aggiungi etichette descrittive
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);
    HotPDF.CurrentPage.TextOut(162, 280, 0, WideString('predefinito 0')); // Etichetta spaziatura normale
    HotPDF.CurrentPage.TextOut(162, 330, 0, WideString('spazio impostato 5')); // Etichetta spaziatura espansa

    // Dimostra spaziatura caratteri normale (0 - predefinito)
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);
    HotPDF.CurrentPage.TextOut(278, 275, 0, WideString('Carattere'));

    // Dimostra spaziatura caratteri espansa (+5 unità tra caratteri)
    HotPDF.CurrentPage.SetCharacterSpacing(5); // Aggiungi 5 unità tra ogni carattere
    HotPDF.CurrentPage.TextOut(278, 320, 0, WideString('Carattere'));
    HotPDF.CurrentPage.SetCharacterSpacing(0); // Ripristina spaziatura normale

    // ====================================================================
    // SEZIONE 5: DIMOSTRAZIONE SPAZIATURA PAROLE
    // ====================================================================
    // Questa sezione dimostra come la spaziatura parole influisce sul layout testo
    // La spaziatura parole aggiunge spazio specificamente tra parole (ai caratteri spazio)

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

    // Crea tabella confronto
    ShowTable(130, 420);

    // Aggiungi etichette descrittive
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 12);
    HotPDF.CurrentPage.TextOut(162, 440, 0, WideString('predefinito 0')); // Etichetta spaziatura parole normale
    HotPDF.CurrentPage.TextOut(162, 490, 0, WideString('spazio impostato 10')); // Etichetta spaziatura parole espansa

    // Dimostra spaziatura parole normale (0 - predefinito)
    HotPDF.CurrentPage.SetFont('Times New Roman', [], 24);
    HotPDF.CurrentPage.TextOut(280, 430, 0, WideString('Spazio Parola'));

    // Dimostra spaziatura parole espansa (+10 unità tra parole)
    HotPDF.CurrentPage.SetWordSpacing(10); // Aggiungi 10 unità tra parole
    HotPDF.CurrentPage.TextOut(280, 480, 0, WideString('Spazio Parola'));
    HotPDF.CurrentPage.SetWordSpacing(0); // Ripristina spaziatura normale

    // ====================================================================
    // SEZIONE 6: DIMOSTRAZIONE MODALITÀ RENDERING TESTO
    // ====================================================================
    // Questa sezione dimostra diversi effetti rendering testo disponibili in PDF
    // Il testo può essere riempito, contornato, entrambi, o invisibile (per effetti avanzati)

    HotPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20);
    OutlineRoot.AddChild('Modalità Rendering', 200, 550);
    HotPDF.CurrentPage.TextOut(200, 550, 0, WideString('Modalità Rendering'));

    // Crea una struttura tabella complessa per confronto modalità rendering
    // Contorno tabella principale (500x150 pixel)
    HotPDF.CurrentPage.Rectangle(50, 600, 500, 150);
    HotPDF.CurrentPage.Stroke;

    // Divisori verticali creando 4 colonne di larghezza uguale
    HotPDF.CurrentPage.MoveTo(175, 600); // Primo divisore
    HotPDF.CurrentPage.LineTo(175, 750);
    HotPDF.CurrentPage.Stroke;

    HotPDF.CurrentPage.MoveTo(300, 600); // Secondo divisore
    HotPDF.CurrentPage.LineTo(300, 750);
    HotPDF.CurrentPage.Stroke;

    HotPDF.CurrentPage.MoveTo(425, 600); // Terzo divisore
    HotPDF.CurrentPage.LineTo(425, 750);
    HotPDF.CurrentPage.Stroke;

    // Divisore orizzontale separando intestazione dal contenuto
    HotPDF.CurrentPage.MoveTo(50, 665);
    HotPDF.CurrentPage.LineTo(550, 665);
    HotPDF.CurrentPage.Stroke;

    // Aggiungi intestazioni colonne descrivendo ogni modalità rendering
    HotPDF.CurrentPage.SetFont('Arial', [], 12);
    HotPDF.CurrentPage.TextOut(100, 620, 0, WideString('Riempi')); // Modalità riempi - testo colorato solido
    HotPDF.CurrentPage.TextOut(215, 620, 0, WideString('Contorno')); // Modalità contorno - testo contornato
    HotPDF.CurrentPage.TextOut(320, 620, 0, WideString('Riempi Contorno')); // Modalità combinata - riempito con contorno
    HotPDF.CurrentPage.TextOut(465, 620, 0, WideString('Invisibile')); // Modalità invisibile - per effetti speciali

    // Configura colori per dimostrazione drammatica effetto rendering
    HotPDF.CurrentPage.SetFont('Arial', [fsBold], 72); // Font grande per visibilità chiara
    HotPDF.CurrentPage.SetRGBStrokeColor(clRed); // Colore contorno rosso
    HotPDF.CurrentPage.SetRGBFillColor(clYellow); // Colore riempimento giallo

    // Dimostra modalità rendering Riempi - testo colorato solido
    HotPDF.CurrentPage.SetTextRenderingMode(trFill);
    HotPDF.CurrentPage.TextOut(90, 670, 0, WideString('P'));

    // Dimostra modalità rendering Contorno - solo testo contornato
    HotPDF.CurrentPage.SetTextRenderingMode(trStroke);
    HotPDF.CurrentPage.TextOut(215, 670, 0, WideString('D'));

    // Dimostra modalità rendering Riempi+Contorno - testo riempito con contorno colorato
    HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);
    HotPDF.CurrentPage.TextOut(340, 670, 0, WideString('F'));

    // Dimostra modalità rendering Invisibile - testo è presente ma non visibile
    // (utile per testo ricercabile sopra immagini, o tecniche layout avanzate)
    HotPDF.CurrentPage.SetTextRenderingMode(trInvisible);
    HotPDF.CurrentPage.TextOut(475, 670, 0, WideString('X'));

    // Ripristina modalità rendering predefinita per qualsiasi testo successivo
    HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);

    // Finalizza e salva documento PDF
    HotPDF.EndDoc;

  finally
    // Assicura pulizia appropriata 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 - Dimostrazione Stile Testo e Set di Caratteri

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

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;

// Variabili globali per gestione documento PDF e outline

var

HotPDF: THotPDF; // Istanza principale del componente HotPDF

OutlineRoot: THPDFDocOutlineObject; // Oggetto outline radice per navigazione documento

CurrnetOutline: THPDFDocOutlineObject; // Oggetto outline corrente per struttura annidata

{

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

ShowFontGroup - Visualizza una famiglia di font con diversi stili

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

SCOPO:

Dimostra come visualizzare lo stesso font in diversi stili (normale, grassetto,

corsivo, grassetto-corsivo) con vari angoli di rotazione del testo.

PARAMETRI:

@param FontGroup: String - Nome della famiglia di font da visualizzare (es. 'Arial')

@param Position: Integer - Coordinata X per posizionamento del testo

FUNZIONALITÀ:

1. Visualizza nome font in stile normale alla posizione base

2. Mostra versione grassetto con rotazione positiva (+1 grado)

3. Mostra versione corsivo con rotazione negativa (-1 grado)

4. Mostra combinazione grassetto-corsivo in orientamento normale

LAYOUT:

Ogni stile font è visualizzato 20 pixel sotto il precedente

}

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

begin

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

// Visualizza stile font normale

HotPDF.CurrentPage.SetFont(FontGroup, [], 12); // Imposta font senza modificatori di stile

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

HotPDF.CurrentPage.TextOut(Position, 70, 0, WideString(FontGroup)); // Visualizza alla posizione Y base (70)

// Visualizza stile font grassetto con leggera rotazione positiva

HotPDF.CurrentPage.SetFont(FontGroup, [fsBold], 12); // Applica stile grassetto

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

// Visualizza stile font corsivo con leggera rotazione negativa

HotPDF.CurrentPage.SetFont(FontGroup, [fsItalic], 12); // Applica stile corsivo

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

// Visualizza combinazione grassetto-corsivo senza rotazione

HotPDF.CurrentPage.SetFont(FontGroup, [fsBold, fsItalic], 12); // Applica sia grassetto che corsivo

HotPDF.CurrentPage.TextOut(Position, 130, 0, WideString(FontGroup + '-Bold-Italic')); // Orientamento normale, Y+60

end;

{

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

ShowCharset - Visualizza caratteri per un set di caratteri specifico

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

SCOPO:

Dimostra la corretta visualizzazione di caratteri per diverse codifiche carattere

PARAMETRI:

@param FontCharset: TFontCharset - Identificatore set di caratteri Windows

@param First: Integer - Codice carattere Unicode/ASCII iniziale

@param Last: Integer - Codice carattere Unicode/ASCII finale (inclusivo)

@param Y1: Integer - Coordinata Y per visualizzazione nome set caratteri

@param Y2: Integer - Coordinata Y per visualizzazione griglia caratteri

INTERVALLI CARATTERI:

Ogni charset visualizza caratteri da specifici intervalli Unicode/ASCII:

- ARABIC_CHARSET: Unicode 1536-1625 (caratteri blocco arabo)

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

- OEM_CHARSET: ASCII 32-121 (caratteri ASCII stampabili)

- RUSSIAN_CHARSET: Unicode 1024-1113 (caratteri blocco cirillico)

- TURKISH_CHARSET: Unicode 161-255 (Latino esteso stampabile)

LAYOUT VISUALIZZAZIONE:

I caratteri sono disposti in 3 righe con 30 caratteri per riga:

- Riga 1: Caratteri 0-29, iniziando a X=50

- Riga 2: Caratteri 30-59, iniziando a X=50, Y+20

- Riga 3: Caratteri 60-89, iniziando a X=50, Y+40

- Spaziatura caratteri: 16 pixel orizzontalmente, 20 pixel verticalmente

}

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

var

i: Integer; // Contatore loop per iterazione caratteri

CSName: AnsiString; // Nome set caratteri per visualizzazione

XPos, YPos: Integer; // Variabili posizione

CharCode: Integer; // Codice carattere da visualizzare

CharCount: Integer; // Numero caratteri da visualizzare

Row: Integer; // Riga corrente (1, 2 o 3)

CharInRow: Integer; // Posizione carattere all'interno della riga corrente

begin

// Configurazione set caratteri con nomi descrittivi

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;

// Imposta conteggio caratteri per visualizzare 90 caratteri (30 per riga × 3 righe)

CharCount := 90;

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

// Visualizza intestazione set caratteri

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

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

// Imposta il font appropriato per visualizzazione caratteri con specifica charset

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

// Visualizza caratteri in layout 3 righe senza indentazione

for i := 0 to CharCount - 1 do

begin

// Determina riga e posizione all'interno della riga

if i < 30 then

begin

// Prima riga: 30 caratteri, allineati con titolo (x=50)

Row := 1;

CharInRow := i;

XPos := 50 + CharInRow * 16;

YPos := Y2;

end else if i < 60 then

begin

// Seconda riga: 30 caratteri, allineati con titolo (x=50)

Row := 2;

CharInRow := i - 30;

XPos := 50 + CharInRow * 16;

YPos := Y2 + 20; // 20 pixel sotto prima riga

end

else

begin

// Terza riga: caratteri rimanenti, allineati con titolo (x=50)

Row := 3;

CharInRow := i - 60;

XPos := 50 + CharInRow * 16;

YPos := Y2 + 40; // 40 pixel sotto prima riga

end;

// Calcola codice carattere

CharCode := First + i;

try

// Usa conversione WideString per tutti i caratteri

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

except

// Se si verifica qualche errore, visualizza carattere di fallback

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

end;

{

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

ShowTable - Disegna una struttura tabella dimostrativa

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

SCOPO:

Crea una semplice struttura tabella per dimostrare effetti formattazione testo.

Usata nelle sezioni ridimensionamento testo, spaziatura caratteri e spaziatura parole.

PARAMETRI:

@param X: Integer - Coordinata X bordo sinistro

@param Y: Integer - Coordinata Y bordo superiore

STRUTTURA:

Crea una tabella 300x100 pixel divisa in:

- Cella superiore: 300x50 pixel

- Cella inferiore: 300x50 pixel

- Divisore verticale: 130 pixel dal bordo sinistro

Tutte le linee sono disegnate con operazione stroke per visibilità

}

procedure ShowTable(X, Y: Integer);

begin

// Disegna cella superiore tabella (rettangolo 300x50)

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

HotPDF.CurrentPage.Stroke;

// Disegna cella inferiore tabella (rettangolo 300x50, spostato 50 pixel in basso)

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

HotPDF.CurrentPage.Stroke;

// Disegna linea divisoria verticale attraverso entrambe le celle

HotPDF.CurrentPage.MoveTo(X + 130, Y); // Inizia in cima alla cella superiore

HotPDF.CurrentPage.LineTo(X + 130, Y + 100); // Disegna fino in fondo alla cella inferiore

HotPDF.CurrentPage.Stroke;

end;

{

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

ESECUZIONE PROGRAMMA PRINCIPALE

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

Questo è il corpo principale del programma che dimostra tutte le capacità

di output testo di HotPDF. Il programma è strutturato in sezioni, ognuna

che dimostra un aspetto specifico della gestione testo:

1. GRUPPI FONT - Mostra diverse famiglie font e stili

2. SET CARATTERI - Dimostra gestione codifica caratteri

3. RIDIMENSIONAMENTO TESTO - Mostra effetti ridimensionamento orizzontale testo

4. SPAZIATURA CARATTERI - Dimostra regolazioni spaziatura caratteri

5. SPAZIATURA PAROLE - Mostra modifiche spaziatura parole

6. MODALITÀ RENDERING - Visualizza diversi effetti rendering testo

Ogni sezione include intestazioni appropriate, outline navigazione e

esempi pratici con confronti prima/dopo quando applicabile.

}

begin

// Inizializza componente HotPDF

HotPDF := THotPDF.Create(nil);

try

// Configura proprietà documento PDF per visualizzazione ottimale testo

HotPDF.AutoLaunch := true; // Apri automaticamente PDF dopo creazione

HotPDF.FontEmbedding := true; // Abilita incorporamento font per visualizzazione caratteri consistente su tutti i sistemi

HotPDF.StandardFontEmulation := false; // Disabilita emulazione font per prevenire problemi mappatura caratteri

HotPDF.FileName := 'TextOut.pdf'; // Imposta nome file output

HotPDF.PageLayout := plOneColumn; // Configura visualizzatore per mostrare una colonna

// Inizia creazione documento PDF

HotPDF.BeginDoc(true); // Crea PDF con compressione abilitata

OutlineRoot := HotPDF.OutlineRoot; // Inizializza navigazione outline documento

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

// SEZIONE 1: DIMOSTRAZIONE GRUPPI FONT

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

// Questa sezione dimostra come diverse famiglie font appaiono con

// varie combinazioni stili (normale, grassetto, corsivo, grassetto-corsivo)

// Crea intestazione sezione con formattazione migliorata

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

HotPDF.CurrentPage.TextOut(195, 30, 0, WideString('Mostra Font'));

// Aggiungi voce outline navigazione per questa sezione

OutlineRoot.AddChild('Mostra Font', 195, 30); // Collegamenti a coordinate

// Visualizza tre principali famiglie font comunemente disponibili su tutti i sistemi

ShowFontGroup('Arial', 50); // Font sans-serif a X=50

ShowFontGroup('Times New Roman', 180); // Font serif a X=180

ShowFontGroup('Courier New', 350); // Font monospace a X=350

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

// SEZIONE 2: DIMOSTRAZIONE SET CARATTERI

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

// Questa sezione dimostra la corretta gestione di diverse codifiche caratteri Windows

// Crea intestazione sezione

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

HotPDF.CurrentPage.TextOut(200, 170, 0, WideString('Set Caratteri'));

// Crea gruppo outline per set caratteri con struttura espandibile

// OutlineRoot.AddChild: Crea una nuova voce segnalibro/outline nell'albero navigazione PDF

// Parametri: ('Titolo', coordinata-X, coordinata-Y)

// - 'Set Caratteri': Testo visualizzazione mostrato nel pannello outline/segnalibro PDF

// - 250: Coordinata X (posizione orizzontale) dove il clic navigherà

// - 170: Coordinata Y (posizione verticale) dove il clic navigherà

CurrnetOutline := OutlineRoot.AddChild('Set Caratteri', 250, 170);

CurrnetOutline.Opened := true; // Espandi questa sezione outline per default

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

// Set caratteri arabo: intervallo Unicode U+0600-U+0659 (90 caratteri)

// Intervallo: 1536-1625 (blocco arabo incluse lettere, punteggiatura, numeri e diacritici)

// Visualizza 90 caratteri arabi in 3 righe di 30 caratteri ciascuna

// Usato per: arabo, persiano, urdu, pashto, curdo e altri script RTL

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

// First è il codice del primo carattere, output sequenziale fino all'ultimo carattere

// Y1 è la coordinata Y del titolo, e Y2 è la coordinata Y iniziale dei caratteri

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

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

// Set caratteri europeo orientale: intervallo Unicode U+00A0-U+00F9 (90 caratteri)

// Intervallo: 160-249 (Supplemento Latin-1 con caratteri accentati e simboli)

// Visualizza 90 caratteri latini estesi in 3 righe di 30 caratteri ciascuna

// Usato per: francese, tedesco, spagnolo, portoghese, italiano, olandese, lingue nordiche

// ShowCharset è solo per dimostrare la visualizzazione di caratteri dal set caratteri attraverso codici carattere

// per visualizzazione testo normale, devi solo usare TextOut per mostrare direttamente la stringa richiesta

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

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

// Set caratteri OEM: intervallo ASCII 32-121 (90 caratteri)

// Intervallo: 32-121 (ASCII stampabile incluso spazio, simboli, numeri e lettere)

// Visualizza 90 caratteri ASCII in 3 righe di 30 caratteri ciascuna

// Usato per: applicazioni DOS, output console, sistemi legacy

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

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

// Set caratteri russo: intervallo Unicode U+0400-U+0459 (90 caratteri)

// Intervallo: 1024-1113 (blocco cirillico incluse lettere russe, ucraine, bulgare)

// Visualizza 90 caratteri cirillici in 3 righe di 30 caratteri ciascuna

// Usato per: russo, bulgaro, serbo (cirillico), macedone, ucraino, bielorusso

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

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

// Set caratteri turco: intervallo Unicode U+00A1-U+00FF (95 caratteri)

// Intervallo: 161-255 (Supplemento Latin-1 stampabile, evitando caratteri controllo 128-160)

// Visualizza 90 caratteri in 3 righe di 30 caratteri ciascuna (primi 90 dei 95 disponibili)

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

// Usato per: lingua turca con i suoi caratteri unici e simboli europei

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

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

// SEZIONE 3: DIMOSTRAZIONE RIDIMENSIONAMENTO TESTO

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

// Questa sezione mostra come il ridimensionamento orizzontale testo influisce sull'aspetto testo

// Il ridimensionamento modifica la larghezza dei caratteri mantenendo l'altezza

// Inizia nuova pagina per dimostrazioni formattazione testo avanzata

HotPDF.AddPage;

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

OutlineRoot.AddChild('Ridimensionamento orizzontale testo', 180, 40); // Aggiungi a navigazione outline principale

HotPDF.CurrentPage.TextOut(180, 40, 0, WideString('Ridimensionamento orizzontale testo'));

// Crea struttura tabella confronto

ShowTable(130, 80);

// Aggiungi etichette descrittive per il confronto

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

HotPDF.CurrentPage.TextOut(160, 100, 0, WideString('predefinito 100')); // Etichetta ridimensionamento normale

HotPDF.CurrentPage.TextOut(165, 145, 0, WideString('impostato a 50')); // Etichetta ridimensionamento compresso

// Dimostra ridimensionamento testo normale (100% - predefinito)

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

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

// Dimostra ridimensionamento testo compresso (50% larghezza)

HotPDF.CurrentPage.SetHorizontalScaling(50); // Comprimi testo al 50% larghezza

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

HotPDF.CurrentPage.SetHorizontalScaling(100); // Ripristina ridimensionamento normale

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

// SEZIONE 4: DIMOSTRAZIONE SPAZIATURA CARATTERI

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

// Questa sezione dimostra come la spaziatura caratteri influisce sulla leggibilità testo

// La spaziatura caratteri aggiunge spazio uniforme tra caratteri individuali

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

OutlineRoot.AddChild('Spaziatura Caratteri', 200, 220);

HotPDF.CurrentPage.TextOut(200, 220, 0, WideString('Spaziatura Caratteri'));

// Crea tabella confronto

ShowTable(130, 260);

// Aggiungi etichette descrittive

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

HotPDF.CurrentPage.TextOut(162, 280, 0, WideString('predefinito 0')); // Etichetta spaziatura normale

HotPDF.CurrentPage.TextOut(162, 330, 0, WideString('spazio impostato 5')); // Etichetta spaziatura espansa

// Dimostra spaziatura caratteri normale (0 - predefinito)

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

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

// Dimostra spaziatura caratteri espansa (+5 unità tra caratteri)

HotPDF.CurrentPage.SetCharacterSpacing(5); // Aggiungi 5 unità tra ogni carattere

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

HotPDF.CurrentPage.SetCharacterSpacing(0); // Ripristina spaziatura normale

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

// SEZIONE 5: DIMOSTRAZIONE SPAZIATURA PAROLE

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

// Questa sezione dimostra come la spaziatura parole influisce sul layout testo

// La spaziatura parole aggiunge spazio specificamente tra parole (ai caratteri spazio)

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

OutlineRoot.AddChild('Spaziatura Parole', 200, 380);

HotPDF.CurrentPage.TextOut(200, 380, 0, WideString('Spaziatura Parole'));

// Crea tabella confronto

ShowTable(130, 420);

// Aggiungi etichette descrittive

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

HotPDF.CurrentPage.TextOut(162, 440, 0, WideString('predefinito 0')); // Etichetta spaziatura parole normale

HotPDF.CurrentPage.TextOut(162, 490, 0, WideString('spazio impostato 10')); // Etichetta spaziatura parole espansa

// Dimostra spaziatura parole normale (0 - predefinito)

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

HotPDF.CurrentPage.TextOut(280, 430, 0, WideString('Spazio Parola'));

// Dimostra spaziatura parole espansa (+10 unità tra parole)

HotPDF.CurrentPage.SetWordSpacing(10); // Aggiungi 10 unità tra parole

HotPDF.CurrentPage.TextOut(280, 480, 0, WideString('Spazio Parola'));

HotPDF.CurrentPage.SetWordSpacing(0); // Ripristina spaziatura normale

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

// SEZIONE 6: DIMOSTRAZIONE MODALITÀ RENDERING TESTO

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

// Questa sezione dimostra diversi effetti rendering testo disponibili in PDF

// Il testo può essere riempito, contornato, entrambi, o invisibile (per effetti avanzati)

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

OutlineRoot.AddChild('Modalità Rendering', 200, 550);

HotPDF.CurrentPage.TextOut(200, 550, 0, WideString('Modalità Rendering'));

// Crea una struttura tabella complessa per confronto modalità rendering

// Contorno tabella principale (500x150 pixel)

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

HotPDF.CurrentPage.Stroke;

// Divisori verticali creando 4 colonne di larghezza uguale

HotPDF.CurrentPage.MoveTo(175, 600); // Primo divisore

HotPDF.CurrentPage.LineTo(175, 750);

HotPDF.CurrentPage.Stroke;

HotPDF.CurrentPage.MoveTo(300, 600); // Secondo divisore

HotPDF.CurrentPage.LineTo(300, 750);

HotPDF.CurrentPage.Stroke;

HotPDF.CurrentPage.MoveTo(425, 600); // Terzo divisore

HotPDF.CurrentPage.LineTo(425, 750);

HotPDF.CurrentPage.Stroke;

// Divisore orizzontale separando intestazione dal contenuto

HotPDF.CurrentPage.MoveTo(50, 665);

HotPDF.CurrentPage.LineTo(550, 665);

HotPDF.CurrentPage.Stroke;

// Aggiungi intestazioni colonne descrivendo ogni modalità rendering

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

HotPDF.CurrentPage.TextOut(100, 620, 0, WideString('Riempi')); // Modalità riempi - testo colorato solido

HotPDF.CurrentPage.TextOut(215, 620, 0, WideString('Contorno')); // Modalità contorno - testo contornato

HotPDF.CurrentPage.TextOut(320, 620, 0, WideString('Riempi Contorno')); // Modalità combinata - riempito con contorno

HotPDF.CurrentPage.TextOut(465, 620, 0, WideString('Invisibile')); // Modalità invisibile - per effetti speciali

// Configura colori per dimostrazione drammatica effetto rendering

HotPDF.CurrentPage.SetFont('Arial', [fsBold], 72); // Font grande per visibilità chiara

HotPDF.CurrentPage.SetRGBStrokeColor(clRed); // Colore contorno rosso

HotPDF.CurrentPage.SetRGBFillColor(clYellow); // Colore riempimento giallo

// Dimostra modalità rendering Riempi - testo colorato solido

HotPDF.CurrentPage.SetTextRenderingMode(trFill);

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

// Dimostra modalità rendering Contorno - solo testo contornato

HotPDF.CurrentPage.SetTextRenderingMode(trStroke);

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

// Dimostra modalità rendering Riempi+Contorno - testo riempito con contorno colorato

HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);

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

// Dimostra modalità rendering Invisibile - testo è presente ma non visibile

// (utile per testo ricercabile sopra immagini, o tecniche layout avanzate)

HotPDF.CurrentPage.SetTextRenderingMode(trInvisible);

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

// Ripristina modalità rendering predefinita per qualsiasi testo successivo

HotPDF.CurrentPage.SetTextRenderingMode(trFillThenStroke);

// Finalizza e salva documento PDF

HotPDF.EndDoc;

finally

// Assicura pulizia appropriata del componente HotPDF

HotPDF.Free;

end;

end.

Discover more from losLab Software Development

Subscribe to get the latest posts sent to your email.

Esempio HotPDF Component Delphi TextOut

Esempio HotPDF Component Delphi TextOut – Stile Font e Set di Caratteri

Caratteristiche Principali Dimostrate

📝 Nota Importante

Implementazione Tecnica

Like this:

Related

Discover more from losLab Software Development

Company Site

Esempio HotPDF Component Delphi TextOut – Stile Font e Set di Caratteri

Caratteristiche Principali Dimostrate

📝 Nota Importante

Implementazione Tecnica

Share this:

Like this:

Related

Discover more from losLab Software Development

Company Site