Ver Mensaje Individual
  #5  
Antiguo 01-03-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Ya estuve yo probando el dp.SyntaxHighlighter que había visto ayer en un hilo que desapareció Está interesante y es muy sencillo de usar. He aquí un ejemplo:

Código:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title> SH Delphi </title>
<meta http-equiv='content-type' content='text/html; charset=iso-8859-1'>
<meta name='author' content='román sánchez'>
<meta name='description' content='ejemplo de uso de dp.SyntaxHighlighter'>

<script type='text/javascript' src='dp.SyntaxHighlighter/Scripts/shCore.js'></script>
<script type='text/javascript' src='dp.SyntaxHighlighter/Scripts/shBrushDelphi.js'></script>
<script type='text/javascript'>
function docLoad()
{
	dp.SyntaxHighlighter.HighlightAll('codigo');
}
</script>

<link rel='stylesheet' type='text/css' href='dp.SyntaxHighlighter/Styles/SyntaxHighlighter.css'>
<link rel='stylesheet' type='text/css' href='dp.SyntaxHighlighter/Styles/TestPages.css'>
</head>
<body onload='docLoad()'>

<h1>Ejemplo</h1>

<div id='ejemplos'>
<textarea name='codigo' class='delphi:nocontrols' rows='15' cols='80'>
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.
</textarea>
</div>
</body>
</html>
Para el objetivo deseado, me parece muy buena opción. ¡Qué bueno que la mencionaste!

// Saludos
Responder Con Cita