[[cHackAll]]

Empezado por QuarkBcn

Hola, lamentablemente lo que me comentas no es posible ... has probado a colocar la letra C, la D, etc ...

Me temo que mi anterior intervención estaba orientada a D&W.

Empezado por cHackAll

Qué quieres concretamente QuarkBcn, acaso mostrar un texto usando varios Fonts simultaneamente?

Bueno, ante tu comentario solo me queda deducir lo obvio; para futuras ocaciones te rogaría seas mas claro en tus preguntas.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const Letter: array [Boolean] of string = ('Symbol', 'Thaoma');
var
 Index, Left: Cardinal;
 Flag: Boolean;
 Str: string;
begin
 Left := 0;
 Flag:= True;
 Str := 'Club'#0'Delphi ro'#0'c'#0'ks!';
 for Index := 0 to Length(Str) do
  if (Index = 0) or (Str[Index] = #0) then
   begin
    Flag:= not Flag;
    Canvas.Font.Name := Letter[Flag];
   end
  else
   begin
    Canvas.TextOut(100 + Left, 100, Str[Index]);
    Inc(Left, Canvas.TextWidth(Str[Index]));
   end;
end;

Saludos