7 respuestas en este tema

[c0lo]

Hola a todos y un gran saludo de mi parte.

Bueno en esta ocasion desearia saber si podrian ayudarme a dibujar un texto, de la forma como esta en esta imagen:


E buscado informacion sobre como dibujar algo asi, pero no e encontrado mucha ayuda, la unica que encontre fue esta:

http://www.clubdelph...780&postcount=6
la cual hace el dibujo al contrario o del otro sentido que yo deseo.


Haber si me dan una manito y Gracias

[felipe]

Pues bien tienes dos opciones, dibujarla con solo canvas o simplemente utilizar un Label.

Saludos!

[c0lo]

Podrias explicarma ambas o la que mejor creas tu?

Gracias

[eduarcol]

pero exactamente que necesitas?? las letras con el borde blanco???

[c0lo]

Si ese estilo exactamente que el borde sea blanco y el centro negro o de mi gusto.

[c0lo]

Hola a todos, e intentado aplicar este codigo que encontre, el cual me muestra el contorno del texto.

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;

lo que quiero ahora, es dibujar el texto y que pueda definir el fondo del texto y el borde, como este ejemplo:

Definir el fondo de mi texto y luego hacer un borde de distinto color...

Gracias

[cHackAll]

delphi

var
Bitmap: TBitmap;
lpScanLine, lpBuffer: PChar;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap := TBitmap.Create;
Bitmap.Width := ClientWidth;
Bitmap.Height := ClientHeight;
Bitmap.PixelFormat := pf32bit;
Bitmap.Canvas.Font.Size := 16;
Bitmap.Canvas.Font.Name := 'Tahoma';
Bitmap.Canvas.Brush.Color := clBlack;
lpScanLine := Bitmap.ScanLine[Bitmap.Height - 1];
lpBuffer := Ptr(LocalAlloc(0, Bitmap.Width * Bitmap.Height * 4));
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var Size, Index, y, x, Value, Pos: Integer;
begin
with Bitmap.Canvas do
  begin
  FillRect(ClientRect);
  Font.Color := clWhite;
  TextOut(6, 6, 'cHackAll');
 
  Size := Bitmap.Width * 4;
  Move(lpScanLine^, lpBuffer^, Size * Bitmap.Height);
  for Index := 0 to Size * Bitmap.Height do
    begin
    Value := 0;
    for y := -2 to 2 do
      for x := -2 to 2 do
      begin
        Pos := Index + (y * Size) + (x * 4);
        if (Pos >= 0) and (Pos < (Bitmap.Height * Size)) then
        Inc(Value, Byte(lpBuffer[Pos]));
      end;
    lpScanLine[Index] := Chr(Value div 25);
    end;
 
  Font.Color := clBlack;
  SetBkMode(Handle, TRANSPARENT);
  TextOut(6, 6, 'cHackAll');
  end;
 
Canvas.Draw(0, 0, Bitmap);
end;

[c0lo]

Gracias, por la ayuda, ya con esto podria modificarlo a mi gusto, y poder desarrollarlo de distintas maneras.

Gracias cHackAll