Changeset 496 for trunk/Packages/CevoComponents

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk/Packages/CevoComponents

Files:

• BaseWin.pas (modified) (2 diffs)
• ButtonBase.pas (modified) (4 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;

trunk/Packages/CevoComponents/ButtonBase.pas

@@ -84 +84 @@
       Invalidate;
       if @DownChangedProc <> nil then
-        DownChangedProc(self);
+        DownChangedProc(Self);
     end;
     if (Button = TMouseButton.mbLeft) and (@ClickProc <> nil) then
-      ClickProc(self);
+      ClickProc(Self);
   end
   else
@@ -98 +98 @@
       Invalidate;
       if @DownChangedProc <> nil then
-        DownChangedProc(self);
+        DownChangedProc(Self);
     end;
   end;
@@ -113 +113 @@
         Paint;
         if @DownChangedProc <> nil then
-          DownChangedProc(self);
+          DownChangedProc(Self);
       end
       else
@@ -122 +122 @@
       Paint;
       if @DownChangedProc <> nil then
-        DownChangedProc(self);
+        DownChangedProc(Self);
     end;
 end;