Date: Sat, 31 Aug 2002 02:09:48 +0100
Newsgroups: borland.public.delphi.graphics
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Newsreader: Virtual Access by Atlantic Coast PLC, http://www.atlantic-coast.com/va
Organization: My Company
Message-ID: <VA.000001a7.03678058@lineone.net>
Subject: Re: Button to Bitmap
From: Bob Villiers <bob_villiers@lineone.net>
Reply-To: bob_villiers@lineone.net
References: <3d6fda09@newsgroups.borland.com>
NNTP-Posting-Host: 80.225.118.43
X-Trace: newsgroups.borland.com 1030755714 80.225.118.43 (30 Aug 2002 18:01:54 -0700)
Lines: 26
Path: newsgroups.borland.com!not-for-mail
Xref: newsgroups.borland.com borland.public.delphi.graphics:50969

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp:TBitmap;
begin
    bmp :=TBitmap.Create;
    try
      bmp.Width := Button2.Width;
      bmp.Height := Button2.Height;
      BM.Canvas.Lock;
      try
        Button2.PaintTo(bmp.Canvas.Handle,0,0);
      finally
        bmp.Canvas.Unlock;
      end;
      Image1.Picture.Bitmap.Assign(bmp);
    finally
      bmp.Free;
    end;
end;

Bob
----
Sent using Virtual Access 5.01 - download your freeware copy now
http://www.atlantic-coast.com/downloads/vasetup.exe