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 :
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
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
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
Comentarios
Pueden decirme que comando elimina los acumulados de clientes cuando copias el arch m_clie a una nueva empresa y cual comando elimina los apartados?
Usuario nuevo