Browse Source

Fix bad check.

Martijn Laan 2 weeks ago
parent
commit
f0f7123006
1 changed files with 1 additions and 1 deletions
  1. 1 1
      Components/NewStaticText.pas

+ 1 - 1
Components/NewStaticText.pas

@@ -146,7 +146,7 @@ begin
   with Params do
   begin
     Style := Style or SS_NOTIFY;
-    if Style and WS_EX_RIGHT = 0 then begin
+    if ExStyle and WS_EX_RIGHT = 0 then begin
       { Quirk: No style is set for WordWrap=False in RTL mode; WS_EX_RIGHT
         overrides SS_LEFTNOWORDWRAP, and there is no SS_RIGHTNOWORDWRAP style.
         WordWrap=False still affects AdjustBounds, though. }