[[Lepe]]

Empezado por Crandel

Por defecto al hacer Ctrl + click salta directamente a la implementación, con excepción que la implementación este en la misma unit y debajo de la llamada.

Quizás lo he entendido mal, pero yo tengo la implementación de un procedimiento y debajo en otro procedure tengo una llamada, al hacer ctrl + click me lleva a la implementación de la rutina.

Si quieres hacerlo tú mismo podría ser relativamente sencillo con los cnScripts. Yo tengo algunos hechos, si tenéis interés lo dicen y lo subo (ya lo subí antes de la caida del servidor y no tuvo mucho éxito, jeje).

Aquí pongo lo que hacen:
Estos son CnScripts, por tanto necesitas tener instalado CnPacks en tu Delphi. Al tiempo de añadirlos al Script library (Cnpacks -> Script Wizard -> Script Library) se le puede asignar un Shortcut para ejecutar ese script de forma cómoda, (yo sugiero algunas teclas rápidas, pero usad las que queráis).


No hay que añadir todos los archivos, sólo los que indico aquí:

___________________________________________________
Fichero: DeleteWord.pas
tecla rápida: CTRL + W
propósito: Borrar la palabra en la que está el cursor, tanto a la izquierda como a la derecha. Se para al encontrar un carácter especial (espacios, paréntesis, punto, etc), puede pulsarse de nuevo para borrar el carácter a la derecha (aunque sea un carácter especial).

Sería equivalente a pulsar CTRL + RETROCESO y después CTRL + T (de verdad me extraña que no exista ya una tecla rápida para esto)

___________________________________________________
Fichero: SelectionUp.pas
tecla rápida: ALT + FLECHA ARRIBA
propósito: Mover el texto seleccionado (o la línea actual si no hay selección) una línea hacia arriba en el editor.

___________________________________________________
Fichero: SelectionDown.pas
tecla rápida: ALT + FLECHA ABAJO
propósito: Idéntico al anterior, pero obviamente mueve hacia abajo.

___________________________________________________
Fichero: NewVar.pas
tecla rápida: CTRL + V (yo no uso esa combinación para pegar texto)

Info: Cnpacks cuenta con CTRL + SHIFT + V para saltar entre la zona de declaración de variables y el punto en el que estabas antes de pulsar esa combinación, de ahí que use CTRL + V para este script.

propósito: Declarar variables locales al vuelo, es decir, teniendo el código

Código Delphi [-]
procedure mio;
begin
  x:integer|<<end

y ejecutando el script pulsando la tecla rápida, el código se convierte en:

Código Delphi [-]
procedure mio;
var
  x:integer;
begin
  x:=|
end

(es sólo un ejemplo, el Script respeta la sangría, comprueba si existe o no la palabra "var", etc)

Este CnScript soporta diccionarios (ver los archivos .ini del zip), de forma que escribiendo:

Código Delphi [-]
procedure mio;
begin
  lista|
end

y ejecutando el script obtenemos:

Código Delphi [-]
interface

Uses Classes;
...

procedure mio;
var
  lista:TStringList;
begin
  lista := TStringList.Create;|
end

También añade el "uses Classes" en la zona de interface si no estaba presente
en la zona interface o implementation.

Los archivos .ini tenéis que modificarlos a mano, No hay interfaz gráfica.
___________________________________________________
Fichero: Found_Uses_Of_token
tecla rápida: CTRL + SHIFT + U
propósito: busca el "uses" de la palabra donde está el cursor.
Si lo encuentra, lo añadirá al uses de tu código fuente.

Características:
- Encontrará todas las clases de Delphi 7 definidas en Source\VCL y Source\RTL
- Encontrará muchos tipos enumerados y sus constantes, es decir, para la definición:

type TSeekOrigin = (soBeginning, soCurrent, soEnd);
Encontrará tanto "TSeekOrigin" como "soCurrent", "soEnd", etc.

- NO importa mayúsculas o minúsculas
- NO encontrará tipos enumerados que han sido definido en varias lineas, ni tipos record, ni constantes.
- NO busca en los archivos del proyecto actual :-(

El archivo usesD7lowercase.ini guarda los tipos que están definidos en cada unidad de Delphi. Ahora son 43 KB, de ahí que no desee añadir más constantes ni tipos al diccionario.