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í
