Rpreview Buttonbar

[Silvio.Falconi]

how can I customize the print preview buttonbar by placing large buttons?
is there an example?

[nageswaragunupudi]

At the beginning

Code: Select all  Expand view

TPreview():bButtonBar := { |oPreview, oWnd| <yourbuttonbarfunc( oPreview, oWnd) }

[Silvio.Falconi]

thanks
I tried and not run ok



I made

Function Main()

TPreview():bButtonBar := { |oPreview, oWnd| MyButtonBarPreview( oPreview, oWnd) }

test()

return nil

Function MyButtonBarPreview( oPreview, oWnd)
local oBar

DEFINE BUTTONBAR oBar OF oWnd SIZE 64, 64


return nil

[karinha]

https://forums.fivetechsoft.com/viewtopic.php?f=3&t=37091&p=221370&hilit=bButtonBar#p221370

https://forums.fivetechsoft.com/viewtopic.php?f=16&t=35046&p=208517&hilit=bButtonBar#p208517

Regards, saludos.

[Silvio.Falconi]

https://forums.fivetechsoft.com/viewtopic.php?f=3&t=37091&p=221370&hilit=bButtonBar#p221370

https://forums.fivetechsoft.com/viewtopic.php?f=16&t=35046&p=208517&hilit=bButtonBar#p208517

Regards, saludos.

????????

[Antonio Linares]

Dear Silvio,

what is the source code for function Test() ?

[nageswaragunupudi]

Function MyButtonBarPreview( oPreview, oWnd)
local oBar

DEFINE BUTTONBAR oBar OF oWnd SIZE 64, 64


return nil

Please add the line

Code: Select all  Expand view

oPreview:oBar := oBar

at the end of this function.

Example code:

Code: Select all  Expand view

function MyBar( oPrev, oWnd )

   local oBar

   DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 2007
   DEFINE BUTTON OF oBar PROMPT "BTN" CENTER

   oPrev:oBar  := oBar

return nil

[Silvio.Falconi]

Function MyButtonBarPreview( oPreview, oWnd)
local oBar

DEFINE BUTTONBAR oBar OF oWnd SIZE 64, 64


return nil

Please add the line

Code: Select all  Expand view

oPreview:oBar := oBar

at the end of this function.

Example code:

Code: Select all  Expand view

function MyBar( oPrev, oWnd )

   local oBar

   DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 2007
   DEFINE BUTTON OF oBar PROMPT "BTN" CENTER

   oPrev:oBar  := oBar

return nil

Now run ok ! thanks