🚀 go-pugleaf

I am trying to create an image from one bitmap and a template, of which I am
copying only the parts that are NOT a certain colour.

Only it doesn't work.

I have an object MonoSterSkin, which represents a bitmap image of a certain
size for a part of a winamp skins. It has 3 methods. Save, Set and
AddTemplate. It has a private variable of type TBitmap.

The Save method just uses the SaveToFileMethod of the TBitmap (DestImage).

The Set Method uses the TBitmap.Create; method to create the DestImage:
DestImage := TBitmap.Create;

Then Sizes the bitmap to the dimensions fo the winamp skin element
(monoster.bmp).

The Set method is passed a bitmap object from which it copies two portions
to two places in destimage.

DestImage.Canvas.CopyRect(SrcRect, theSource.Canvas, DestRect);

(possibly got src and dest the wrong way round here!)

This works fine, and I can then save the image and it looks right, having 4
sub rectangles made from 2 rectangles of theSOurce tiled in a certain way.

So I am adding the addTemplate method. This takes a file name of a bitmap
file that is one pixel wider than the DestImage bitmap.

I read out the bottom right corner's colour:
theColour := Template.Canvas.Point(maxx, maxy);

theColour is a Tcolor, and seems to get set fine. Template is another
TBitmap, and loads from the file.

Then I do:
For x:=0 to 54 do begin
  For y:=0 to 22 do begin
    If Template.Canvas.Point(x,y) <> theColour then
     DestImage.Canvas.Point(x,y) := Template.Canvas.Point(x,y);
  end;
end;

i.e. trying to step through each point, copying it if it is not that
bitmap's transparent colour.

Only nothing seems to change on the DestImage when it is saved out. I have
tried a DestImage.Canvas.FillRect(10,10,20,20); and that doesn't seem to
change it either.

Stepping through that method IS reached and executed and the bitmap IS
saved.

Any ideas? is there some property of the Pen, Brush or Canvas that could
upset this process?

Thanks



--
Michael Jervis:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Internet Developer Morse Hughes Rae
mjervis@hughesrae.co.uk
Hughes Rae: http://www.hughesrae.co.uk
Morse: http://www.morse.co.uk
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~