Flick on folder

[Silvio.Falconi]

When changing the folder you notice a flash, how could I avoid it?

[Antonio Linares]

Dear Silvio,

Is it a standard TFolder or a TFolderEx ?

[Silvio.Falconi]

Standard but I tried Also with folderex

[Antonio Linares]

Dear Silvio,

Do you use a oFolder:bChange ? If so, please try to set it to nil, so it changes the folder page quicker

[Silvio.Falconi]

No i not use bchange on folder
I can senso U a test

[Antonio Linares]

Maybe the browsers are complex enough to paint slowly...

[Silvio.Falconi]

Maybe the browsers are complex enough to paint slowly...

Not I tried also
the xbrowses are not complex to build
are the same configuration, change only the headers

[Antonio Linares]

Dear Silvio,

Please try this:

Code: Select all  Expand view  RUN

METHOD SetOption( nOption ) CLASS TFolder

   local nOldOption

   ::BeginPaint()

   if nOption > 0 .and. nOption != ::nOption .and. ::aEnable[ nOption ]
      if ::nOption <= Len( ::aDialogs ) .and. ::nOption != 0 .and. ;
          ::aDialogs[ ::nOption ] != nil
         ::aDialogs[ ::nOption ]:Hide()
      endif
      nOldOption = ::nOption
      ::nOption  = nOption

      if nOption <= Len( ::aDialogs ) .and. ::aDialogs[ nOption ] != nil
         if ::bChange != nil
            Eval( ::bChange, nOption, nOldOption )
         endif
         ::aDialogs[ nOption ]:AEvalWhen()
         ::aDialogs[ nOption ]:Show()
         ::aDialogs[ nOption ]:SetFocus()
      endif
   endif

   if nOption > 0
      PostMessage( ::hWnd, TCM_SETCURSEL, ::nOption - 1 )
      if ! ::aEnable[ nOption ]
         MsgBeep()
      endif
   endif

   ::EndPaint()

return nil

 

[Silvio.Falconi]

sorry,
it's same

[Silvio.Falconi]

Antonio,
do U have found the error ?