topic-34850

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Override Two
Posted: Fri Nov 10, 2017 12:28 PM

I wish change the buttonbar of the rpreview and I use Override command

   OVERRIDE METHOD BuildButtonBar IN CLASS TPreview WITH PreviewButtonBarNew

Function PreviewButtonBarNew()
....
return nil

at init it seem run ok then when I wish use zoom or two pages it make error

Cristobal sad me to insert a function to set the lRebar variable

Code (fw): Select all Collapse

Function SetGetlRebar( lVal )

if !Empty( lVal ) .and Valtype( lVal ) = "L"
   lRebar  := lVal
endif

Return lRebar

and use it on my function

Code (fw): Select all Collapse

Function PreviewButtonBarNew()

   local oImageList, oReBar, oBar, oHand, uRet, oBtn
   local Self := HB_QSelf()
   local lRebar := .t.

  SetGetlRebar( .T. )

   DEFINE CURSOR ::oHand HAND

   if lRebar

but it have the same error

someone can help me please

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

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Override Two
Posted: Sun Nov 12, 2017 10:05 PM

any solution please ?

I change on Rpreview class this line : ( and it seems to run ok)

if ! IsAppThemed()

instead of

if ! lRebar

on these methods :

TwoPages( lMenu )
Zoom( lMenu )

on Oldest rpreview there is wroten if ! IsAppThemed()

it is the bug or I make a mistake ?

THEN THERE IS AN ERROR ON RPREVIEW
the nStyle is allways 2007 also when I use 2015 as buttonbar
the menu is 2007 why ? on win10 this is bad ....

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

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Override Two
Posted: Fri Nov 17, 2017 09:01 AM

I think we must re-write all Tpreview class ....

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

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Override Two
Posted: Fri Nov 17, 2017 07:53 PM

then I rewrote also the METHOD BuildMenu, METHOD SaveAsMenu, METHOD PrintersMenu because I must change the bitmaps with the same of buttonbar

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

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Override Two
Posted: Mon Nov 20, 2017 05:44 PM

I tried change lrebar and nstyle to DATA and perhaps can run

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

FiveTech Support Forums

Continue the discussion