Imagelist getfullbitmap as column, but redded as row

[Zaher]

I have Imagelist had a few images (16x16)
I want to take this full images in one image i used
Imagelist.GetFullBitmap
I get me images as one images but as coulmn (up to down)
After that i want to read it again after do some effects, but it add splite it as images in one row (right to left)
Is that but or there is another function should I use?

An example in the attachment

[Zaher]

This part of the code

Code: [Select]

procedure TForm1.ToolBar1Click(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ImageList1.GetFullBitmap(Image1.Picture.Bitmap);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ImageList1.Clear;
  ImageList1.AddMasked(Image1.Picture.Bitmap, clFuchsia);
end;
     


[Zaher]

Reported as bug/patch
http://bugs.freepascal.org/view.php?id=30735