[schwa226]

Ok, it looks like no bug to Delphi 2010, 2009…

If you use AddIcon the Icon will be added, but no item will be added.
If manually add icon also a item will be added.

dirty workaround:

CODE

  Function AddTIcon(var ImageList : TsAlphaImageList; const Icon : TIcon): Integer;
  var
    TempStream : TMemoryStream;
    NewItem : TsImgListItem;
  begin
    TempStream := TMemoryStream.Create;
    Result := -1;
    try
      Icon.SaveToStream(TempStream);
      NewItem := TsImgListItem.Create(ImageList.Items);
      NewItem.ImgData.SetSize(TempStream.Size);
      CopyMemory(NewItem.ImgData.Memory,TempStream.Memory,TempStream.Size);
      Result := ImageList.AddIcon(Icon);
    finally
      TempStream.Free;
    end;
  end;

[schwa226]

QUOTE (Support @ Oct 22 2009, 02:22 PM)

Hi

In the sConst.pas unit declared the MouseForbidden : boolean = False variable.
Try to set this variable to True.

Great! It works!

CODE

uses
     sConst,…

MouseForbidden := False/True;

Changing the MouseForbidden while the app is running is no problem.

Thanks for the help!

[schwa226]

THX!

This solved the problem! <img src="style_emoticons//rolleyes.gif” style=”vertical-align:middle” emoid=”:roll:” border=”0″ alt=”rolleyes.gif” />

Big Thanks!

[Author]

Posts