Changeset 554 for trunk/Packages/CevoComponents/GraphicSet.pas

Timestamp:

Apr 24, 2024, 11:19:11 AM (3 weeks ago)

Author:

chronos

Message:

• Added: TButtonG class as a button class component referencing TGraphicSet item.
• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/GraphicSet.pas (modified) (6 diffs)

trunk/Packages/CevoComponents/GraphicSet.pas

@@ -43 +43 @@
   { TGraphicSet }
 
-  TGraphicSet = class
+  TGraphicSet = class(TComponent)
+  public
     Name: string;
     Data: TBitmap;
@@ -53 +54 @@
     procedure LoadFromFile(FileName: string);
     procedure SaveToFile(FileName: string);
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -71 +72 @@
   GraphicSetFileExt = '.grs';
 
+procedure Register;
+
 
 implementation
@@ -77 +80 @@
   SWrongFileFormat = 'Wrong file format.';
   SGraphicItemNotFound = 'Graphic item %s not found in graphic set %s.';
+
+procedure Register;
+begin
+  RegisterComponents('C-evo', [TGraphicSet]);
+end;
 
 { TGraphicSetItem }
@@ -227 +235 @@
 end;
 
-constructor TGraphicSet.Create;
-begin
+constructor TGraphicSet.Create(AOwner: TComponent);
+begin
+  inherited;
   Data := TBitmap.Create;
   Data.PixelFormat := TPixelFormat.pf24bit;
@@ -259 +268 @@
 function TGraphicSets.AddNew(Name: string): TGraphicSet;
 begin
-  Result := TGraphicSet.Create;
+  Result := TGraphicSet.Create(nil);
   Result.Name := Name;
   Add(Result);