When changing the folder you notice a flash, how could I avoid it?
Antonio Linares wrote:Maybe the browsers are complex enough to paint slowly...
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
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 58 guests