Veréis, tengo una aplicación con una pantalla principal con fondo blanco y en el centro una imagen del logo sobre fondo blanco también. El caso es que, después de trabajar un rato y sin saber la causa (quizá sea de falta de refresco), el fondo de la pantalla principal se queda en negro y la letra del SET MESSAGE se queda en negrita.
El código del prg principal es:
- Code: Select all Expand view RUN
- #include "FiveWin.ch"
#include "ord.ch"
#include "XBrowse.Ch"
ANNOUNCE RDDSYS
REQUEST DBFCDX, DBFFPT
REQUEST HB_LANG_ESWIN
static oWnd
Extern set
//----------------------------------------------------------------------------//
function Main()
local oBrush, oBar, oBmp, cRuta
// REQUEST DBFCDX
RDDSETDEFAULT ( "DBFCDX" )
SET AUTOSHARE TO 0
SET DELETED ON
SET _3DLOOK ON
SET DATE TO FRENCH
SET CENTURY ON
SET EPOCH TO 1990
//SET EXCLUSIVE OFF
* set multiple on
SetBalloon( .T. )
SkinButtons()
HB_LANGSELECT( 'ESWIN' )
HB_SetCodePage("ESWIN")
DEFINE BRUSH oBrush COLOR RGB(255,255,255) // FiveWin new predefined Brushes
DEFINE WINDOW oWnd FROM 4, 4 TO 25, 75 TITLE "Empresa";
MDI VSCROLL;
STYLE nOr(WS_CAPTION, WS_MINIMIZEBOX, WS_MAXIMIZEBOX, WS_THICKFRAME);
MENU BuildMenu();
BRUSH oBrush
DEFINE BUTTONBAR oBar OF oWnd
DEFINE BUTTON FILENAME "\COMPARTIDO\REGSAT\WINSAT\BITMAPS\PROCESS.bmp" OF oBar GROUP ;
MESSAGE "Abrir SAT" ACTION Clients() ;
TOOLTIP "Iniciar SAT"
DEFINE BUTTON FILENAME "\COMPARTIDO\REGSAT\WINSAT\BITMAPS\QUESTION.bmp" OF oBar ;
MESSAGE "Información del sistema" ACTION MsgAbout();
TOOLTIP "Información del sistema"
DEFINE BUTTON FILENAME "\COMPARTIDO\REGSAT\WINSAT\BITMAPS\EXIT.bmp" OF oBar ;
ACTION If( MsgYesNo( "¿Desea salir de la aplicación?", "Seleccion opción" ), oWnd:End(), ) ;
MESSAGE "Fin de sesión";
TOOLTIP "Salir de la aplicación"
//SET MESSAGE OF oWnd TO FWVERSION + FWCOPYRIGHT CLOCK DATE
SET MESSAGE OF oWnd TO "© 2021 " CENTER
@ 4, 16 BITMAP oBmp FILENAME "\COMPARTIDO\REGSAT\WINSAT\BITMAPS\LOGO.png" NOBORDER OF oWnd ;
ON CLICK( oBmp:lStretch := ! oBmp:lStretch, oBmp:Refresh( .t. ) )
// ACTIVATE WINDOW oWnd MAXIMIZED ON RESIZE oBmp:Center() ON INIT CLIENTSAT()
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT PalBmpDraw( hDC, 150, 250, oBmp:hBitmap );
ON CLICK CLIENTSAT()
oBmp:End()
return nil
¿Qué esta mal?
Un saludo y muchas gracias
