FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Rpreview Buttonbar
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Rpreview Buttonbar
Posted: Tue Nov 14, 2023 09:12 AM

how can I customize the print preview buttonbar by placing large buttons?

is there an example?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Rpreview Buttonbar
Posted: Tue Nov 14, 2023 09:53 AM
At the beginning
Code (fw): Select all Collapse
TPreview():bButtonBar := { |oPreview, oWnd| <yourbuttonbarfunc( oPreview, oWnd) }
Regards



G. N. Rao.

Hyderabad, India
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: Rpreview Buttonbar
Posted: Tue Nov 14, 2023 12:05 PM
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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Rpreview Buttonbar
Posted: Tue Nov 14, 2023 12:39 PM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: Rpreview Buttonbar
Posted: Tue Nov 14, 2023 12:41 PM
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Rpreview Buttonbar
Posted: Tue Nov 14, 2023 06:58 PM

Dear Silvio,

what is the source code for function Test() ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Rpreview Buttonbar
Posted: Wed Nov 15, 2023 12:31 AM
Function MyButtonBarPreview( oPreview, oWnd)
local oBar

DEFINE BUTTONBAR oBar OF oWnd SIZE 64, 64


return nil
Please add the line
Code (fw): Select all Collapse
oPreview:oBar := oBar
at the end of this function.

Example code:
Code (fw): Select all Collapse
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
Regards



G. N. Rao.

Hyderabad, India
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: Rpreview Buttonbar
Posted: Wed Nov 15, 2023 08:03 AM
nageswaragunupudi wrote:
Function MyButtonBarPreview( oPreview, oWnd)
local oBar

DEFINE BUTTONBAR oBar OF oWnd SIZE 64, 64


return nil
Please add the line
Code (fw): Select all Collapse
oPreview:oBar := oBar
at the end of this function.

Example code:
Code (fw): Select all Collapse
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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion