Come disegnare il testo con una diversa formattazione del carattere su una tela in delphi in una volta?

Question

Sto usando DrawText per tutti i miei output di "testo in rettangolo", tuttavia non riesco a vedere un modo per disegnare una stringa, ad esempio, con ogni altra parola in grassetto o di colore diverso, o, peggio ancora , sfondi diversi per le parole selezionate a caso. Probabilmente non esiste una singola procedura che possa fare tutto ciò che posso vedere, potrei sbagliarmi, questo è il punto principale di questa domanda. Qualcuno può indicare procedure che potrebbero essere di interesse per qualcuno che cerca di ottenere tali effetti? Inoltre, se sono corretto e non c'è un modo semplice per farlo, quale sarebbe il percorso consigliato da intraprendere? Disegnare ogni parola separatamente e poi provare a incollare tutto insieme sembra un incubo quando inizi a pensare a problemi che possono sorgere da questo, in cima alla mia testa: allineamento corretto del testo su una singola linea orizzontale quando hai font o dimensioni variabili. ..

Ho delphi xe3; se qualcuno può migliorare il fraseggio della mia domanda e/o del testo, per favore fallo.

Answer 1

È possibile ottenere un po 'di aiuto da parte della VCL, in quanto il metodo TCanvas.TextOut aumenta la x coordinata dei pos penna per la larghezza della stringa di output:

procedure TForm1.FormPaint(Sender: TObject); 
begin 
    Canvas.MoveTo(20, 100); 

    Canvas.Font.Name := 'Segoe UI'; 
    Canvas.Font.Color := clMaroon; 
    Canvas.Font.Style := []; 
    Canvas.Font.Height := 64; 
    Canvas.TextOut(Canvas.PenPos.X, Canvas.PenPos.Y, 'This '); 

    Canvas.Font.Color := clNavy; 
    Canvas.Font.Style := [fsBold]; 
    Canvas.Font.Height := 64; 
    Canvas.TextOut(Canvas.PenPos.X, Canvas.PenPos.Y, 'is '); 

    Canvas.Font.Name := 'Bookman Old Style'; 
    Canvas.Font.Color := clBlack; 
    Canvas.Font.Style := [fsItalic]; 
    Canvas.Font.Height := 64; 
    Canvas.TextOut(Canvas.PenPos.X, Canvas.PenPos.Y, 'a '); 

    Canvas.Font.Name := 'Courier New'; 
    Canvas.Font.Color := clSilver; 
    Canvas.Font.Style := []; 
    Canvas.Font.Height := 64; 
    Canvas.TextOut(Canvas.PenPos.X, Canvas.PenPos.Y, 'test!'); 
end; 

Screenshot http://privat.rejbrand.se/canvastextpos.png

In ogni caso, se avete bisogno di più routine di output di testo avanzate, perché non dare un'occhiata a DirectWrite?

Answer 2

Hai considerato l'utilizzo di Richedit con le sue capacità di formattazione piuttosto ricche? Se è necessario disegnare del testo su tela, non in finestra, il messaggio EM_FORMATRANGE consente di copiare la rappresentazione grafica del testo formattato.