Flick on folder
Posted: Sat May 28, 2022 10:21 pm
When changing the folder you notice a flash, how could I avoid it?
Dear Silvio,
Is it a standard TFolder or a TFolderEx ?
www.FiveTechSoft.com
https://forums.fivetechsupport.com/~fivetec1/forums/
https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?t=41839
Antonio Linares wrote:Maybe the browsers are complex enough to paint slowly...
Code: Select all | Expand
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