From: "Thomas" <senikies@AMJ-Groupe.com>
Subject: Re: Strange TImage Canvas?
Date: 15 Mar 1999 00:00:00 GMT
Message-ID: <01be6ece$a238c3a0$6400000a@senikies.easynet.fr>
References: <36ECB0DD.9DB6EE1A@unm.edu>
Organization: Another Netscape Collabra Server User
Newsgroups: borland.public.delphi.graphics

Hi Robert,

Well, your problem sounds a little bit strange to me for I used BrushCopy
with a TImage with no problem.
Maybe the dynamic assignation of your bitmap to a TImage isn't correct. I
guess you used the Assign method ?
Are you sure about your Image brush color being assigned before the call of
BrushCopy ?

Here is the code I've written in my app and which works with two bitmaps :

  SourceRect := Rect(0, 0, SourceImage.Picture.Width,
SourceImage.Picture.Height);
  MyImage.Canvas.Brush.Color := GetSysColor(COLOR_APPWORKSPACE);
  MyImage.Picture.BitMap.Canvas.BrushCopy(SourceRect,
SourceImage.Picture.BitMap, SourceRect, clRed);

Hope this will help.
Thomas.