Marc Weustink wrote:
Can you give us a little code sample ?
Marc
Yes, certainly:
//~~~~~~~~~~~~~~~~~~~~~~~ snip ~~~~~~~~~~~~~~~~~~~~~~~
var
BufferBitMap:TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
BufferBitMap:=TBitMap.Create;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
BufferBitMap.Width:=Image1.Width;
BufferBitMap.Height:=Image1.Height;
end;
//~~~~~~~~~~~~~~~~~~~~~~~ snip ~~~~~~~~~~~~~~~~~~~~~~~
--
Dave Coventry
Tel: +27(0)31 3092301
Fax: +27(0)31 3092301
Cell: +27(0)82 3685983
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
