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

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/ButtonBase.pas (modified) (4 diffs)

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;