Jak narysować tekst z innym formatowaniem czcionki na płótnie w delphi naraz?

Question

Używam DrawText dla wszystkich moich potrzeb wyjściowych "tekst w prostokącie", ale nie widzę sposobu, aby narysować ciąg znaków, na przykład, z każdym innym wyrazem pogrubionym lub innym kolorem, lub nawet gorzej , różne tła dla wspomnianych losowo wybranych słów. Prawdopodobnie nie ma jednej procedury, która mogłaby to zrobić, o ile widzę, mogę się mylić, to jest główny punkt tego pytania. Czy ktoś może wskazać procedury, które mogą być interesujące dla kogoś, kto próbuje osiągnąć takie efekty? Dodatkowo, jeśli mam rację i nie ma prostego sposobu robienia tego, jaka byłaby zalecana ścieżka do zrobienia? Rysowanie każdego słowa osobno, a następnie próba sklejenia tego wszystkiego wydaje się koszmarnym snem, gdy zaczynasz myśleć o problemach, które mogą wynikać z tego, w mojej głowie: prawidłowe wyrównanie tekstu na pojedynczej poziomej linii, gdy masz różne czcionki lub rozmiary. ..

Mam delphi xe3; jeśli ktoś może poprawić frazowanie mojego pytania i/lub tekstu, zrób to.

Answer 1

uzyskać pomoc od VCL, ponieważ metoda TCanvas.TextOut zwiększa x koordynować z poz piórkowych przez szerokość ciąg wyjściowy:

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

Tak czy inaczej, jeśli potrzebujesz więcej zaawansowane procedury wyprowadzania tekstu, dlaczego nie spojrzeć na DirectWrite?

Answer 2

Czy rozważałeś zastosowanie Richedit z jego bogatymi możliwościami formatowania? Jeśli chcesz narysować tekst na płótnie, a nie w oknie, wiadomość EM_FORMATRANGE pozwala skopiować graficzną reprezentację sformatowanego tekstu.