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.
![Image](http://imagizer.imageshack.us/v2/xq90/923/gabai7.png)