FiveTech Software tech support forums

Antonio Linares wrote:Richard,

You have to review and modify FWH function FWBitmap()

Code: Select all  Expand view

RPrevUsrBtns( bUserBtns, nBarStyle, aSize )
 

Code: Select all  Expand view

#include "fivewin.ch"

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

function Main()

   local oPrn, oFont
   local nOldClr

   FW_SetUnicode( .t. )

   RPrevUserBtns( { |oPreview, oBar| MyPreviewBar( oPreview, oBar ) }, 2007, { 64,64 } )
   TPreview():lListViewHide := .t.

   PRINT oPrn PREVIEW
   DEFINE FONT oFont NAME "ARIAL" SIZE 0,-30 BOLD OF oPrn

   PAGE
      nOldClr  := SetBkColor( oPrn:hDCOut, CLR_BLACK )
      oPrn:Say( 500, 200, "This is Reverse Text", oFont, 5000, CLR_WHITE, 2 )
      SetBkColor( nOldClr )
   ENDPAGE
   ENDPRINT

   RELEASE FONT oFont

return nil

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

function MyPreviewBar( oPreview, oBar )

   local nBtns    := Len( oBar:aControls )


   WITH OBJECT oBar:aControls[ 1 ]
      :SetImages( "\fwh\bitmaps\top.bmp" )
      :cCaption   := "మొదలు"
   END
   WITH OBJECT oBar:aControls[ 2 ]
      :SetImages( "\fwh\bitmaps\prev.bmp" )
      :cCaption   := "ముందు"
   END
   WITH OBJECT oBar:aControls[ 3 ]
      :SetImages( "\fwh\bitmaps\next.bmp" )
      :cCaption   := "పిదప"
   END
   WITH OBJECT oBar:aControls[ 4 ]
      :SetImages( "\fwh\bitmaps\bottom.bmp" )
      :cCaption   := "చివర"
   END


   WITH OBJECT oBar:aControls[ nBtns ]
      :SetImages( "\fwh\bitmaps\print32.bmp" )
      :cCaption   := "ముద్రించు"
   END


   DEFINE BUTTON OF oBar FILE "\fwh\bitmaps\32x32\floppy.bmp" ;
      PROMPT "భద్రము" ACTION MsgInfo( "MySave" )

   DEFINE BUTTON OF oBar FILE "\fwh\bitmaps\sendmail.bmp" ;
      PROMPT "జాబు" ACTION MsgInfo( "MySave" )

return .f.
 

nageswaragunupudi wrote:You can use the function

Code: Select all  Expand view

RPrevUsrBtns( bUserBtns, nBarStyle, aSize )
 

to customize most (not fully) the buttonbar of preview. You can have your own buttons, replace some bitmaps, have your own style and size of the bar. Even you can have your Chinese prompts for the buttons.

Actually this is the purpose of this function. Once you set this at the beginning of your project, all your previews through out your application will have this look.

This is only an example of how to do. You can use this as a sample and customize to your requirements.

Code: Select all  Expand view

#include "fivewin.ch"

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

function Main()

   local oPrn, oFont
   local nOldClr

   FW_SetUnicode( .t. )

   RPrevUserBtns( { |oPreview, oBar| MyPreviewBar( oPreview, oBar ) }, 2007, { 64,64 } )
   TPreview():lListViewHide := .t.

   PRINT oPrn PREVIEW
   DEFINE FONT oFont NAME "ARIAL" SIZE 0,-30 BOLD OF oPrn

   PAGE
      nOldClr  := SetBkColor( oPrn:hDCOut, CLR_BLACK )
      oPrn:Say( 500, 200, "This is Reverse Text", oFont, 5000, CLR_WHITE, 2 )
      SetBkColor( nOldClr )
   ENDPAGE
   ENDPRINT

   RELEASE FONT oFont

return nil

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

function MyPreviewBar( oPreview, oBar )

   local nBtns    := Len( oBar:aControls )


   WITH OBJECT oBar:aControls[ 1 ]
      :SetImages( "\fwh\bitmaps\top.bmp" )
      :cCaption   := "మొదలు"
   END
   WITH OBJECT oBar:aControls[ 2 ]
      :SetImages( "\fwh\bitmaps\prev.bmp" )
      :cCaption   := "ముందు"
   END
   WITH OBJECT oBar:aControls[ 3 ]
      :SetImages( "\fwh\bitmaps\next.bmp" )
      :cCaption   := "పిదప"
   END
   WITH OBJECT oBar:aControls[ 4 ]
      :SetImages( "\fwh\bitmaps\bottom.bmp" )
      :cCaption   := "చివర"
   END


   WITH OBJECT oBar:aControls[ nBtns ]
      :SetImages( "\fwh\bitmaps\print32.bmp" )
      :cCaption   := "ముద్రించు"
   END


   DEFINE BUTTON OF oBar FILE "\fwh\bitmaps\32x32\floppy.bmp" ;
      PROMPT "భద్రము" ACTION MsgInfo( "MySave" )

   DEFINE BUTTON OF oBar FILE "\fwh\bitmaps\sendmail.bmp" ;
      PROMPT "జాబు" ACTION MsgInfo( "MySave" )

return .f.
 

Code: Select all  Expand view

WITH OBJECT oBar:aControls[ 1 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\DB-First.bmp" )
//         :cCaption := "第一頁"
      END
      WITH OBJECT oBar:aControls[ 2 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\DB-PREV.bmp" )
//         :cCaption := "上一頁"
      END
      WITH OBJECT oBar:aControls[ 3 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\DB-NEXT.bmp" )
//         :cCaption := "下一頁"
      END
      WITH OBJECT oBar:aControls[ 4 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\DB-LAST.bmp" )
//         :cCaption := "最後一頁"
      END
      WITH OBJECT oBar:aControls[ 5 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\Zoom.bmp" )
//         :cCaption := "放大"
      END
      WITH OBJECT oBar:aControls[ 6 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\TwoPages.bmp" )
//         :cCaption := "兩頁"
      END
      WITH OBJECT oBar:aControls[ 7 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\Printer.bmp" )
//         :cCaption := "列印"
      END
      WITH OBJECT oBar:aControls[ 8 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\Save.bmp" )
//         :cCaption := "儲存"
      END
      WITH OBJECT oBar:aControls[ 9 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\Export Acrobat.bmp" )
//         :cCaption := "儲存"
      END
      WITH OBJECT oBar:aControls[ 10 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\EMail.bmp" )
//         :cCaption := "儲存"
      END
      WITH OBJECT oBar:aControls[ 11 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\Export Word.bmp" )
//         :cCaption := "儲存"
      END
      WITH OBJECT oBar:aControls[ 12 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\Export Excel.bmp" )
//         :cCaption := "儲存"
      END
      WITH OBJECT oBar:aControls[ 13 ]
         :SetImages( "System\C5Menu\BMP\ToolBar\Exit.bmp" )
//         :cCaption := "儲存"
      END