Rpreview Buttonbar

Rpreview Buttonbar

Postby Silvio.Falconi » Tue Nov 14, 2023 9: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 November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7075
Joined: Thu Oct 18, 2012 7:17 pm

Re: Rpreview Buttonbar

Postby nageswaragunupudi » Tue Nov 14, 2023 9:53 am

At the beginning
Code: Select all  Expand view  RUN
TPreview():bButtonBar := { |oPreview, oWnd| <yourbuttonbarfunc( oPreview, oWnd) }
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10655
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Rpreview Buttonbar

Postby Silvio.Falconi » Tue Nov 14, 2023 12:05 pm

thanks
I tried and not run ok

Image

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 November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7075
Joined: Thu Oct 18, 2012 7:17 pm

Re: Rpreview Buttonbar

Postby karinha » Tue Nov 14, 2023 12:39 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Rpreview Buttonbar

Postby Silvio.Falconi » Tue Nov 14, 2023 12:41 pm

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7075
Joined: Thu Oct 18, 2012 7:17 pm

Re: Rpreview Buttonbar

Postby Antonio Linares » Tue Nov 14, 2023 6:58 pm

Dear Silvio,

what is the source code for function Test() ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42122
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Rpreview Buttonbar

Postby nageswaragunupudi » 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: Select all  Expand view  RUN
oPreview:oBar := oBar

at the end of this function.

Example code:
Code: Select all  Expand view  RUN
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
User avatar
nageswaragunupudi
 
Posts: 10655
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Rpreview Buttonbar

Postby Silvio.Falconi » Wed Nov 15, 2023 8: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: Select all  Expand view  RUN
oPreview:oBar := oBar

at the end of this function.

Example code:
Code: Select all  Expand view  RUN
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


Image

Now run ok ! thanks
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7075
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 25 guests