¡ Listo el Pollo !!!... .:: De todo un poco ::.

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

EL Pre-procesador de Creswin, nos permite crear nuestros propios comandos y también modificarlos. El siguiente ejemplo muestra las modificaciones que le hice al comando " ACTIVATE DIALOG ". De tal forma que ahora podemos hacer lo siguiente al activar un Dialogo : ACTIVATE DIALOG oDlg ; ONPAINT cw:Draw( hDc , Self ) ; ONMOVE cw:Limite( nRow , nCol ) ; ONRCLICK Self:Circle( nRow , nCol , nRandom(50) ) ; CENTERED NOMODAL; ONLCLICK M6( "bLClicked Ren : "+lTrim( Str(nRow) ) +" Col : "+Ltrim( Str(nCol) ) ) ; VALID MsgInfo("Me voy a salir del dialogo"),.T. El código de la función Draw() es este. : Y vamos a obtener como resultado una imagen como está : El código fuente del programa lo pueden bajar desde aquí