From: "Earl F. Glynn"
Newsgroups: borland.public.delphi.graphics
References: <3B372B2E.F9ABB6CE@rps.com> <3b375e77$1_2@dnews> <3B3B479C.CF0460F1@rps.com>
Subject: Re: Best way to use different sized images?
Date: Thu, 28 Jun 2001 11:47:52 -0500
Lines: 42
Organization: efg's Computer Lab
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200

"Brett Walmsley" <bwalmsley@rps.com> wrote in message
news:3B3B479C.CF0460F1@rps.com...
> Hi Earl,
>
> I want to conceal my bitmaps away from the user so I want to put them in a
> list - I really do not care in which one.
...
>
> So to summarise I want to call up Bitmaps from a container and stretch
them
> between points anywhere on my form.

You might take a look at the ScreenSphereMovie.pas unit that is part of
http://homepages.borland.com/efg2lab/Graphics/SphereInCubeMovie.htm

Look at the TNode class definition.  Instead of just a TBitmap, you could
extend the node to contain other information.

The FormCreate creates a BitmapList, which is just a TList.

The ButtonGenMovieClick method creates a number of TNodes
(each containing a TBitmap) and adds them to the BitmapList.

The ButtonShowMovieClick quickly shows all the Bitmaps in the
TList in a TImage.  This is a bit indirect.  The ScrollBar.Position
is set inside a loop in ButtonShowMovieClick and the
ScrollBarChange actually displays the bitmap.

Be sure to look at FeeBitmapAndContents to get the list
freed.

This is fairly old code, so I might do some of the graphics operations
differently today, but it should show you how to create and work
with a TList of TBitmaps.

--
efg -- Earl F. Glynn, Overland Park, KS  USA
efg's Computer Lab Mirror:  http://homepages.borland.com/efg2lab