FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for CA-Clipper Problemas al Incrustar controles de un Dialog a una Ventana
Posts: 32
Joined: Tue Jun 24, 2008 05:19 PM
Problemas al Incrustar controles de un Dialog a una Ventana
Posted: Fri Aug 01, 2008 03:48 PM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Problemas al Incrustar controles de un Dialog a una Ventana
Posted: Fri Aug 01, 2008 05:00 PM

Estas usando FiveWin para Clipper ó FWH 32 bits ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 32
Joined: Tue Jun 24, 2008 05:19 PM
incustar controles de un dialog a una ventana
Posted: Fri Aug 01, 2008 09:10 PM

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.

Continue the discussion