Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Antonio...Codigo que no funciona
Posted: Sun May 25, 2008 02: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 "&amp;Help"      ;         // 05
       *       ACTION   VerHelp("SHM_Contents0001")               ;
       *       MESSAGE "Ayuda principal"
       MENUITEM "e&amp;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

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Antonio...Codigo que no funciona
Posted: Tue May 27, 2008 09: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

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Antonio...Codigo que no funciona
Posted: Fri Aug 22, 2008 07: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

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Antonio...Codigo que no funciona
Posted: Fri Aug 22, 2008 08:58 PM

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

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

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Antonio...Codigo que no funciona
Posted: Sat Aug 23, 2008 09: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

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Antonio...Codigo que no funciona
Posted: Sat Aug 23, 2008 05: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

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Antonio...Codigo que no funciona
Posted: Sat Aug 23, 2008 07: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

FiveTech Support Forums

include "FiveWin.ch"

define BITMAP_1 1

Continue the discussion