Delphi – TImageList component for Delphi 7 which supports PNG Images

I did something like this with Delphi 2006.

TImageList contains a protected method GetImages. It can be accessed using the "protected bug"

type
  TGetImageImageList = class (TImageList) // Please use a better name!
  end;

You can cast the imagelist to the TGetImageImageList to get to the GetImages.

begin
  TGetImageList(ImageList).GetImages(index, bitmap, mask);
end;

Bitmap contains the bitmap and mask is a black and white bitmap that determines the transparant sections.

You now can change the bitmap and store it using:

function Add(Image, Mask: TBitmap): Integer;

I hope this gives you enough pointers to explore further.

This is fairly simple to build your own...and you don't have to use much more than a TPanel, TEdit two TLabels and a TShape.

A Tshape component aligned left inside a panel and colored works great as the simple progress bar, just change the width % of the TShape to match the % strength. Adjust color and such to match. A good resource then for the % strength is to use one of the many examples found on the web. As an addition to this table, if you have a spell check component available, try to spellcheck the result...if it passes then it should get a much lower score (in my opinion -50 from the result).

In the onChange for the edit, recompute the password strength and adjust the other controls appropriately.