diff --git a/lcl/interfaces/win32/win32wsbuttons.pp b/lcl/interfaces/win32/win32wsbuttons.pp
index 084aa048c7..a9abab0b0b 100644
--- a/lcl/interfaces/win32/win32wsbuttons.pp
+++ b/lcl/interfaces/win32/win32wsbuttons.pp
@@ -262,7 +262,7 @@ var
     begin
       TextFlags := DST_PREFIXTEXT;
 
-      if not UseThemes and (AState = bsDisabled) then
+      if (AState = bsDisabled) then
         TextFlags := TextFlags or DSS_DISABLED;
 
       if not ShowAccel then