FiveTech Software tech support forums

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   local oWndPdf, oPdf 

   DEFINE WINDOW oWndPdf TITLE "Generating thumbnail"

   oPdf := TActiveX():New( oWndPdf, "AcroPDF.PDF.1" )
   oWndPdf:oClient := oPdf
   oPdf:Do( "LoadFile", "fwintro.pdf" )

   ACTIVATE WINDOW oWndPdf MAXIMIZED ;
            ON INIT( oWndPdf:SetSize( 200, 300 ), oWndPdf:Center(), PDFActivex(),;
                     SysWait( 1 ), oWndPdf:oClient:SaveToBmp( "thumbnail.bmp" ), oWndPdf:End() ) ;
            VALID ( oPdf:End(), .T. )

return nil

function PDFActivex()

   local MyProgID

   if IsActivex( "PDF.PdfCtrl.1" ); MyProgID := "PDF.PdfCtrl.1"; endif
   if IsActivex( "PDF.PdfCtrl.2" ); MyProgID := "PDF.PdfCtrl.2"; endif
   if IsActivex( "PDF.PdfCtrl.3" ); MyProgID := "PDF.PdfCtrl.3"; endif
   if IsActivex( "PDF.PdfCtrl.4" ); MyProgID := "PDF.PdfCtrl.4"; endif
   if IsActivex( "PDF.PdfCtrl.5" ); MyProgID := "PDF.PdfCtrl.5"; endif
   if IsActivex( "PDF.PdfCtrl.6" ); MyProgID := "PDF.PdfCtrl.6"; endif
   if IsActivex( "PDF.PdfCtrl.7" ); MyProgID := "PDF.PdfCtrl.7"; endif
   if IsActivex( "acroPDF.PDF.1" ); MyProgID := "acroPDF.PDF.1"; endif
   if IsActivex( "acroPDF.PDF.2" ); MyProgID := "acroPDF.PDF.2"; endif

return MyProgID

Code: Select all | Expand

mutool draw -o "%1.png" -r 96 -h 150 "%1" 1-1

Code: Select all | Expand

function PdfToJpeg( cPDF )
   local cExe     := "c:\Tracker Software\PDF Viewer\PDFXCview.exe"
   local cTitle   := cFileNoExt(  LFN2SFN(  cPDF ) ) //+ " - PDF-XChange Viewer"
   local cCmd
   local hWnd, hBmp, hBmp2, hDib, cBuf, nWait := 2
   local lRet  := .f.

   if File( cExe ) .and. File( cPDF )
      cCmd  := cExe + ' /A "fullscreen=yes"' +  ' ' +  LFN2SFN(  cPDF )
      //cCmd  := cExe + ' /A "Zoom=150"' +  ' ' + cPDF
     
      WinExec( cCmd )
      SysWait( 3 )
     
      do while nWait < 12 .and. Empty( hWnd :=  FindWnd( cTitle ) )
         SysWait( nWait )
         nWait    += 1
      enddo
      if ! Empty( hWnd )

         SetFocus( hWnd )
         SetForeGroundWindow( hWnd )
         SysRefresh()
         SysWait( 0.1 )

         hBmp   := WndBitmap( hWnd )
         SendMessage( hWnd, WM_CLOSE )

         hBmp2             := BmpTrim( hBmp )
         DeleteObject( hBmp )

         hDib              := DibFromBitmap( hBmp2 )
         cBuf              := DibToStr( hDib )
         GlobalFree( hDib )
         DeleteObject( hBmp2 )

         lRet              := BmpBufToJpg( cFileSetExt( cPDF, "jpg" ), cBuf )
         cBuf              := nil
      endif
   endif

return lRet

//----------------------------------------------------------------------------//
 
 

Code: Select all | Expand

#define SHIL_LARGE          0   // normally 32x32
#define SHIL_SMALL          1   // normally 16x16 

Code: Select all | Expand

#define SHIL_EXTRALARGE     2
#define SHIL_SYSSMALL       3   // like SHIL_SMALL, but tracks system small icon metric correctly
#if (NTDDI_VERSION >= NTDDI_VISTA)
#define SHIL_JUMBO          4   // normally 256x256 

Code: Select all | Expand

   ::oLVCol  := LVCOLUMN():New()
   ::oLVCol:mask := nOr( LVCF_FMT,  LVCF_WIDTH , LVCF_TEXT , LVCF_SUBITEM )
   ::oLVCol:fmt  := nOr( LVCFMT_LEFT )

   ::nColMax := Len(::aTitle)
   for nCol := 1 to ::nColMax
      ::oLVCol:cx    := ::aColWide[nCol]
      ::oLVCol:cText := ::aTitle[nCol]
      ::lv_InsertColumn(nCol-1,::oLVCol)    // LVM_INSERTCOLUMN
   next

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   local oLVCol := LVColumn():New()

   MsgInfo( oLVCol:ClassName() ) 

   oLVCol:Mask = 5
   oLVCol:fmt = 6

   MsgInfo( oLVCol:Mask )
   MsgInfo( oLVCol:fmt )

   oLVCol:End()

return nil

CLASS LVColumn

   DATA hData HIDDEN

   METHOD New()

   METHOD mask( nValue ) SETGET

   METHOD fmt( nValue ) SETGET

   METHOD End() INLINE LVColumnEnd( ::hData )

ENDCLASS

METHOD New() CLASS LVColumn

   ::hData = LVColumnNew()

return Self

METHOD mask( nValue ) CLASS LVColumn

   local nOldValue

   if PCount() == 0 
      nOldValue = LVColumnMask( ::hData )
   else
      nOldValue = LVColumnMask( ::hData, nValue )
   endif      

return nOldValue  

METHOD fmt( nValue ) CLASS LVColumn

   local nOldValue

   if PCount() == 0 
      nOldValue = LVColumnFmt( ::hData )
   else
      nOldValue = LVColumnFmt( ::hData, nValue )
   endif      

return nOldValue   

#pragma BEGINDUMP

#include <windows.h>
#include <commctrl.h>
#include <hbapi.h>

HB_FUNC( LVCOLUMNNEW )
{
   LVCOLUMN * lvcol = ( LVCOLUMN * ) hb_xgrab( sizeof( LVCOLUMN ) );
  
   memset( lvcol, 0, sizeof( LVCOLUMN ) );
   hb_retptr( ( void * ) lvcol );
}

HB_FUNC( LVCOLUMNMASK )
{
   UINT mask = ( ( LVCOLUMN * ) hb_parptr( 1 ) )->mask;

   if( ! hb_pcount() )
      hb_retnl( ( HB_LONG ) mask );
   else
      ( ( LVCOLUMN * ) hb_parptr( 1 ) )->mask = ( UINT ) hb_parnl( 2 );   

   hb_retnl( mask );   
}

HB_FUNC( LVCOLUMNFMT )
{
   int fmt = ( ( LVCOLUMN * ) hb_parptr( 1 ) )->fmt;

   if( ! hb_pcount() )
      hb_retnl( ( HB_LONG ) fmt );
   else
      ( ( LVCOLUMN * ) hb_parptr( 1 ) )->fmt = ( int ) hb_parnl( 2 );   

   hb_retnl( fmt );   
}

HB_FUNC( LVCOLUMNEND )
{
   hb_xfree( ( void * ) hb_parptr( 1 ) );
}

#pragma ENDDUMP

Code: Select all | Expand

OfficeExtractImage( cOfficeFileName, [lReExtract] ) //--> cThumbNailFile saved.
 

Code: Select all | Expand

cThumb := OfficeExtractImage( "mydoc.docx", .t. )
if Empty( cThumb )
   ? "Thumbnail not saved"
else
   ? cThumb
   XImage( cThumb )
endif