FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Antonio...Codigo que no funciona

Post a reply

Antonio...Codigo que no funciona

Postby Armando Picon » Sun May 25, 2008 2:52 am

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'
}
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru
Top

Postby Armando Picon » Tue May 27, 2008 9:08 pm

Vamos Antonio!!! Dame una "ayudita" que ya he tratado por muchos medios de averiguar porqué no logra funcionar
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru
Top

Postby Antonio Linares » Fri Aug 22, 2008 7:35 pm

Armando,

Acabo de leer este mensaje que pusistes en Mayo! :oops:

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

Y de paso preguntarte, lo solucionastes ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41366
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Top

Postby Armando Picon » Fri Aug 22, 2008 8:58 pm

Antonio Linares wrote:Armando,

Acabo de leer este mensaje que pusistes en Mayo! :oops:

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
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru
Top

Postby Antonio Linares » Sat Aug 23, 2008 9:16 am

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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41366
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Top

Postby Armando Picon » Sat Aug 23, 2008 5:34 pm

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)
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru
Top

Postby Antonio Linares » Sat Aug 23, 2008 7:05 pm

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 :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41366
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], sysctrl2 and 33 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group