Como usar font symbol en un edit ???

[[cHackAll]]

Qué quieres concretamente QuarkBcn, acaso mostrar un texto usando varios Fonts simultaneamente? pues como he adjuntado lo que pides con Delphi 7 es posible...

[[QuarkBcn]]

Empezado por cHackAll

Qué quieres concretamente QuarkBcn, acaso mostrar un texto usando varios Fonts simultaneamente? pues como he adjuntado lo que pides con Delphi 7 es posible...

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

Gracias a todos y sigo a la espera de alguna mente preclara :-)

[[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

[[QuarkBcn]]

Perdona el retraso en la respuesta, pero he estado unos dias de vacaciones, que ya tocaban

Tu solución se acerca bastante a lo que necesitaba.

Muchas gracias por tu ayuda !!!

Saludos !!!