Changeset 184 for trunk/Packages/CevoComponents/ButtonN.pas

Timestamp:

May 4, 2020, 10:24:23 PM (5 years ago)

Author:

chronos

Message:

• Modified: Code formatting.

File:

• trunk/Packages/CevoComponents/ButtonN.pas (modified) (7 diffs)

trunk/Packages/CevoComponents/ButtonN.pas

@@ -70 +70 @@
         BitBlt(Canvas.Handle, 3, 3, 36, 36, FGraphic.Canvas.Handle,
           195 + 37 * (FIndex mod 3), 21 + 37 * (FIndex div 3), SRCPAINT);
-      end
+      end;
     end;
     MoveTo(0, 41);
@@ -79 +79 @@
     LineTo(41, 41);
     LineTo(0, 41);
-  end
+  end;
 end;
 
@@ -86 +86 @@
 begin
   if FPossible and (Button = mbLeft) and (@ChangeProc <> nil) then
-    ChangeProc(Self)
+    ChangeProc(Self);
 end;
 
@@ -98 +98 @@
     else
       Hint := '';
-    Invalidate
-  end
+    Invalidate;
+  end;
 end;
 
@@ -107 +107 @@
   begin
     FLit := x;
-    Invalidate
-  end
+    Invalidate;
+  end;
 end;
 
@@ -120 +120 @@
     else
       BackIndex := 0;
-    Invalidate
-  end
+    Invalidate;
+  end;
 end;
 
@@ -131 +131 @@
     if FPossible then
       Hint := x;
-  end
+  end;
 end;