Problemas al Incrustar controles de un Dialog a una Ventana
Posted: Fri Aug 01, 2008 3: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
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