🚀 go-pugleaf

Meant Pixels. Code is same except it's Pixels[x,y] not point(x,y). Sorry

--
Michael Jervis:
~~~~~~~~~~~~~~~~~~~~~~~~~~~
mike@skinmaster.co.uk
http://www.skinmaster.co.uk
Michael Jervis <mjervis@hughesrae.co.uk> wrote in message
news:3871bc45.0@news.myratech.net...
> 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
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
>