FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch"

FUNCTION MAIN()

   MsgInfo( LoadLIbrary( "freeimage64.dll" ) )

RETURN NIL
 

Code: Select all

CLASS TImage FROM TBitmap

   DATA nProgress

   DATA nFormat

   CLASSDATA cResFile AS CHARACTER ;
       INIT If( ISWIN64(), "freeimage64.dll", "freeimage.dll" )
 

Code: Select all

CLASS TImage FROM TBitmap

   DATA nProgress

   DATA nFormat

   CLASSDATA cResFile AS CHARACTER ;
       INIT If( ISWIN64(), "freeimage.dll", "freeimage.dll" )
 

Code: Select all

   CLASSDATA cResFile AS CHARACTER ;
       INIT If( ISExe64(), "freeimage64.dll", "freeimage.dll" )
 
 

Code: Select all

HB_FUNC( ISEXE64 ) // Check if our app is 64 bits
{
   hb_retl( ( sizeof( void * ) == 8 ) );
}

Code: Select all

#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
 

Code: Select all

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