TFolder fix
發表於 : 2021-07-02, 11:31
TFolder Box fix:
bug:
fixed:
old code:
fix code:
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
代碼: 選擇全部
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