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.
Richard,
You have to review and modify FWH function FWBitmap()
Antonio Linares wrote:Richard,
You have to review and modify FWH function FWBitmap()
Look samples folder
Bmptohex.prg and Bmptoc.prg
RPrevUsrBtns( bUserBtns, nBarStyle, aSize )#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.
Dear Cristobal Navarro and Mr Rao
Now is working.
nageswaragunupudi wrote:You can use the function
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.
#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.
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 := "儲存"
ENDBy 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