TFolder fix

文章由 **admin** » 2021-07-02, 11:31

TFolder Box fix:

bug:

fixed:

old code:

METHOD AdjustRect() CLASS TFolder

   local aRect:= If( ::lUnicode, TabCtrl_AdjustRectW( ::hWnd ), TabCtrl_AdjustRect( ::hWnd ) )

   if Len( ::aDialogs ) > 0 .and. ::aDialogs[ 1 ]:nTop <> aRect[ 1 ]
      AEval( ::aDialogs, { | oDlg | oDlg:Move( aRect[ 1 ], aRect[ 2 ] - 2 ) } )
   endif

return nil

fix code:

代碼: 選擇全部

METHOD AdjustRect() CLASS TFolder

   local aRect:= If( ::lUnicode, TabCtrl_AdjustRectW( ::hWnd ), TabCtrl_AdjustRect( ::hWnd ) )

   if Len( ::aDialogs ) > 0 .and. ::aDialogs[ 1 ]:nTop <> aRect[ 1 ]
      AEval( ::aDialogs, { | oDlg | ( oDlg:SetSize( aRect[4] - aRect[2], aRect[3] - aRect[1] - iif( IsAppThemed(), 2, 0 ) ), ;
                                      oDlg:Move( aRect[ 1 ] + 1, aRect[ 2 ] ) ) } )
   endif

return nil