Lucas:
Gracias por el interés, no, no genera archivo log alguno.
Saludos
./,)/+-***
BMP
*/')0-)//
BRUSH
1711608478
BMP
/**0*//00.
BMP
319099923
BMP
1241847795
BMP
486871505
BMP
134550446
BMP
').),+-).
BMP
//0*'**0+-
BMP
/()(-(*)0.
FONT
873469951
BRUSH
//)-),-*.+
FONT
402987011
BMP
67442704
BMP
772085772
15/11/2015 16:30:14: DeleteObject( ::hFont ) failed from TFont:End() -1173743625 0 .T.
STATIC FUNCTION Salir( )
IF MsgNoYes( "Seguro desea salir de la aplicación ?", oApp:cAplicacion )
SET RESOURCES TO
WinHelp( GetHelpFile( ), 2 )
ResAllFree( )
MEMORY( - 1 )
oApp:oCon:Close()
IF File( "checkres.txt" )
FErase( "checkres.txt" )
ENDIF
CheckRes()
ELSE
RETURN ( .F. )
ENDIF
RETURN ( .T. )
#include "FiveWin.ch"
function Main()
local oWnd
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd ON RESIZE oWnd:SetSize( oWnd:nWidth + 1, oWnd:nHeight )
return nil
En el MAIN (código abreviado)
FUNCTION Main()
oApp := TAplicacion()
.....
.....
.....
CLASS TAplicacion
DATA cUsuario INIT ""
DATA cRazonSocial INIT "EMPRESA NO REGISTRADA, S.A. DE C.V."
DATA cVersion INIT "Versión 1.0M0"
DATA oBrush INIT NIL
....
....
ENDCLASS
Y en el PRG del problema tengo esto:
MEMVAR oApp (Me traigo muchas variables de la clase, entre otras el BRUSH)
FUNCTION SicWin1a(oWindow)
...
DEFINE DIALOG oDlg RESOURCE "BrwCpa" OF oWnd FONT oFont ICON oIcono;
BRUSH oApp:oBrush TRANSPARENT
....
....
RETURN(.T.)
ACTIVATE DIALOG oDlg NOWAIT ON INIT oDlg:MOVE(0,0) VALID ! GetASyncKey(VK_ESCAPE)
ACTIVATE WINDOW oWnd ON INIT (IF( oWnd <> NIL, oWnd:SETSIZE(oDlg:nWidth,oDlg:nHeight+29), ),;
(LaBarra(oWnd,oDlg,oBrw,oBrx,oBry),oBrw:SetFocus())) VALID Cierra()
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 45 guests