How to change toolbar's bitmaps in rpreview?

[richard-service]

HI
I want to change bitmaps when preview report toolbar.
I look rpreview.prg not include prev32.dll, so how to change bitmaps and add in my preview.

[Antonio Linares]

Richard,

You have to review and modify FWH function FWBitmap()

[richard-service]

Richard,

You have to review and modify FWH function FWBitmap()

Yes, I found Bitmaps.c source code. How to Bmp convert to these code?

[cnavarro]

Look samples folder

Bmptohex.prg and Bmptoc.prg

[nageswaragunupudi]

You can use the function

Code: Select all  Expand view  RUN

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  RUN

#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.
 

[richard-service]

Dear Cristobal Navarro and Mr Rao

Now is working.

[richard-service]

You can use the function

Code: Select all  Expand view  RUN

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  RUN

#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.
 

Hi Mr.Rao
I want to change all bitmaps in ToolBar, but appear error "BASE/1132 Bound error: array access"

Code: Select all  Expand view  RUN

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
 

[nageswaragunupudi]

By the time this code is executed only 7 buttons are created. We need to add other buttons and actions ourselves. We take over the control of the entire buttonbar