Cleanup.

Components/BitmapButton.pas

@@ -44,7 +44,6 @@ type
     procedure SetReplaceColor(Value: TColor);
     procedure SetReplaceWithColor(Value: TColor);
     procedure SetStretch(Value: Boolean);
-    function GetBitmap: TBitmap;
     procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
     procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
     procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
@@ -66,7 +65,7 @@ type
     property Center: Boolean read FCenter write SetCenter default False;
     property Enabled;
     property ParentShowHint;
-    property Bitmap: TBitmap read GetBitmap write SetBitmap;
+    property Bitmap: TBitmap read FBitmap write SetBitmap;
     property PopupMenu;
     property ShowHint;
     property Stretch: Boolean read FStretch write SetStretch default False;
@@ -227,11 +226,6 @@ begin
   end;
 end;
 
-function TBitmapButton.GetBitmap: TBitmap;
-begin
-  Result := FBitmap;
-end;
-
 function TBitmapButton.GetPalette: HPALETTE;
 begin
   Result := FBitmap.Palette;

Components/BitmapImage.pas

@@ -35,7 +35,6 @@ type
     procedure SetReplaceColor(Value: TColor);
     procedure SetReplaceWithColor(Value: TColor);
     procedure SetStretch(Value: Boolean);
-    function GetBitmap: TBitmap;
   protected
     function GetPalette: HPALETTE; override;
     procedure Paint; override;
@@ -54,7 +53,7 @@ type
     property DragMode;
     property Enabled;
     property ParentShowHint;
-    property Bitmap: TBitmap read GetBitmap write SetBitmap;
+    property Bitmap: TBitmap read FBitmap write SetBitmap;
     property PopupMenu;
     property ShowHint;
     property Stretch: Boolean read FStretch write SetStretch default False;
@@ -212,11 +211,6 @@ begin
   end;
 end;
 
-function TBitmapImage.GetBitmap: TBitmap;
-begin
-  Result := FBitmap;
-end;
-
 function TBitmapImage.GetPalette: HPALETTE;
 begin
   Result := FBitmap.Palette;