Clases y Objetos con Visual Creswin

Una de las ventajas que ofrece Creswin es la creación de clases para posteriormente poder hacer uso de ella como objeto.

El archivo ..\system\classes\chart.cls es un ejemplo de cómo lo podemos hacer.

Para poder ver funcionando correctamente la clase, debemos hacer algunos cambios en creswin.vcw, por que necesitamos agregar un nuevo comando.

El comando que vamos a agregar es DEFINE MDICHILD

En el sitio http://vikthor.com.mx/visualcreswin pueden descargar los siguientes archivos :

• mdichild.vcw
• grafica.bwp

Que son los archivos que necesitamos para ver el correcto funcionamiento de las clases.

El siguiente código muestra el llamado del nuevo comando y la creación de la gráfica.

PUBLICA 'oChart'
PUBLICA 'oChild'

DEFINE MDICHILD oChild TITLE "Graficas con Visual Creswin"

@ 0 ,0 VBX oChart OF oChild SIZE oChild:nWidth()-4 ,oChild:nHeight()-10 ;
FILE "Chart2Fx.Vbx" ;
CLASS "CHARTFX20" ;
ON "LButtonDblClk" cw:Click()

oChild:bInit := { Self cw:LoadChart() }
oChild:bReSized := { oChart:SetSize( oChild:nWidth, oChild:nHeight, .T. ) }
ACTIVATE WINDOW oChild

TERMINA