Changeset 111 for trunk/Components/ButtonC.pas

Timestamp:

Feb 2, 2018, 4:40:46 PM (7 years ago)

Author:

chronos

Message:

• Modified: Custom defined form dialogs moved to CevoComponents so they can be correctly opened in IDE.
• Modified: Moved Sound, StringTables and Directories to CevoComponents as dependency for custom form dialogs.

File:

• trunk/Components/ButtonC.pas (modified) (3 diffs)

trunk/Components/ButtonC.pas

@@ -11 +11 @@
     constructor Create(aOwner: TComponent); override;
   private
-    FIndex: integer;
-    procedure SetIndex(x: integer);
+    FIndex: Integer;
+    procedure SetIndex(x: Integer);
   published
     property Visible;
@@ -33 +33 @@
 begin
   inherited Create(aOwner);
-  ShowHint := true;
+  ShowHint := True;
   SetBounds(0, 0, 12, 12);
 end;
@@ -55 +55 @@
   begin
     FIndex := x;
-    Invalidate
-  end
+    Invalidate;
+  end;
 end;