clase modificada sobre clase standard

[Compuin]

Saludos

Quisiera saber como puedo utilizar una clase (La TBar) modificada para que sea prioritaria dobre la TBar standard.

Gracias de antemano

[Carlos Mora]

Hola Compuin,

lo ideal sería que las clases viniesen con una clase intermedia vacía, como está hecho en la libreria de THaruPdf, no queda otro remedio que modificar el codigo fuente de la clase original.

La forma más práctica de modificar una clase original es renombrar la clase usando el preprocesador y creando la tuya propia con el nombre de la original.

Primero copias la clase original a tu proyecto, en este caso la TBar.prg.

Justo antes donde define la clase, haces un define del nombre a otro. (El token Tbar se transforma en una constante)

Code: Select all  Expand view

// Esto es lo que tu añades
#define TBar TFWBar

CLASS Tbar FROM TControl .....
 

De esta manera la clase queda renombrada y ya puedes crear la tuya propia a partir de esta:


// MyTBar.prg

Code: Select all  Expand view

CLASS TBar FROM TFWBar

// ... Tu código
 

Asi cuando tengas la nueva version de FW, solo tienes que incorporar la nueva TBar, añadirle la línea del define, y ya está. Además todo el código que cambies estará en un prg separado.

Un saludo

[Compuin]

Carlos

Muchas gracias!