Override Two

[Silvio.Falconi]

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

Code: Select all  Expand view  RUN

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

Function SetGetlRebar( lVal )

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

Return lRebar

and use it on my function

Code: Select all  Expand view  RUN

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

[Silvio.Falconi]

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 ....

[Silvio.Falconi]

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

[Silvio.Falconi]

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

[Silvio.Falconi]

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