FiveTech Software tech support forums

Antonio

Esto es un código que no he podido hacer funcionar bajo ninguna versión de FWH superior a 2.4. y xHarbour 0.99.60

Pareciera que el objeto contenedor (la ventana inicial) perdiera su contenido y por eso desconoce al modulo que se está ejecutando...

¿alguna sugerencia para superar el problema? ':oops:'

*********** CODIGO QUE NO FUNCIONA ***********
#include "FiveWin.ch"
Global oWnd
//------------------------------------------//

Function Main()
Local oFont2
IF IsExeRunning( cFileName( HB_ARGV(0) ) )
Alert("No es posible iniciar nuevamente..."+CRLF+;
"el programa esta abierto en"+CRLF+;
"segundo plano",,"ATENCION")
RETURN NIL
//ELSE
// xxSigue := .T.
ENDIF
BWCCRegister( GetResources() )
DEFINE FONT oFont2 name "ARIAL" size 0, -40
DEFINE WINDOW oWnd FROM 0, 0 TO MAXROW(), MAXCOL() ;
TITLE "ANALISIS MODULAR DE PROCESOS OPERATIVOS" ;
MENU BuildMenu()

SET MESSAGE OF oWnd ;
TO FWVERSION + ", " + "AMPO By SisGEm" CENTERED KEYBOARD

ACTIVATE WINDOW oWnd ON PAINT ;
( SayTexto(oWnd,"Análisis Modular de Procesos
Organizacionales",oFont2,,,3 )
MAXIMIZED

/*
ACTIVATE WINDOW oWnd ON PAINT ;
( FillColor( oWnd,4,,,, 1), SayTexto(oWnd,"Análisis Modular de

Procesos Organizacionales",oFont2,,,3 )) ;
MAXIMIZED
*/

return nil

Function SayTexto(_oWnd, texto, _oFont, nBottom, nRight, nLineBot)
local hWnd := _oWnd:hWnd
local aRect := GetClientRect( hWnd )
LOCAL nSizeTxt, nHeightFont

DEFAULT texto := "SisGEm",;
_oFont := _oWnd:GetFont(),;
nBottom := aRect[ 3 ],;
nRight := aRect[ 4 ],;
nLineBot:= 1

IF _oWnd != NIL
IF ! Empty( Texto )
nSizeTxt := _oWnd:GetWidth( texto, _oFont )
nHeightFont := _oFont:nHeight
_oWnd:GetDC()
_oWnd:Say(nBottom - (nHeightFont*nLineBot), ;
nRight - (nSizeTxt + 20) , ;
texto , ;
"W+/B","B+/W" , ;
_oFont, .T., .T., 0)
_oWnd:ReleaseDC()
ENDIF
ENDIF
RETURN NIL

DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "SgemBW32.DLL" //(BWCC32.DLL)

FUNCTION BuildMenu()
Local oMenu
// Define our menu for the shell window
MENU oMenu
MENUITEM "&Acerca de..."
MENU
MENUITEM "&Autoría" ;
ACTION AboutMe() //MsgLogo( "Logosys.bmp",5)
ENDMENU
MENUITEM "&Entidades" ;
ACTION Nodisp() ; //0101
MESSAGE "Registro de entidades que componen la
organización bajo análisis"
SEPARATOR
MENUITEM "&Procesos" ;
ACTION NoDisp() ; //0102
MESSAGE "Registro de procesos existentes en cada
Entidad"
SEPARATOR
MENUITEM "&Actividades" ;
ACTION NoDisp() ; //0103
MESSAGE "Registro y mantenimiento de Actividades
que componen un Proceso"

*MENUITEM "&Help" ; // 05
* ACTION VerHelp("SHM_Contents0001") ;
* MESSAGE "Ayuda principal"
MENUITEM "e&Xit" ;
ACTION oWnd:end() ;
MESSAGE "Salir del programa"
ENDMENU
RETURN oMenu

FUNCTION AboutMe()
Local oDlg, oBt
DEFINE DIALOG oDlg RESOURCE "AboutMe"
REDEFINE BUTTON oBt ID 101 ;
OF oDlg ;
ACTION oDlg:end() CANCEL
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL

FUNCTION NoDisp()
mSGINFO("Falta Desarrollar...","ATENCION...")
RETURN NIL

******** ARCHIVO RC *****
/*************************************************************************

ampo.rc

produced by Borland Resource Workshop

*************************************************************************/


#define BITMAP_1 1


AboutMe DIALOG 109, 53, 148, 88
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "COPYRIGHT"
FONT 8, "MS Sans Serif"
{
LTEXT "[A]nálisis", -1, 82, 9, 60, 8, NOT WS_GROUP
LTEXT "[M]odular de", -1, 82, 17, 60, 8, NOT WS_GROUP
LTEXT "[P]rocesos", -1, 82, 25, 60, 8, NOT WS_GROUP
LTEXT "[O]rganizacionales", -1, 82, 33, 60, 8, NOT WS_GROUP
LTEXT "Sistemas y Gestión Empresarial", -1, 22, 69, 104, 8, NOT WS_GROUP
LTEXT "Lima - Mayo, 2008", -1, 22, 77, 63, 8, NOT WS_GROUP
LTEXT "CopyRight", -1, 23, 61, 60, 8, NOT WS_GROUP
CONTROL "", -1, "BorShade", BSS_HDIP | BSS_LEFT | WS_CHILD | WS_VISIBLE, 0, 55, 146, 1
PUSHBUTTON "Button", 101, 6, 8, 66, 39
}


8777 BITMAP "logosys.bmp"

Sisgem BITMAP
{
'42 4D 36 13 00 00 00 00 00 00 76 00 00 00 28 00'
'00 00 78 00 00 00 50 00 00 00 01 00 04 00 00 00'
'00 00 C0 12 00 00 CE 0E 00 00 C4 0E 00 00 00 00'
'00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80'
'00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80'
'00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF'
'00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF'
'00 00 FF FF FF 00 FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F9'
'9F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF 99 9F FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF F9 99 99 FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF F9 99 99 9F FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF 99 99'
'99 9F FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF F9 99 99 99 99 FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF 99 99 99 99 99 9F FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF 99 99 9B 99 99 99 FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF F9 99 99 BB'
'B9 99 99 9F FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF 99 99 99 BB B9 99 99 9F'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF F9 99 99 9B BB BB 99 99 99 FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F9'
'99 99 BB BB BB B9 99 99 9F FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF 99 99 9B BB BB'
'BB BB 99 99 99 FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF F9 99 99 9B BB BB BB BB 99 99'
'99 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF 99 99 99 BB BB BB BB BB B9 99 99 9F FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF 99 99'
'9B BB BB BB BB BB BB 99 99 9F FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF F9 99 99 BB BB BB BB'
'BB BB BB B9 99 99 FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF 99 99 99 BB BB BB BB BB BB BB B9'
'99 99 9F FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'F9 99 99 9B BB BB BB BB BB BB BB BB 99 99 99 FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF F9 99 99 9B'
'BB BB BB BB BB BB BB BB B9 99 99 FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF 99 99 99 BB BB BB BB BB'
'BB BB BB BB BB 99 99 9F FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF F9 99 99 9B BB BB BB BB BB BB BB BB BB'
'BB 99 99 99 FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 99'
'99 99 BB BB BB BB BB BB BB BB BB BB BB B9 99 99'
'9F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF F9 99 99 9B BB BB'
'BB BB BB BB BB BB BB BB BB BB 99 99 99 FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF 99 99 99 BB BB BB BB BB BB BB'
'BB BB BB BB BB BB B9 99 99 9F FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF 99 99 99 BB BB BB BB BB BB BB BB BB BB BB'
'BB BB B9 99 99 9F FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF F9 99 99'
'9B BB BB BB BB BB BB BB BB BB BB BB BB BB BB 99'
'99 99 FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF 99 99 99 BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB B9 99 99 9F FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF F9 99 99 9B BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB 99 99 99 FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'F9 99 99 9B BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB 99 99 99 FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF 99 99 9F FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF 99 99 9F FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF 99 9F FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF F9 99 9F'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF F9 9F FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF 99 FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 9F'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF F9 9F FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF F9 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF F9 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 9F FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF F9 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF 99 99 99 BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB B9 99 99 9F FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF F9 99 99 9B BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'99 99 99 FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'F9 99 99 BB BB BB BB BB BB BB BB 09 99 90 BB B0'
'0B B0 00 BB BB 00 BB BB BB BB BB BB B9 99 99 FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF 99 99 99 BB'
'BB BB BB BB BB BB B0 99 99 99 0B B9 9B B0 99 BB'
'BB 99 BB BB BB BB BB BB B9 99 99 9F FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF F9 99 99 9B BB BB BB BB BB'
'BB BB B9 9B BB B0 00 B9 9B B0 99 BB BB 99 BB BB'
'BB BB BB BB BB 99 99 99 FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF F9 99 99 BB BB BB BB BB BB BB BB 09 90'
'00 00 00 B9 9B B0 99 BB BB 99 BB BB BB BB BB BB'
'BB B9 99 99 FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 99'
'99 9B BB BB BB BB BB BB BB BB B9 90 00 09 9B B9'
'9B B0 99 BB BB 99 BB BB BB BB BB BB BB BB 99 99'
'9F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF F9 99 99 9B BB BB'
'BB BB BB BB BB BB B9 90 00 09 9B B9 9B B0 99 BB'
'BB 99 BB BB BB BB BB BB BB BB 99 99 99 FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF 99 99 99 BB BB BB BB BB BB BB'
'BB BB BB 09 99 90 BB B9 9B B0 99 99 9B 99 BB BB'
'BB BB BB BB BB BB B9 99 99 9F FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF F9 99 99 9B BB BB BB BB BB BB BB BB BB BB BB'
'00 BB BB B0 0B B0 00 00 9B 99 BB BB BB BB BB BB'
'BB BB B9 99 99 99 FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF 99 99 99'
'9B BB BB BB BB BB BB BB BB BB BB BB BB BB BB B9'
'9B BB BB BB BB 99 BB BB BB BB BB BB BB BB BB 99'
'99 99 9F FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF 99 99 99 BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB B9 9B BB BB BB'
'BB 99 BB BB BB BB BB BB BB BB BB B9 99 99 9F FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF F9 99 99 9B BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB 99 99 99 FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'F9 99 99 9B BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB 99 99 99 FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF 99 99 FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF 99 99 9F FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF F9 99 FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF 99 99'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF 99 FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF 99 9F FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF F9 FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF 99 FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 9F FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 9F FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF F9 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 9F FF FF FF FF FF'
'FF FF FF FF FF FF FF FF F9 99 99 9B BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB 99 99 99 FF FF FF FF FF FF FF FF FF'
'FF FF FF FF F9 99 99 9B BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'99 99 99 FF FF FF FF FF FF FF FF FF FF FF FF FF'
'99 99 99 BB BB BB B0 09 99 00 0B BB BB BB BB BB'
'00 0B BB BB BB BB 00 00 BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB B9 99 99 9F'
'FF FF FF FF FF FF FF FF FF FF FF FF 99 99 9B BB'
'BB B9 99 99 99 99 99 0B B9 90 BB 09 99 99 0B BB'
'B0 99 99 99 90 99 BB 99 99 99 99 99 99 9B 99 0B'
'BB B9 90 BB BB 99 9B BB BB 99 99 9F FF FF FF FF'
'FF FF FF FF FF FF FF F9 99 99 BB BB BB 00 0B BB'
'BB BB B9 9B B9 90 B0 00 0B B9 90 B0 99 0B BB BB'
'09 99 BB 99 0B BB BB BB BB BB 99 0B BB B9 90 BB'
'BB 99 9B BB BB 99 99 99 FF FF FF FF FF FF FF FF'
'FF FF FF 99 99 99 BB BB BB BB BB BB BB BB 09 9B'
'B9 90 BB B0 99 99 9B B9 99 BB BB BB B0 99 BB 99'
'0B BB BB BB BB BB 99 0B BB B9 90 BB BB 99 9B BB'
'BB B9 99 99 9F FF FF FF FF FF FF FF FF FF F9 99'
'99 9B BB BB BB BB 00 99 99 99 99 0B B9 90 B0 99'
'90 0B BB B9 90 BB BB 99 99 99 BB 99 00 00 00 0B'
'BB BB 99 9B BB 09 99 BB B0 99 0B BB BB BB 99 99'
'99 FF FF FF FF FF FF FF FF FF F9 99 99 9B BB BB'
'BB B0 99 99 99 99 90 BB B9 90 B0 99 0B B0 00 B9'
'90 BB BB 99 99 99 BB 99 99 99 99 0B BB BB 99 90'
'BB 09 99 BB B9 99 0B BB BB BB 99 99 99 FF FF FF'
'FF FF FF FF FF F9 99 99 99 BB BB BB BB 09 90 BB'
'BB BB BB BB B9 90 BB 09 99 99 0B B9 99 BB BB BB'
'BB 00 BB 99 0B BB BB BB BB BB 99 99 99 99 09 99'
'99 90 BB BB BB BB B9 99 99 99 FF FF FF FF FF FF'
'FF F9 99 99 9B BB BB BB BB B9 90 BB BB BB 00 0B'
'B0 00 BB BB 00 0B BB B9 99 BB BB BB B0 99 BB 99'
'0B BB BB BB BB BB 00 0B 00 0B B0 00 00 0B BB BB'
'BB BB BB 99 99 99 FF FF FF FF FF FF FF 99 99 99'
'BB BB BB BB BB BB 09 99 99 99 90 BB B9 90 BB BB'
'BB BB BB BB 09 99 99 99 99 9B BB 99 99 99 99 99'
'99 9B BB BB BB BB BB BB BB BB BB BB BB BB BB B9'
'99 99 9F FF FF FF FF FF F9 99 99 9B BB BB BB BB'
'BB BB BB BB 00 00 BB BB B9 90 BB BB BB BB BB BB'
'BB 00 99 90 00 BB BB 99 99 99 99 99 99 9B BB BB'
'BB BB BB BB BB BB BB BB BB BB BB B9 99 99 99 FF'
'FF FF FF FF 99 99 99 BB BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB 99 99 99 9F FF FF FF FF'
'99 99 99 BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB BB'
'BB BB BB BB B9 99 99 9F FF FF FF F9 99 9F FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF 99 99 99 FF FF FF 99 99 FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF 99 99'
'9F FF F9 9F FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF F9 99 FF F9 FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF 99 FF 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99'
'99 99 99 99 99 9F'
}

Vamos Antonio!!! Dame una "ayudita" que ya he tratado por muchos medios de averiguar porqué no logra funcionar

Armando,

Acabo de leer este mensaje que pusistes en Mayo!

Por favor, siempre que yo no responda, insistid. Porque a veces se me pasan mensajes por revisar. Gracias,

Y de paso preguntarte, lo solucionastes ?

Antonio Linares wrote:Armando,

Acabo de leer este mensaje que pusistes en Mayo!

Por favor, siempre que yo no responda, insistid. Porque a veces se me pasan mensajes por revisar. Gracias,

Y de paso preguntarte, lo solucionastes ?

Si lo solucioné, no hace mucho... Esta es la explicación.

Lo que sucede (salvo que sea una exageración mia) es que al cambiar el codigo del xHarbour que se utilizaba con la versión 2.4 --que en mi caso fue el referente--, se hizo imperativo:

1) Cargar la libreria para manejar el BWCC32.DLL, al inicio del programa de entrada:
hBorland := LoadLibrary("BWCCDLL.32");
2) Luego las llamadas normales a los menu y etc., etc. y;
3) Finalmente liberar el manejador:
FreeLibrary("BWCC32.DLL")

Hasta la versión 2.4 no era imprescindible cargar el manejador del Bwcc32.dll.

En las siguientes versiones incluyendo la actual, por el cambio en el codigo del xHarbour, se tornó crítico, y por ello, el contenedor no podía registrar los objetos y daba el mensaje de "modulo desconocido" y se truncaba el programa.

Estuve peleando con este bug desde la siguiente versión del FWH... y ya puedes imaginar que nivel de decepción alcancé.

Saludos.

Armando

Armando,

La razón es que hasta la versión 2.4 de FWH existía un bug que no liberaba correctamente las DLLs usadas, asi al hacer LoadLibray() la DLL se quedaba cargada en memoria, aunque se llamase a FreeLibrary().

Al corregirlo en siguientes versiones de FWH, entonces se hacía preciso volver a cargar la DLL, ya que dejaba de estar disponible.

Antonio Linares wrote:Armando,

La razón es que hasta la versión 2.4 de FWH existía un bug que no liberaba correctamente las DLLs usadas, asi al hacer LoadLibray() la DLL se quedaba cargada en memoria, aunque se llamase a FreeLibrary().

Al corregirlo en siguientes versiones de FWH, entonces se hacía preciso volver a cargar la DLL, ya que dejaba de estar disponible.

Pues Sí

Lo que pasa es que tuvo que pasar mucho tiempo para darme cuenta que ese fue uno de los cambios que nadie avisó que se había dado... (no está encontré documentación al respecto)

Ahora estoy yendo a la busqueda de solucionar el ajuste automático de la ventana cliente en MDI de manera que los degradados y bitmaps de fondo también se reajusten ante el cambio de resolución.

Tengo algunos ejemplos realizados en C++ pero como no soy bueno en ese lenguaje me está tomando mucho tiempo... (no me gusta depender del API de windows)

Armando,

En el fichero whatsnew.txt de FWH, del cual publicamos aqui copia en cada build, se especificó claramente el error y la solución:

August 2004 build
=============

...

* IMPORTANT: Since version 2.5, FreeLibrary() 32 bits is properly working, so if you are using Borland controls, you will have to do a previous local hDLL := LoadLibrary( "bwcc32.dll" ) and a final FreeLibrary( hDLL ) besides the call to BWCCRegister() that keeps being required.

>
Ahora estoy yendo a la busqueda de solucionar el ajuste automático de la ventana cliente en MDI de manera que los degradados y bitmaps de fondo también se reajusten ante el cambio de resolución.
>

Si explicas lo que quieres hacer y pones un ejemplo, con mucho gusto intentaremos ayudar