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