#include "FiveWin.ch"
FUNCTION MAIN()
MsgInfo( LoadLIbrary( "freeimage64.dll" ) )
RETURN NIL
CLASS TImage FROM TBitmap
DATA nProgress
DATA nFormat
CLASSDATA cResFile AS CHARACTER ;
INIT If( ISWIN64(), "freeimage64.dll", "freeimage.dll" )
CLASS TImage FROM TBitmap
DATA nProgress
DATA nFormat
CLASSDATA cResFile AS CHARACTER ;
INIT If( ISWIN64(), "freeimage.dll", "freeimage.dll" )
CLASSDATA cResFile AS CHARACTER ;
INIT If( ISExe64(), "freeimage64.dll", "freeimage.dll" )
cnavarro wrote:Creo que quedaria mejor asi
- Code: Select all Expand view RUN
CLASSDATA cResFile AS CHARACTER ;
INIT If( ISExe64(), "freeimage64.dll", "freeimage.dll" )
HB_FUNC( ISEXE64 ) // Check if our app is 64 bits
{
hb_retl( ( sizeof( void * ) == 8 ) );
}
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
#include <hbapierr.h>
HB_FUNC( ISEXE64 ) // Check if our app is 64 bits
{
hb_retl( ( sizeof( void * ) == 8 ) );
}
#pragma ENDDUMP
DEFINE WINDOW oWnd ICON oIcon FROM nFilaSup, nColIzq TO nFilaInf, nColDer PIXEL TITLE APP_NAME MENU BuildMenu(oMenu)
DEFINE BUTTONBAR oBar SIZE 60, 60 CURSOR oMano OF oWnd _2007
// *********** bmp de fondo ********************************************
oBmpFondo = TImage():Define( , "fondo.jpg" )
hDC := oWnd:GetDC()
oWnd:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmpFondo:hBitMap,, oWnd:nWidth, oWnd:nHeight,, .t.) }
SendMessage( oWnd:hWnd, 128, 1, oIcon:hIcon )
DEFINE BUTTON FILENAME "printer.bmp" OF oBar NOBORDER TOP FONT oFontBar PROMPT "Print" GROUP ;
TOOLTIP "Selección de impresora" ACTION PrinterSetup()
DEFINE BUTTON FILENAME "Exit.bmp" OF oBar NOBORDER TOP FONT oFontBar PROMPT "Salir" ;
TOOLTIP "Fin de la sesión" ACTION oWnd:End()
ACTIVATE WINDOW oWnd
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 63 guests