Felicitaciones a Domingo Seoane por sus primeros 1.000 mensajes

[[seoane]]

Código Delphi [-]
_______XXXX______________XXXXXX________XXXXXX________XXXXXX____
______XXXXX_____________XXXXXXXX______XXXXXXXX______XXXXXXXX___
_____XXXXXX____________XXXXXXXXXX____XXXXXXXXXX____XXXXXXXXXX__
___XXXXXXXX____________XXXX__XXXX____XXXX__XXXX____XXXX__XXXX__
__XXXXXXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
__XXX_XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
__X___XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX____XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX____XXXXX___XXXX__XXXX____XXXX__XXXX____XXXX__XXXX__
______XXXXX____XXXXX___XXXXXXXXXX____XXXXXXXXXX____XXXXXXXXXX__
______XXXXX____XXXXX____XXXXXXXX______XXXXXXXX______XXXXXXXX___
______XXXXX____XXXXX_____XXXXXX________XXXXXX________XXXXXX____

Y sobre todo:

Código Delphi [-]
____________________________________________________XXXXX____________________________
____________________________________________________XXXXX____________________________
____________________________________________________XXXXX____________________________
_____________________________________________________________________________________
___XXXX_XXXXX__XXXX_XXX____XXXXXXX_______XXXXXX_____XXXXX_____XXXXXXX______XXXXXXX___
__XXXXXXXXXXX__XXXXXXXX__XXXXXXXXXX_____XXXXXXXXX___XXXXX___XXXXXXXXXX____XXXXXXXXX__
_XXXXXXXXXXXX__XXXXXXX__XXXXXXXXXXXX___XXXXXXXXXX___XXXXX__XXXXXXXXXXXX__XXXXX__XXXX_
_XXXXX__XXXXX__XXXXXX___XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_______
_XXXXX__XXXXX__XXXXX__________XXXXXX__XXXXX_________XXXXX________XXXXXX__XXXXXXXXX___
_XXXXX__XXXXX__XXXXX______XXXXXXXXXX__XXXXX_________XXXXX____XXXXXXXXXX___XXXXXXXXX__
_XXXXX__XXXXX__XXXXX_____XXXXX_XXXXX__XXXXX__XXX____XXXXX___XXXXX_XXXXX_____XXXXXXXX_
_XXXXX__XXXXX__XXXXX____XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX________XXXXX_
__XXXXXXXXXXX__XXXXX____XXXXXXXXXXXX___XXXXXXXXXX___XXXXX__XXXXXXXXXXXX__XXXX__XXXXX_
__XXXXXXXXXXX__XXXXX_____XXXXXXXXXXX____XXXXXXXXX___XXXXX___XXXXXXXXXXX___XXXXXXXXX__
___XXXX_XXXXX__XXXXX______XXXX__XXXX_____XXXXXX_____XXXXX____XXXX__XXXX____XXXXXXX___
________XXXXX________________________________________________________________________
_XXXXXXXXXXXX________________________________________________________________________
_XXXXXXXXXXX_________________________________________________________________________
___XXXXXXX___________________________________________________________________________

Y como siempre digo, un poco de código

Código Delphi [-]
function StrToStr(Str: string): string;
var
  Bitmap: TBitmap;
  i,j: integer;
begin
  Result:= '';
  Bitmap:= TBitmap.Create;
  try
    Bitmap.Canvas.Font.Name:= 'Arial Black';
    Bitmap.Canvas.Font.Size:= 16;
    Bitmap.Width:= Bitmap.Canvas.TextWidth(Str);
    Bitmap.Height:= Bitmap.Canvas.TextHeight(Str);
    Bitmap.Canvas.TextOut(0,0,Str);
    for j:= 0 to Bitmap.Height - 1 do
    begin
      for i:= 0 to Bitmap.Width - 1 do
        if Bitmap.Canvas.Pixels[i,j] = $FFFFFF then
          Result:= Result + '_'
        else
          Result:= Result + 'X';
      Result:= Result + #13#10;
    end;
  finally
    Bitmap.Free;
  end;
end;