Dibujar contorno de Texto

[[cHackAll]]

Empezado por MAXIUM

...[cHackAll], solo sale tu nombre en grande y pixeleado...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 with Canvas do
  begin
   Font.Size := 66;
   Brush.Style := bsClear;
   BeginPath(Handle);
   TextOut(0, 0, 'Hola');
   EndPath(Handle);
   Brush.Color := clWhite;
   StrokeAndFillPath(Handle)
  end;
end;

Empezado por MAXIUM

...Podrias enviarme el proyecto completo ya que ami no me resulta...

No hay proyeco completo, creas uno nuevo le agregas un boton y pegas el anterior codigo.

[MAXIUM]

Definitivamente tu código no me funciona, pero este si, lo estoy estudiando y funciona de maravillas.

Código Delphi [-]
var HFnt: HFONT; Fontname, Txt: PChar; sze: Size;
begin
  Fontname := 'Arial';
  txt := '[cHackAll]';
  HFnt := CreateFont(90, 60, 0, 0, FW_BOLD, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
    PROOF_QUALITY, DEFAULT_PITCH + FF_DONTCARE, Fontname);

  SelectObject(Canvas.Handle, hfnt);
  SetBkMode(Canvas.Handle, TRANSPARENT);
  GetTextExtentPoint32(Canvas.Handle, txt, length(txt), sze);
  BeginPath(Canvas.Handle);

  TextOut(Canvas.Handle, 0, 0, Txt, length(Txt));

  EndPath(Canvas.Handle);

  StrokePath(Canvas.Handle);
  SetBkMode(Canvas.Handle, OPAQUE);


  DeleteObject(SelectObject(Canvas.Handle, GetStockObject(WHITE_BRUSH)));
  SelectObject(Canvas.Handle, GetStockObject(SYSTEM_FONT));
  DeleteObject(HFnt);

end;

[Ñuño Martínez]

Y digo yo, ¿no sería más fácil buscar una fuente tipográfica, instalarla y utilizarla? Salvo que estés programando un generador de fuentes tipográficas, claro...