Added: IndexByName, GraphicByName and PictureByName methods

Changed: shortcut for deleting items in the design-time editor from Del to Ctrl-Del (Clear changed from Ctrl-Del to Ctrl-Shift-Del), it conflicted with using Del in the Name box

Packages/D6/X2CLGLD.dof

@@ -238,6 +238,3 @@ H:\Downloads\commentexpert.bpl=Comment Expert v1.0 Alpha
 c:\program files\borland\delphi6\Projects\Bpl\dclIndy60.bpl=Internet Direct (Indy) for D6 Property and Component Editors
 C:\WINDOWS\System32\ibevnt60.bpl=Borland Interbase Event Alerter Component
 c:\program files\borland\delphi6\Projects\Bpl\PngComponentsDesigntime.bpl=Png components designtime
-[HistoryLists\hlUnitAliases]
-Count=1
-Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

Packages/X2CLGraphicsEditor.dfm

@@ -21,7 +21,6 @@ object frmGraphicsEditor: TfrmGraphicsEditor
     Top = 0
     Width = 4
     Height = 424
-    Cursor = crHSplit
   end
   object pnlImage: TPanel
     Left = 193
@@ -586,7 +585,7 @@ object frmGraphicsEditor: TfrmGraphicsEditor
       Caption = '&Delete'
       Hint = 'Delete Graphic'
       ImageIndex = 1
-      ShortCut = 46
+      ShortCut = 16430
       OnExecute = actDeleteExecute
     end
     object actOpen: TAction
@@ -607,7 +606,7 @@ object frmGraphicsEditor: TfrmGraphicsEditor
       Caption = '&Clear'
       Hint = 'Clear Graphic'
       ImageIndex = 4
-      ShortCut = 16430
+      ShortCut = 24622
       OnExecute = actClearExecute
     end
     object actUp: TAction

Packages/X2CLGraphicsEditor.pas

@@ -291,7 +291,7 @@ begin
     begin
       pGraphic.Picture.LoadFromFile(dlgOpen.FileName);
       if Length(pGraphic.Name) = 0 then
-        pGraphic.Name := ExtractFileName(dlgOpen.FileName);
+        pGraphic.Name := ChangeFileExt(ExtractFileName(dlgOpen.FileName), '');
 
       UpdatePreview();
     end;

Source/X2CLGraphicList.pas

@@ -78,6 +78,9 @@ type
     constructor Create(const AContainer: TX2GraphicContainer);
 
     function Add(): TX2GraphicCollectionItem;
+    function IndexByName(const AName: String): Integer;
+    function GraphicByName(const AName: String): TX2GraphicCollectionItem;
+    function PictureByName(const AName: String): TPicture;
 
     property Items[Index: Integer]:   TX2GraphicCollectionItem  read GetItem
                                                                 write SetItem; default;
@@ -106,6 +109,10 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy(); override;
 
+    function IndexByName(const AName: String): Integer;
+    function GraphicByName(const AName: String): TX2GraphicCollectionItem;
+    function PictureByName(const AName: String): TPicture;
+
     procedure AssignTo(Dest: TPersistent); override;
   published
     property Graphics:      TX2GraphicCollection  read FGraphics  write SetGraphics;
@@ -183,7 +190,7 @@ type
 {=============== TX2GraphicCollectionItem
   Initialization
 ========================================}
-constructor TX2GraphicCollectionItem.Create;
+constructor TX2GraphicCollectionItem.Create(Collection: TCollection);
 begin
   FPicture                := TPicture.Create();
   FPicture.PictureAdapter := Self;
@@ -191,7 +198,7 @@ begin
   inherited;
 end;
 
-destructor TX2GraphicCollectionItem.Destroy;
+destructor TX2GraphicCollectionItem.Destroy();
 begin
   FreeAndNil(FPicture);
 
@@ -199,7 +206,7 @@ begin
 end;
 
 
-procedure TX2GraphicCollectionItem.AssignTo;
+procedure TX2GraphicCollectionItem.AssignTo(Dest: TPersistent);
 begin
   if Dest is TX2GraphicCollectionItem then
     with TX2GraphicCollectionItem(Dest) do
@@ -209,7 +216,8 @@ begin
 end;
 
 
-function TX2GraphicCollectionItem.QueryInterface;
+function TX2GraphicCollectionItem.QueryInterface(const IID: TGUID;
+                                                 out Obj): HResult;
 begin
   if GetInterface(IID, Obj) then
     Result := 0
@@ -217,18 +225,18 @@ begin
     Result := E_NOINTERFACE;
 end;
 
-function TX2GraphicCollectionItem._AddRef;
+function TX2GraphicCollectionItem._AddRef(): Integer;
 begin
   Result  := -1;
 end;
 
-function TX2GraphicCollectionItem._Release;
+function TX2GraphicCollectionItem._Release(): Integer;
 begin
   Result  := -1;
 end;
 
 
-function TX2GraphicCollectionItem.GetDisplayName;
+function TX2GraphicCollectionItem.GetDisplayName(): String;
 begin
   if Length(FName) > 0 then
     Result  := FName
@@ -237,18 +245,18 @@ begin
 end;
 
 
-procedure TX2GraphicCollectionItem.NotifierChanged;
+procedure TX2GraphicCollectionItem.NotifierChanged();
 begin
   Changed(False);
 end;
 
-procedure TX2GraphicCollectionItem.SetName;
+procedure TX2GraphicCollectionItem.SetName(const Value: String);
 begin
   FName := Value;
   Changed(False);
 end;
 
-procedure TX2GraphicCollectionItem.SetPicture;
+procedure TX2GraphicCollectionItem.SetPicture(const Value: TPicture);
 begin
   FPicture.Assign(Value);
 end;
@@ -257,7 +265,7 @@ end;
 {=================== TX2GraphicCollection
   Item Management
 ========================================}
-constructor TX2GraphicCollection.Create;
+constructor TX2GraphicCollection.Create(const AContainer: TX2GraphicContainer);
 begin
   inherited Create(TX2GraphicCollectionItem);
 
@@ -265,13 +273,51 @@ begin
 end;
 
 
-function TX2GraphicCollection.Add;
+function TX2GraphicCollection.Add(): TX2GraphicCollectionItem;
 begin
   Result  := TX2GraphicCollectionItem(inherited Add());
 end;
 
 
-procedure TX2GraphicCollection.Notify;
+function TX2GraphicCollection.IndexByName(const AName: String): Integer;
+var
+  iIndex:     Integer;
+
+begin
+  Result  := -1;
+  for iIndex  := Pred(Count) downto 0 do
+    if SameText(Items[iIndex].Name, AName) then
+    begin
+      Result  := iIndex;
+      break;
+    end;
+end;
+
+function TX2GraphicCollection.GraphicByName(const AName: String): TX2GraphicCollectionItem;
+var
+  iIndex:     Integer;
+
+begin
+  Result  := nil;
+  iIndex  := IndexByName(AName);
+  if iIndex > -1 then
+    Result  := Items[iIndex];
+end;
+
+function TX2GraphicCollection.PictureByName(const AName: String): TPicture;
+var
+  pGraphic:     TX2GraphicCollectionItem;
+
+begin
+  Result    := nil;
+  pGraphic  := GraphicByName(AName);
+  if Assigned(pGraphic) then
+    Result  := pGraphic.Picture;
+end;
+
+
+procedure TX2GraphicCollection.Notify(Item: TCollectionItem;
+                                      Action: TCollectionNotification);
 begin
   inherited;
 
@@ -279,7 +325,7 @@ begin
     FContainer.Notify(Item, Action);
 end;
 
-procedure TX2GraphicCollection.Update;
+procedure TX2GraphicCollection.Update(Item: TCollectionItem);
 begin
   inherited;
 
@@ -288,12 +334,12 @@ begin
 end;
 
 
-function TX2GraphicCollection.GetItem;
+function TX2GraphicCollection.GetItem(Index: Integer): TX2GraphicCollectionItem;
 begin
   Result  := TX2GraphicCollectionItem(inherited GetItem(Index));
 end;
 
-procedure TX2GraphicCollection.SetItem;
+procedure TX2GraphicCollection.SetItem(Index: Integer; Value: TX2GraphicCollectionItem);
 begin
   inherited SetItem(Index, Value);
 end;
@@ -302,7 +348,7 @@ end;
 {==================== TX2GraphicContainer
   Initialization
 ========================================}
-constructor TX2GraphicContainer.Create;
+constructor TX2GraphicContainer.Create(AOwner: TComponent);
 begin
   inherited;
 
@@ -310,7 +356,7 @@ begin
   FLists    := TList.Create();
 end;
 
-destructor TX2GraphicContainer.Destroy;
+destructor TX2GraphicContainer.Destroy();
 begin
   FreeAndNil(FGraphics);
   FreeAndNil(FLists);
@@ -319,7 +365,23 @@ begin
 end;
 
 
-procedure TX2GraphicContainer.AssignTo;
+function TX2GraphicContainer.IndexByName(const AName: String): Integer;
+begin
+  Result  := FGraphics.IndexByName(AName);
+end;
+
+function TX2GraphicContainer.GraphicByName(const AName: String): TX2GraphicCollectionItem;
+begin
+  Result  := FGraphics.GraphicByName(AName);
+end;
+
+function TX2GraphicContainer.PictureByName(const AName: String): TPicture;
+begin
+  Result  := FGraphics.PictureByName(AName);
+end;
+
+
+procedure TX2GraphicContainer.AssignTo(Dest: TPersistent);
 begin
   if Dest is TX2GraphicContainer then
     with TX2GraphicContainer(Dest) do
@@ -330,7 +392,7 @@ end;
 
 
 
-procedure TX2GraphicContainer.Notification;
+procedure TX2GraphicContainer.Notification(AComponent: TComponent; Operation: TOperation);
 begin
   if not Assigned(FLists) then
     exit;
@@ -348,7 +410,8 @@ begin
   inherited;
 end;
 
-procedure TX2GraphicContainer.Notify;
+procedure TX2GraphicContainer.Notify(Item: TCollectionItem;
+                                     Action: TCollectionNotification);
 var
   iList:      Integer;
 
@@ -363,7 +426,7 @@ begin
   end;
 end;
 
-procedure TX2GraphicContainer.Update;
+procedure TX2GraphicContainer.Update(Item: TCollectionItem);
 var
   iList:      Integer;
 
@@ -377,19 +440,19 @@ begin
 end;
 
 
-procedure TX2GraphicContainer.RegisterList;
+procedure TX2GraphicContainer.RegisterList(const AList: TX2GraphicList);
 begin
   if FLists.IndexOf(AList) = -1 then
     FLists.Add(AList);
 end;
 
-procedure TX2GraphicContainer.UnregisterList;
+procedure TX2GraphicContainer.UnregisterList(const AList: TX2GraphicList);
 begin
   FLists.Remove(AList);
 end;
 
 
-procedure TX2GraphicContainer.SetGraphics;
+procedure TX2GraphicContainer.SetGraphics(const Value: TX2GraphicCollection);
 begin
   FGraphics.Assign(Value);
 end;
@@ -399,7 +462,7 @@ end;
 {========================= TX2GraphicList
   Initialization
 ========================================}
-constructor TX2GraphicList.Create;
+constructor TX2GraphicList.Create(AOwner: TComponent);
 begin
   inherited;
 
@@ -409,14 +472,14 @@ begin
   FStretchMode  := smCrop;
 end;
 
-procedure TX2GraphicList.Loaded;
+procedure TX2GraphicList.Loaded();
 begin
   inherited;
 
   RebuildImages();
 end;
 
-procedure TX2GraphicList.Change;
+procedure TX2GraphicList.Change();
 begin
   inherited;
 
@@ -425,7 +488,7 @@ begin
 end;
 
 
-destructor TX2GraphicList.Destroy;
+destructor TX2GraphicList.Destroy();
 begin
   SetContainer(nil);
 
@@ -433,7 +496,7 @@ begin
 end;
 
 
-procedure TX2GraphicList.AssignTo;
+procedure TX2GraphicList.AssignTo(Dest: TPersistent);
 begin
   if Dest is TX2GraphicList then
     with TX2GraphicList(Dest) do
@@ -452,7 +515,10 @@ end;
 {========================= TX2GraphicList
   Graphics
 ========================================}
-function TX2GraphicList.DrawGraphic;
+function TX2GraphicList.DrawGraphic(const AIndex: Integer;
+                                    const ACanvas: TCanvas;
+                                    const AX, AY: Integer;
+                                    const AEnabled: Boolean = True): Boolean;
   procedure InternalDrawGraphic(const ADest: TCanvas;
                                 const ADestX, ADestY: Integer);
   var
@@ -588,13 +654,15 @@ begin
   Result  := True;
 end;
 
-procedure TX2GraphicList.DoDraw;
+procedure TX2GraphicList.DoDraw(Index: Integer; Canvas: TCanvas; X, Y: Integer;
+                                Style: Cardinal; Enabled: Boolean = True);
 begin
   DrawGraphic(Index, Canvas, X, Y, Enabled);
 end;
 
 
-procedure TX2GraphicList.CreateImage;
+procedure TX2GraphicList.CreateImage(const AIndex: Integer;
+                                     var AImage, AMask: TBitmap);
   function RGBTriple(const AColor: TColor): TRGBTriple;
   var
     cColor:       Cardinal;
@@ -723,7 +791,7 @@ begin
   end;
 end;
 
-procedure TX2GraphicList.AddImage;
+procedure TX2GraphicList.AddImage(const AIndex: Integer);
 var
   bmpImage:       TBitmap;
   bmpMask:        TBitmap;
@@ -753,7 +821,7 @@ begin
   end;
 end;
 
-procedure TX2GraphicList.UpdateImage;
+procedure TX2GraphicList.UpdateImage(const AIndex: Integer);
 var
   bmpImage:       TBitmap;
   bmpMask:        TBitmap;
@@ -778,7 +846,7 @@ begin
   end;
 end;
 
-procedure TX2GraphicList.DeleteImage;
+procedure TX2GraphicList.DeleteImage(const AIndex: Integer);
 begin
   BeginUpdate();
   try
@@ -789,7 +857,7 @@ begin
 end;
 
 
-procedure TX2GraphicList.RebuildImages;
+procedure TX2GraphicList.RebuildImages();
 var
   iIndex:       Integer;
 
@@ -816,7 +884,7 @@ end;
 {========================= TX2GraphicList
   Properties
 ========================================}
-procedure TX2GraphicList.DefineProperties;
+procedure TX2GraphicList.DefineProperties(Filer: TFiler);
 var
   pType:        TClass;
 
@@ -838,7 +906,8 @@ begin
   end;
 end;
 
-procedure TX2GraphicList.Notification;
+procedure TX2GraphicList.Notification(AComponent: TComponent;
+                                      Operation: TOperation);
 begin
   if (Operation = opRemove) and (AComponent = FContainer) then
     FContainer  := nil;
@@ -847,13 +916,13 @@ begin
 end;
 
 
-procedure TX2GraphicList.SetBackground;
+procedure TX2GraphicList.SetBackground(const Value: TColor);
 begin
   FBackground := Value;
   RebuildImages();
 end;
 
-procedure TX2GraphicList.SetContainer;
+procedure TX2GraphicList.SetContainer(const Value: TX2GraphicContainer);
 begin
   if Assigned(FContainer) then
   begin
@@ -872,25 +941,25 @@ begin
   RebuildImages();
 end;
 
-procedure TX2GraphicList.SetEnabled;
+procedure TX2GraphicList.SetEnabled(const Value: Boolean);
 begin
   FEnabled := Value;
   RebuildImages();
 end;
 
-procedure TX2GraphicList.SetStretchMode;
+procedure TX2GraphicList.SetStretchMode(const Value: TX2GLStretchMode);
 begin
   FStretchMode := Value;
   RebuildImages();
 end;
 
 
-procedure TX2GraphicList.BeginUpdate;
+procedure TX2GraphicList.BeginUpdate();
 begin
   Inc(FUpdateCount);
 end;
 
-procedure TX2GraphicList.EndUpdate;
+procedure TX2GraphicList.EndUpdate();
 begin
   Assert(FUpdateCount > 0, 'EndUpdate without matching BeginUpdate!');
   Dec(FUpdateCount);