Merged: menubaractions branch into trunk

Packages/D7/X2CLGL.cfg

@@ -32,6 +32,6 @@
 -M
 -$M16384,1048576
 -K$00400000
--N"..\..\Lib\D7"
+-N"P:\algemeen\lib"
--LE"..\..\Lib\D7"
+-LE"P:\algemeen\bin"
--LN"..\..\Lib\D7"
+-LN"P:\algemeen\bin"

Packages/D7/X2CLGL.dof

@@ -91,9 +91,9 @@ ImageBase=4194304
 ExeDescription=X²CL GraphicList
 [Directories]
 OutputDir=
-UnitOutputDir=..\..\Lib\D7
+UnitOutputDir=$(DELPHILIB)
-PackageDLLOutputDir=..\..\Lib\D7
+PackageDLLOutputDir=$(DELPHIBIN)
-PackageDCPOutputDir=..\..\Lib\D7
+PackageDCPOutputDir=$(DELPHIBIN)
 SearchPath=
 Packages=vcl;rtl;dbrtl;vcldb;vclx;dss;dsnapcrba;dsnapcon;inetdb;webdsnap;websnap;dbxcds;Irc;parsdpk;hotspotter
 Conditionals=
@@ -135,7 +135,8 @@ ProductName=
 ProductVersion=1.0.0.0
 Comments=
 [Excluded Packages]
-P:\Algemeen\components\X2CL\Lib\D7\X2CLGLD.bpl=X²CL GraphicList (Designtime)
+P:\algemeen\bin\X2CLGLD.bpl=X²CL GraphicList (Designtime)
+P:\Algemeen\bin\unageneral_d7_design.bpl=UnameIT's General Components - Design-time Editors
 C:\Program Files\Borland\Indy\D7\dclIndy70.bpl=Internet Direct (Indy) for D7 Property and Component Editors
 [HistoryLists\hlUnitAliases]
 Count=1
@@ -144,14 +145,18 @@ Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 Count=1
 Item0=P:\Algemeen\Indy10;P:\Algemeen\Indy10\Core;P:\Algemeen\Indy10\Protocols;P:\Algemeen\Indy10\SuperCore;P:\Algemeen\Indy10\System
 [HistoryLists\hlUnitOutputDirectory]
-Count=3
+Count=4
-Item0=..\..\Lib\D7
+Item0=$(DELPHILIB)
-Item1=..\Lib\D7
+Item1=..\..\Lib\D7
-Item2=Lib\D7
+Item2=..\Lib\D7
+Item3=Lib\D7
 [HistoryLists\hlBPLOutput]
-Count=2
+Count=3
-Item0=..\..\Lib\D7
+Item0=$(DELPHIBIN)
-Item1=Lib\D7
+Item1=..\..\Lib\D7
+Item2=Lib\D7
 [HistoryLists\hlDCPOutput]
-Count=1
+Count=3
-Item0=..\..\Lib\D7
+Item0=$(DELPHIBIN)
+Item1=$(DELPHILIB)
+Item2=..\..\Lib\D7

Packages/D7/X2CLGLD.cfg

@@ -32,6 +32,6 @@
 -M
 -$M16384,1048576
 -K$00400000
--N"..\..\Lib\D7"
+-N"P:\algemeen\lib\D7"
--LE"..\..\Lib\D7"
+-LE"P:\algemeen\bin\D7"
--LN"..\..\Lib\D7"
+-LN"P:\algemeen\bin\D7"

Packages/D7/X2CLGLD.dof

@@ -91,9 +91,9 @@ ImageBase=4194304
 ExeDescription=X²CL GraphicList (Designtime)
 [Directories]
 OutputDir=
-UnitOutputDir=..\..\Lib\D7
+UnitOutputDir=$(DELPHILIB)
-PackageDLLOutputDir=..\..\Lib\D7
+PackageDLLOutputDir=$(DELPHIBIN)
-PackageDCPOutputDir=..\..\Lib\D7
+PackageDCPOutputDir=$(DELPHIBIN)
 SearchPath=
 Packages=vcl;rtl;dbrtl;vcldb;vclx;dss;dsnapcrba;dsnapcon;inetdb;webdsnap;websnap;dbxcds;Irc;parsdpk;hotspotter
 Conditionals=
@@ -105,10 +105,6 @@ HostApplication=
 Launcher=
 UseLauncher=0
 DebugCWD=
-[Language]
-ActiveLang=
-ProjectLang=
-RootDir=
 [Version Info]
 IncludeVerInfo=1
 AutoIncBuild=0
@@ -135,6 +131,8 @@ ProductName=
 ProductVersion=1.0.0.0
 Comments=
 [Excluded Packages]
+P:\algemeen\bin\X2CLGLD.bpl=X²CL GraphicList (Designtime)
+P:\Algemeen\bin\unageneral_d7_design.bpl=UnameIT's General Components - Design-time Editors
 C:\Program Files\Borland\Indy\D7\dclIndy70.bpl=Internet Direct (Indy) for D7 Property and Component Editors
 [HistoryLists\hlUnitAliases]
 Count=1
@@ -143,14 +141,18 @@ Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 Count=1
 Item0=P:\Algemeen\Indy10;P:\Algemeen\Indy10\Core;P:\Algemeen\Indy10\Protocols;P:\Algemeen\Indy10\SuperCore;P:\Algemeen\Indy10\System
 [HistoryLists\hlUnitOutputDirectory]
-Count=3
+Count=4
-Item0=..\..\Lib\D7
+Item0=$(DELPHILIB)
-Item1=..\Lib\D7
+Item1=..\..\Lib\D7
-Item2=Lib\D7
+Item2=..\Lib\D7
+Item3=Lib\D7
 [HistoryLists\hlBPLOutput]
-Count=2
+Count=3
-Item0=..\..\Lib\D7
+Item0=$(DELPHIBIN)
-Item1=Lib\D7
+Item1=..\..\Lib\D7
+Item2=Lib\D7
 [HistoryLists\hlDCPOutput]
-Count=1
+Count=3
-Item0=..\..\Lib\D7
+Item0=$(DELPHIBIN)
+Item1=$(DELPHILIB)
+Item2=..\..\Lib\D7

Packages/D7/X2CLMBD.cfg

@@ -31,9 +31,9 @@
 -M
 -$M16384,1048576
 -K$00400000
--N"..\..\Lib\D7"
+-N"P:\algemeen\lib\D7"
--LE"..\..\Lib\D7"
+-LE"P:\algemeen\bin\D7"
--LN"..\..\Lib\D7"
+-LN"P:\algemeen\lib\D7"
 -Z
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE

Packages/D7/X2CLMBD.dof

@@ -91,9 +91,9 @@ ImageBase=4194304
 ExeDescription=X²CL MenuBar (Designtime)
 [Directories]
 OutputDir=
-UnitOutputDir=..\..\Lib\D7
+UnitOutputDir=$(DELPHILIB)
-PackageDLLOutputDir=..\..\Lib\D7
+PackageDLLOutputDir=$(DELPHIBIN)
-PackageDCPOutputDir=..\..\Lib\D7
+PackageDCPOutputDir=$(DELPHILIB)
 SearchPath=
 Packages=vcl;rtl;vclx;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;CLXIB;ibxpress;VCLIB;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;Indy70;cxLibraryVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxsbD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxPageControlVCLD7;cxGridVCLD7;cxSchedulerVCLD7;dxMasterViewD7;dxmdsD7;dxPSCoreD7;dxPSTeeChartD7;dxPsPrVwAdvD7;dxPSLnksD7;dxPSdxMVLnkD7;dxPSDBTeeChartD7;dxPScxCommonD7;dxPScxPCProdD7;dxPScxGridLnkD7;dxPScxExtCommonD7;dxPScxScheduler2LnkD7;wpViewPDF_D7;Rave50CLX;Rave50VCL;xtx_d7;IBSQLProperty;SamPackage;rbTCUI107;rbTC107;rbRCL107;rbIDE107;rbBDE107;rbUSERDesign107;rbUSER107;madBasic_;madDisAsm_;madExcept_;unageneral_d7
 Conditionals=
@@ -105,10 +105,6 @@ HostApplication=
 Launcher=
 UseLauncher=0
 DebugCWD=
-[Language]
-ActiveLang=
-ProjectLang=
-RootDir=C:\Program Files\Borland\Delphi7\Bin\
 [Version Info]
 IncludeVerInfo=1
 AutoIncBuild=0
@@ -135,8 +131,6 @@ ProductName=
 ProductVersion=1.0.0.0
 Comments=
 [Excluded Packages]
-P:\Algemeen\components\X2CL\Lib\D7\X2CLMBD.bpl=X²CL MenuBar (Designtime)
-P:\Algemeen\components\X2CL\Lib\D7\X2CLGLD.bpl=X²CL GraphicList (Designtime)
 C:\Program Files\Borland\Indy\D7\dclIndy70.bpl=Internet Direct (Indy) for D7 Property and Component Editors
 [HistoryLists\hlUnitAliases]
 Count=1
@@ -145,14 +139,18 @@ Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 Count=1
 Item0=P:\Algemeen\Indy10;P:\Algemeen\Indy10\Core;P:\Algemeen\Indy10\Protocols;P:\Algemeen\Indy10\SuperCore;P:\Algemeen\Indy10\System
 [HistoryLists\hlUnitOutputDirectory]
-Count=3
+Count=4
-Item0=..\..\Lib\D7
+Item0=$(DELPHILIB)
-Item1=..\Lib\D7
+Item1=..\..\Lib\D7
-Item2=Lib\D7
+Item2=..\Lib\D7
+Item3=Lib\D7
 [HistoryLists\hlBPLOutput]
-Count=2
+Count=3
-Item0=..\..\Lib\D7
+Item0=$(DELPHIBIN)
-Item1=Lib\D7
+Item1=..\..\Lib\D7
+Item2=Lib\D7
 [HistoryLists\hlDCPOutput]
-Count=1
+Count=3
-Item0=..\..\Lib\D7
+Item0=$(DELPHIBIN)
+Item1=$(DELPHILIB)
+Item2=..\..\Lib\D7

Source/X2CLGraphicList.pas

@@ -7,6 +7,7 @@
   :: the problems I thought we would face. His original (Dutch) article can
   :: be found at:
   ::   http://www.erikstok.net/delphi/artikelen/xpicons.html
+  ::
   :: Last changed:    $Date$
   :: Revision:        $Rev$
   :: Author:          $Author$
@@ -24,6 +25,13 @@ uses
 {$IFDEF VER150}
 {$WARN UNSAFE_CODE OFF}
 {$WARN UNSAFE_CAST OFF}
+{$WARN UNSAFE_TYPE OFF}
+{$ENDIF}
+
+{$IFDEF VER180}
+{$WARN UNSAFE_CODE OFF}
+{$WARN UNSAFE_CAST OFF}
+{$WARN UNSAFE_TYPE OFF}
 {$ENDIF}
 
 
@@ -32,6 +40,13 @@ type
   TX2GraphicList      = class;
   TX2GraphicContainer = class;
 
+
+  TX2GLCustomDrawImageProc = function(ACanvas: TCanvas;
+                                      AGraphicList: TX2GraphicList;
+                                      AIndex: Integer;
+                                      AX, AY: Integer;
+                                      AEnabled: Boolean): Boolean;
+
   {
     :$ Holds a single graphic.
   }
@@ -41,28 +56,30 @@ type
     FPicture:           TPicture;
     FPictureName:       String;
 
-    function GetIndex(): Integer;
+    function GetIndex: Integer;
     procedure SetContainer(const Value: TX2GraphicContainer);
     procedure SetIndex(const Value: Integer);
     procedure SetPicture(const Value: TPicture);
     procedure SetPictureName(const Value: String);
   protected
-    procedure Changed(); virtual;
+    procedure Changed; virtual;
     procedure InternalSetContainer(const AContainer: TX2GraphicContainer); virtual;
 
-    function GenerateName(): String;
+    function GenerateName: String;
 
-    procedure NotifierChanged();
+    procedure NotifierChanged;
     procedure IChangeNotifier.Changed = NotifierChanged;
 
     procedure ReadState(Reader: TReader); override;
     procedure SetParentComponent(AParent: TComponent); override;
+
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
   public
     constructor Create(AOwner: TComponent); override;
-    destructor Destroy(); override;
+    destructor Destroy; override;
 
-    function GetParentComponent(): TComponent; override;
+    function GetParentComponent: TComponent; override;
-    function HasParent(): Boolean; override;
+    function HasParent: Boolean; override;
 
     procedure AssignTo(Dest: TPersistent); override;
   public
@@ -85,7 +102,7 @@ type
     FGraphics:          TList;
     FLists:               TList;
 
-    function GetGraphicCount(): Integer;
+    function GetGraphicCount: Integer;
     function GetGraphics(Index: Integer): TX2GraphicContainerItem;
     procedure SetGraphics(Index: Integer; const Value: TX2GraphicContainerItem);
   protected
@@ -112,9 +129,9 @@ type
     property Lists: TList read FLists;
   public
     constructor Create(AOwner: TComponent); override;
-    destructor Destroy(); override;
+    destructor Destroy; override;
 
-    procedure Clear();
+    procedure Clear;
 
     function IndexByName(const AName: String): Integer;
     function GraphicByName(const AName: String): TX2GraphicContainerItem;
@@ -170,18 +187,21 @@ type
     procedure DeleteImage(const AIndex: Integer); virtual;
     procedure MoveImage(const AOldIndex, ANewIndex: Integer); virtual;
 
-    procedure RebuildImages(); virtual;
+    function CanConvert: Boolean;
 
-    procedure BeginUpdate();
+    procedure UpdateImageCount; virtual;
-    procedure EndUpdate();
+    procedure RebuildImages; virtual;
+
+    procedure BeginUpdate;
+    procedure EndUpdate;
   public
     constructor Create(AOwner: TComponent); override;
-    destructor Destroy(); override;
+    destructor Destroy; override;
 
     procedure AssignTo(Dest: TPersistent); override;
 
-    procedure Loaded(); override;
+    procedure Loaded; override;
-    procedure Change(); override;
+    procedure Change; override;
   published
     property Background:    TColor                read FBackground  write SetBackground   default clBtnFace;
     property Container:     TX2GraphicContainer   read FContainer   write SetContainer;
@@ -190,13 +210,23 @@ type
     property StretchMode:   TX2GLStretchMode      read FStretchMode write SetStretchMode  default smCrop;
   end;
 
+
+  procedure X2GLRegisterCustomDrawImageProc(ACustomDrawImageProc: TX2GLCustomDrawImageProc);
+  procedure X2GLUnregisterCustomDrawImageProc(ACustomDrawImageProc: TX2GLCustomDrawImageProc);
+
+
 implementation
 uses
+  CommCtrl,
   Forms,
   ImgList,
   SysUtils;
 
 
+var
+  CustomDrawImageProcs: TList;
+
+
 type
   PClass          = ^TClass;
 
@@ -215,7 +245,7 @@ type
     procedure SetPicture(const Value: TPicture);
   public
     constructor Create(Collection: TCollection); override;
-    destructor Destroy(); override;
+    destructor Destroy; override;
   published
     property Name:          String    read FName    write FName;
     property Picture:       TPicture  read FPicture write SetPicture;
@@ -223,6 +253,47 @@ type
 
 
 
+procedure X2GLRegisterCustomDrawImageProc(ACustomDrawImageProc: TX2GLCustomDrawImageProc);
+var
+  procPointer: Pointer absolute ACustomDrawImageProc;
+
+begin
+  if CustomDrawImageProcs.IndexOf(procPointer) = -1 then
+    CustomDrawImageProcs.Add(procPointer);
+end;
+
+
+procedure X2GLUnregisterCustomDrawImageProc(ACustomDrawImageProc: TX2GLCustomDrawImageProc);
+var
+  procPointer: Pointer absolute ACustomDrawImageProc;
+
+begin
+  CustomDrawImageProcs.Remove(procPointer);
+end;
+
+
+function CustomDrawImage(ACanvas: TCanvas; AGraphicList: TX2GraphicList;
+                         AIndex: Integer; AX, AY: Integer; AEnabled: Boolean): Boolean;
+var
+  customProcIndex:  Integer;
+  customProc:       TX2GLCustomDrawImageProc;
+
+begin
+  Result := False;
+
+  for customProcIndex := Pred(CustomDrawImageProcs.Count) downto 0 do
+  begin
+    customProc  := TX2GLCustomDrawImageProc(CustomDrawImageProcs[customProcIndex]);
+
+    if customProc(ACanvas, AGraphicList, AIndex, AX, AY, AEnabled) then
+    begin
+      Result := True;
+      Break;
+    end;
+  end;
+end;
+
+
 {================ TX2GraphicContainerItem
   Initialization
 ========================================}
@@ -230,12 +301,12 @@ constructor TX2GraphicContainerItem.Create(AOwner: TComponent);
 begin
   inherited;
 
-  FPicture                := TPicture.Create();
+  FPicture                := TPicture.Create;
   FPicture.PictureAdapter := Self;
 end;
 
 
-destructor TX2GraphicContainerItem.Destroy();
+destructor TX2GraphicContainerItem.Destroy;
 begin
   if Assigned(Container) then
     Container.RemoveGraphic(Self);
@@ -259,20 +330,38 @@ begin
 end;
 
 
-procedure TX2GraphicContainerItem.NotifierChanged();
+procedure TX2GraphicContainerItem.NotifierChanged;
 begin
-  Changed();
+  Changed;
+end;
+
+
+procedure TX2GraphicContainerItem.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+  if (Operation = opRemove) and (AComponent = FContainer) then
+    FContainer := nil;
+
+  inherited;
 end;
 
 
 procedure TX2GraphicContainerItem.InternalSetContainer(const AContainer: TX2GraphicContainer);
 begin
+  if AContainer <> FContainer then
+  begin
+    if Assigned(FContainer) then
+      FContainer.RemoveFreeNotification(Self);
+
     FContainer := AContainer;
+
+    if Assigned(FContainer) then
+      FContainer.FreeNotification(Self);
+  end;
 end;
 
 
 
-procedure TX2GraphicContainerItem.Changed();
+procedure TX2GraphicContainerItem.Changed;
 begin
   if Assigned(Container) then
     Container.UpdateGraphic(Self);
@@ -280,21 +369,21 @@ end;
 
 
 
-function TX2GraphicContainerItem.GetParentComponent(): TComponent;
+function TX2GraphicContainerItem.GetParentComponent: TComponent;
 begin
   if Assigned(Container) then
     Result := Container
   else
-    Result := inherited GetParentComponent();
+    Result := inherited GetParentComponent;
 end;
 
 
-function TX2GraphicContainerItem.HasParent(): Boolean;
+function TX2GraphicContainerItem.HasParent: Boolean;
 begin
   if Assigned(Container) then
     Result := True
   else
-    Result := inherited HasParent();
+    Result := inherited HasParent;
 end;
 
 
@@ -303,19 +392,20 @@ procedure TX2GraphicContainerItem.ReadState(Reader: TReader);
 begin
   inherited;
 
-  if Reader.Parent is TX2GraphicContainer then
+  if Assigned(Reader.Parent) and (Reader.Parent is TX2GraphicContainer) then
     Container := TX2GraphicContainer(Reader.Parent);
 end;
 
 
 procedure TX2GraphicContainerItem.SetParentComponent(AParent: TComponent);
 begin
-  if not (csLoading in ComponentState) and (AParent is TX2GraphicContainer) then
+  if (not (csLoading in ComponentState)) and
+     Assigned(AParent) and (AParent is TX2GraphicContainer) then
     Container := TX2GraphicContainer(AParent);
 end;
 
 
-function TX2GraphicContainerItem.GetIndex(): Integer;
+function TX2GraphicContainerItem.GetIndex: Integer;
 begin
   Result := -1;
   if Assigned(Container) then
@@ -334,7 +424,7 @@ begin
       Value.AddGraphic(Self);
   
     if not (csLoading in ComponentState) then
-      Name := GenerateName();
+      Name := GenerateName;
   end;
 end;
 
@@ -358,12 +448,12 @@ begin
     FPictureName := Value;
 
     if not (csLoading in ComponentState) then
-      Name := GenerateName();
+      Name := GenerateName;
   end;
 end;
 
 
-function TX2GraphicContainerItem.GenerateName(): String;
+function TX2GraphicContainerItem.GenerateName: String;
   function ValidComponentName(const AComponent: TComponent; const AName: String): Boolean;
   var
     checkOwner:   TComponent;
@@ -428,14 +518,14 @@ constructor TX2GraphicContainer.Create(AOwner: TComponent);
 begin
   inherited;
 
-  FGraphics := TList.Create();
+  FGraphics := TList.Create;
-  FLists    := TList.Create();
+  FLists    := TList.Create;
 end;
 
 
-destructor TX2GraphicContainer.Destroy();
+destructor TX2GraphicContainer.Destroy;
 begin
-  Clear();
+  Clear;
   
   FreeAndNil(FGraphics);
   FreeAndNil(FLists);
@@ -493,7 +583,7 @@ begin
   if Dest is TX2GraphicContainer then
   begin
     destContainer := TX2GraphicContainer(Dest);
-    destContainer.Clear();
+    destContainer.Clear;
   
     for graphicIndex := 0 to Pred(Self.GraphicCount) do
       with TX2GraphicContainerItem.Create(destContainer) do
@@ -508,10 +598,10 @@ end;
 
 
 
-procedure TX2GraphicContainer.Clear();
+procedure TX2GraphicContainer.Clear;
 begin
   while GraphicsList.Count > 0 do
-    TX2GraphicContainerItem(GraphicsList.Last).Free();
+    TX2GraphicContainerItem(GraphicsList.Last).Free;
 end;
 
 
@@ -550,7 +640,7 @@ begin
   begin
     { Re-generate names for graphic components }
     for graphicIndex := 0 to Pred(GraphicCount) do
-      Graphics[graphicIndex].Name := Graphics[graphicIndex].GenerateName();
+      Graphics[graphicIndex].Name := Graphics[graphicIndex].GenerateName;
   end;
 end;
 
@@ -739,7 +829,7 @@ end;
 
 
 
-function TX2GraphicContainer.GetGraphicCount(): Integer;
+function TX2GraphicContainer.GetGraphicCount: Integer;
 begin
   Result := GraphicsList.Count;
 end;
@@ -772,24 +862,24 @@ begin
 end;
 
 
-procedure TX2GraphicList.Loaded();
+procedure TX2GraphicList.Loaded;
 begin
   inherited;
 
-  RebuildImages();
+  RebuildImages;
 end;
 
 
-procedure TX2GraphicList.Change();
+procedure TX2GraphicList.Change;
 begin
   inherited;
 
   if FUpdateCount = 0 then
-    RebuildImages();
+    RebuildImages;
 end;
 
 
-destructor TX2GraphicList.Destroy();
+destructor TX2GraphicList.Destroy;
 begin
   SetContainer(nil);
 
@@ -851,7 +941,7 @@ function TX2GraphicList.DrawGraphic(const AIndex: Integer;
         case FStretchMode of
           smCrop:
             begin
-              bmpTemp := TBitmap.Create();
+              bmpTemp := TBitmap.Create;
               try
                 with bmpTemp do
                 begin
@@ -896,24 +986,28 @@ begin
   if (AIndex < 0) or (AIndex >= FContainer.GraphicCount) then
     exit;
 
-  if (not Assigned(FContainer.Graphics[AIndex].Picture.Graphic)) or
+  if (not Assigned(FContainer.Graphics[AIndex].Picture)) or
+     (not Assigned(FContainer.Graphics[AIndex].Picture.Graphic)) or
      (FContainer.Graphics[AIndex].Picture.Graphic.Empty) then
     exit;
 
+  { First see if any custom draw handlers want to draw the image }
+  if not CustomDrawImage(ACanvas, Self, AIndex, AX, AY, AEnabled) then
+  begin
     if AEnabled then
-    // Enabled, simply draw the graphic
+      { Enabled, simply draw the graphic }
       InternalDrawGraphic(ACanvas, AX, AY)
     else
     begin
-    // Disabled, need to draw the image using 50% transparency. There's only
+      { Disabled, need to draw the image using 50% transparency. There's only
-    // one problem; not all TGraphic's support that, and neither is there a
+        one problem; not all TGraphic's support that, and neither is there a
-    // generic way of determining a pixel's transparency. So instead, we
+        generic way of determining a pixel's transparency. So instead, we
-    // blend the background with a copy of the background with the graphic
+        blend the background with a copy of the background with the graphic
-    // painted on it...
+        painted on it... }
-    bmpBackground := TBitmap.Create();
+      bmpBackground := TBitmap.Create;
-    bmpBlend      := TBitmap.Create();
+      bmpBlend      := TBitmap.Create;
       try
-      // Get background from canvas
+        { Get background from canvas }
         with bmpBackground do
         begin
           Width       := Self.Width;
@@ -926,7 +1020,7 @@ begin
         bmpBlend.Assign(bmpBackground);
         InternalDrawGraphic(bmpBlend.Canvas, 0, 0);
   
-      // Blend graphic with background at 50%
+        { Blend graphic with background at 50% }
         for iY  := 0 to bmpBackground.Height - 1 do
         begin
           pBackground := bmpBackground.ScanLine[iY];
@@ -944,13 +1038,14 @@ begin
             end;
         end;
   
-      // Copy blended graphic back
+        { Copy blended graphic back }
         ACanvas.Draw(AX, AY, bmpBlend);
       finally
         FreeAndNil(bmpBlend);
         FreeAndNil(bmpBackground);
       end;
     end;
+  end;
 
   Result  := True;
 end;
@@ -999,17 +1094,6 @@ var
   pMask:      PByteArray;
 
 begin
-  if not FConvert then
-  begin
-    AImage.Width              := Self.Width;
-    AImage.Height             := Self.Height;
-    AImage.Canvas.Brush.Color := clWhite;
-    AImage.Canvas.FillRect(Rect(0, 0, AImage.Width, AImage.Height));
-
-    AMask.Assign(AImage);
-    exit;
-  end;
-
   // Technique used here: draw the image twice, once on the background color,
   // once on black. Loop through the two images, check if a pixel is the
   // background color on one image and black on the other; if so then it's
@@ -1051,7 +1135,7 @@ begin
   if not bOk then
     exit;
   
-  bmpCompare  := TBitmap.Create();
+  bmpCompare  := TBitmap.Create;
   try
     with bmpCompare do
     begin
@@ -1114,10 +1198,12 @@ begin
   if csLoading in ComponentState then
     exit;
 
-  BeginUpdate();
+  if CanConvert then
+  begin
+    BeginUpdate;
     try
-    bmpImage  := TBitmap.Create();
+      bmpImage  := TBitmap.Create;
-    bmpMask   := TBitmap.Create();
+      bmpMask   := TBitmap.Create;
       try
         BuildImage(AIndex, bmpImage, bmpMask);
         Assert(AIndex <= Self.Count, 'AAAH! Images out of sync! *panics*');
@@ -1131,8 +1217,10 @@ begin
         FreeAndNil(bmpImage);
       end;
     finally
-    EndUpdate();
+      EndUpdate;
     end;
+  end else
+    UpdateImageCount;
 end;
 
 
@@ -1145,13 +1233,16 @@ begin
   if csLoading in ComponentState then
     exit;
   
+  if not CanConvert then
+    Exit;
+  
   if (AIndex < 0) or (AIndex >= Count) then
     exit;
   
-  BeginUpdate();
+  BeginUpdate;
   try
-    bmpImage  := TBitmap.Create();
+    bmpImage  := TBitmap.Create;
-    bmpMask   := TBitmap.Create();
+    bmpMask   := TBitmap.Create;
     try
       BuildImage(AIndex, bmpImage, bmpMask);
       Replace(AIndex, bmpImage, bmpMask);
@@ -1160,55 +1251,77 @@ begin
       FreeAndNil(bmpImage);
     end;
   finally
-    EndUpdate();
+    EndUpdate;
   end;
 end;
 
 
 procedure TX2GraphicList.DeleteImage(const AIndex: Integer);
 begin
-  BeginUpdate();
+  BeginUpdate;
   try
     Delete(AIndex);
   finally
-    EndUpdate();
+    EndUpdate;
   end;
 end;
 
 
 procedure TX2GraphicList.MoveImage(const AOldIndex, ANewIndex: Integer);
 begin
-  BeginUpdate();
+  BeginUpdate;
   try
     Move(AOldIndex, ANewIndex);
   finally
-    EndUpdate();
+    EndUpdate;
   end;
 end;
 
 
-procedure TX2GraphicList.RebuildImages();
+procedure TX2GraphicList.UpdateImageCount;
+begin
+  if not Assigned(Container) then
+    Clear
+  else
+    ImageList_SetImageCount(Self.Handle, Container.GraphicCount);
+end;
+
+
+procedure TX2GraphicList.RebuildImages;
 var
   iIndex:       Integer;
 
 begin
   if (csLoading in ComponentState) or
      (Width = 0) or (Height = 0) then
-    exit;
+    Exit;
 
-  BeginUpdate();
+  BeginUpdate;
   try
-    Clear();
-
     if not Assigned(FContainer) then
-      exit;
+    begin
+      Clear;
+    end else
+    begin
+      UpdateImageCount;
 
+      if CanConvert then
+      begin
         for iIndex  := 0 to Pred(FContainer.GraphicCount) do
-      AddImage(iIndex);
+          UpdateImage(iIndex);
-  finally
-    EndUpdate();
       end;
     end;
+  finally
+    EndUpdate;
+    inherited Change;
+  end;
+end;
+
+
+function TX2GraphicList.CanConvert: Boolean;
+begin
+  Result := FConvert or (csDesigning in ComponentState);
+end;
 
 
 {========================= TX2GraphicList
@@ -1250,7 +1363,7 @@ end;
 procedure TX2GraphicList.SetBackground(const Value: TColor);
 begin
   FBackground := Value;
-  RebuildImages();
+  RebuildImages;
 end;
 
 
@@ -1270,7 +1383,7 @@ begin
     FContainer.RegisterList(Self);
   end;
   
-  RebuildImages();
+  RebuildImages;
 end;
 
 
@@ -1279,7 +1392,7 @@ begin
   if Value <> FConvert then
   begin
     FConvert  := Value;
-    RebuildImages();
+    RebuildImages;
   end;
 end;
 
@@ -1287,24 +1400,24 @@ end;
 procedure TX2GraphicList.SetEnabled(const Value: Boolean);
 begin
   FEnabled := Value;
-  RebuildImages();
+  RebuildImages;
 end;
 
 
 procedure TX2GraphicList.SetStretchMode(const Value: TX2GLStretchMode);
 begin
   FStretchMode := Value;
-  RebuildImages();
+  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);
@@ -1317,11 +1430,11 @@ constructor TDeprecatedGraphicItem.Create(Collection: TCollection);
 begin
   inherited;
 
-  FPicture  := TPicture.Create();
+  FPicture  := TPicture.Create;
 end;
 
 
-destructor TDeprecatedGraphicItem.Destroy();
+destructor TDeprecatedGraphicItem.Destroy;
 begin
   FreeAndNil(FPicture);
 
@@ -1335,8 +1448,11 @@ begin
 end;
 
 
-
 initialization
   RegisterClass(TX2GraphicContainerItem);
+  CustomDrawImageProcs  := TList.Create;
+
+finalization
+  FreeAndNil(CustomDrawImageProcs);
 
 end.

Source/X2CLMenuBar.pas

@@ -395,7 +395,7 @@ type
     procedure SetSelectedItem(const Value: TX2CustomMenuBarItem);
   protected
     procedure CreateParams(var Params: TCreateParams); override;
-    procedure CreateHandle(); override;
+    procedure Loaded(); override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure PainterUpdate(Sender: TX2CustomMenuBarPainter);
     procedure GroupsNotify(Sender: TObject; Item: TCollectionItem; Action: TCollectionNotification);
@@ -1357,7 +1357,7 @@ begin
   end;
 end;
 
-procedure TX2CustomMenuBar.CreateHandle();
+procedure TX2CustomMenuBar.Loaded();
 begin
   inherited;
 

Test/MenuBar/MainForm.dfm

@@ -12,6 +12,7 @@ object frmMain: TfrmMain
   Font.Style = []
   OldCreateOrder = False
   Position = poScreenCenter
+  OnClick = FormClick
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
@@ -369,6 +370,7 @@ object frmMain: TfrmMain
           end>
       end>
     Images = glMenu
+    TabOrder = 14
     OnCollapsed = mbTestCollapsed
     OnCollapsing = mbTestCollapsing
     OnExpanded = mbTestExpanded

Test/MenuBar/MainForm.pas

@@ -73,6 +73,7 @@ type
     procedure AnimationClick(Sender: TObject);
     procedure seAnimationTimeChange(Sender: TObject);
     procedure actTestExecute(Sender: TObject);
+    procedure FormClick(Sender: TObject);
   private
     procedure Event(const AMsg: String);
   end;
@@ -231,4 +232,12 @@ begin
   mbTest.AnimationTime := seAnimationTime.AsInteger;
 end;
 
+procedure TfrmMain.FormClick(Sender: TObject);
+begin
+  if Assigned(ActiveControl) then
+    Self.Caption := ActiveControl.Name
+  else
+    Self.Caption := '';
+end;
+
 end.