Page 1 of 1

Problemas al Incrustar controles de un Dialog a una Ventana

Posted: Fri Aug 01, 2008 3:48 pm
by VPOZO
Tiempo atras antonio dio una procedimiento para incrustar controldes de un Dialog a una ventana pero tengo problemas cuando los controles son del tipo GET, pasa loc controles bien pero al hacer clink en la ventana sobre el control traspasado me sale el siquiente error

Desde ya gracias


FIVEWIN ha causado un error de protecion general en el modulo KRNL386 en 0001:2D19

Escoja Cerrar FIVEWIN se cerrara

El codigo de la aplicacion es el siguiente

*----------------------------------------*
#include "FiveWin.ch"

local oChild

SET RESOURCES TO "RECURSO.DLL"

DEFINE WINDOW oChild TITLE "A Child Window" MDICHILD

ACTIVATE WINDOW oChild ;
ON INIT BuildDialog( oChild )

SET RESOURCES TO
return nil

function BuildDialog( oChild )

local oDlg, oGet1, oGet2, oGet3, oGet4, nLoca_desde, nBode_Desde
local cLoca_desde, cBode_Desde, aLocaD:={}, aBodeD:={}, oBtn


DEFINE DIALOG oDlg RESOURCE "DLG_PRUEBA" OF oChild


REDEFINE GET oGet1 ID 10 OF oDlg

REDEFINE COMBOBOX oGet3 VAR cLoca_Desde ITEMS aLocaD COLORS col_text, col_fondo ID 12 OF oDlg
REDEFINE COMBOBOX oGet4 VAR cBode_Desde ITEMS aBodeD COLORS col_text, col_fondo ID 13 OF oDlg
*
REDEFINE BTNBMP oBtn ID 17 OF oDlg ACTION oDlg:end() RESOURCE "BMP_CANCEL16" PROMPT "Cancela" LEFT TOOLTIP "Cancela el Ingreso del Traslado..."


ACTIVATE DIALOG oDlg NOWAIT ;
ON INIT ChangeParent( oDlg, oChild )

oDlg:End()

oChild:SetSize( 800, 400 )

return nil

function ChangeParent( oDlg, oChild )

local n

for n = 1 to Len( oDlg:aControls )
SetParent( oDlg:aControls[ n ]:hWnd, oChild:hWnd )
AAdd( oChild:aControls, oDlg:aControls[ n ] )
next

return nil

Posted: Fri Aug 01, 2008 5:00 pm
by Antonio Linares
Estas usando FiveWin para Clipper รณ FWH 32 bits ?

incustar controles de un dialog a una ventana

Posted: Fri Aug 01, 2008 9:10 pm
by VPOZO
recibi el correo donde me explica que el codigo esta probado para FWH 32 bit y que posiblemente no funcione en 16 bit. Le estoy dando vueltas al asunto pienzo que quizas si detecto el tipo de classe get al cambiar los controles del dialog a la ventana pueda definir un control similar en la ventana destino, como clonarlo o algo asi... Le voy a dedicar un tiempo mas al tema y si no seguire ocupando los dialog en mi sistema. el problema que queria solucionar con esto es que los dialog cuando son nomodal y saldo del ambito del dialogo para pinchar la ventana principal (MDI) las variables del dialog se destruyen.