type
  TTreeView = class(ComCtrls.TTreeView)
  private
    FBitmap: TBitmap;
  protected
    procedure WndProc(var Message: TMessage); override;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  public
    property Bitmap: TBitmap read FBitmap write FBitmap;
  end;

  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses CommCtrl;

{$R *.dfm}

{ TTreeView }

procedure TTreeView.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_ERASEBKGND then
  begin
    Message.Result := 1
  end else
  begin
    case Message.Msg of
      CN_NOTIFY:
        if TWMNotify(Message).NMHdr^.code = TVN_ITEMEXPANDING then
          InvalidateRect(Handle, nil, False);
      WM_KEYDOWN, WM_HSCROLL, WM_VSCROLL, WM_MOUSEWHEEL:
        InvalidateRect(Handle, nil, False);
    end;
    inherited
  end
end;

procedure TTreeView.WMPaint(var Message: TWMPaint);
var
  DC, TempDC, TempDC1: HDC;
  TempBmp, OldBmp, OldBmp1, TempBMP1: HBITMAP;
  PS: TPaintStruct;
  TempRect: TRect;
begin
  if Message.DC <> 0 then
    inherited
  else begin
    TempRect := ClientRect;
    BeginPaint (Handle, PS);
    try
      DC := GetDC(Handle);
      TempDC := CreateCompatibleDC(DC);
      TempDC1 := CreateCompatibleDC(DC);
      TempBMP := CreateCompatibleBitmap(DC, TempRect.Right, TempRect.Bottom);
      TempBMP1 := CreateCompatibleBitmap(DC, TempRect.Right, TempRect.Bottom);
      try
        OldBmp := SelectObject(TempDC, TempBMP);
        OldBmp1 := SelectObject(TempDC1, TempBMP1);
        try
          Message.DC := TempDC;
          inherited;
          Message.DC := 0;
          FillRect(TempDC1, TempRect, GetStockObject(WHITE_BRUSH));
          if FBitmap <> nil then
            BitBlt(TempDC1, 0, 0, FBitmap.Width, FBitmap.Height, FBitmap.Canvas.Handle, 0, 0, SRCCOPY);
          TransparentBlt (TempDC1, 0, 0, TempRect.Right, TempRect.Bottom, TempDC, 0, 0, TempRect.Right, TempRect.Bottom, clWhite);
          BitBlt(DC, 0, 0, TempRect.Right, TempRect.Bottom, TempDC1, 0, 0, SRCCOPY);
        finally
          SelectObject (TempDC, OldBmp);
          SelectObject (TempDC1, OldBmp1)
        end;
      finally
        DeleteObject (TempBMP);
        DeleteObject (TempBMP1);
        ReleaseDC (Handle, TempDC);
        ReleaseDC (Handle, TempDC1);
        ReleaseDC (Handle, DC);
      end;
    finally
      EndPaint (Handle, PS)
    end;
  end
end;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  treeview1.Color := clWhite;
  treeview1.Bitmap := ...
end;

var h:HDC;
begin
  h:=GetDC(Button1.handle); //здесь создаем ссылку
  Rectangle(h,5,5,15,15);
  ReleaseDC(Button1.handle,h) //здесь освобождение ссылки
  DeleteDC(h); //здесь удаление ссылки
end;

var q:TCanvas;
begin
  q:=TCanvas.Create;
  q.Handle:=GetDC(Button1.Handle);
  q.MoveTo(0,0);
  q.LineTo(10,10);
  ReleaseDC(Button1.handle,q.Handle);
  DeleteDC(q.Handle);
  q.Free;
end;

unit GraphButton;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Graphics;

type
  TGraphButton = class(TButton)
  private
    FCanvas: TControlCanvas;
    function GetCanvas: TCanvas;
    { Private declarations }
  protected
    { Protected declarations }
  public
    property Canvas:TCanvas read GetCanvas;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyGraph', [TGraphButton]);
end;

{ TGraphButton }



constructor TGraphButton.Create;
begin
  inherited;
  FCanvas := TControlCanvas.Create;
  FCanvas.Control := Self;
end;

destructor TGraphButton.Destroy;
begin
  FCanvas.Free;
  inherited;
end;

function TGraphButton.GetCanvas: TCanvas;
begin
  Result := FCanvas;
end;

end.