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 wrote:Richard,
You have to review and modify FWH function FWBitmap()
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.
nageswaragunupudi wrote: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.
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
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 85 guests