Changeset 496 for trunk/Packages/CevoComponents/BaseWin.pas

Timestamp:

Dec 18, 2023, 10:31:54 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/BaseWin.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -175 +175 @@
     Assert((NewMode = wmModal) or (FWindowMode <> wmModal));
     // don't make modal window non-modal
-    if (NewMode = wmModal) and (forceclose or (FWindowMode <> wmModal)) then
+    if (NewMode = wmModal) and (ForceClose or (FWindowMode <> wmModal)) then
     begin // make modal
       UserLeft := Left;
@@ -183 +183 @@
       ShowModal;
     end
-    else if forceclose then
+    else if ForceClose then
     begin // make modal
       Visible := False;