TMufasa To TBitmap Directly

[Brandon]

Is there a way to go from TMufasaBitmap to TBitmap directly without it creating a middleman copy? OR is there a way to go from TBitmap to Integer Handle bmp's Directly?

Example of what I do not want:

{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}

Procedure MiddleMan;
var
  TM: TMufasaBitmap;
  TB: TBitmap;
begin
  TM := TMufasaBitmap.create;

  TB := TBitmap.Create;
  TB.Width := 200;
  TB.Height := 200;
  TB.Canvas.Pen.COLOR := 16777215;
  TB.Canvas.Rectangle(0, 0, 100, 100);
  TM.LoadFromTBitmap(TB);
  TB.Free;
  DebugBitmap(TM.Index);
  TM.Free;
end;

Procedure Wanted;
var
  TM: TMufasaBitmap;
begin
  TM := TMufasaBitmap.create;
  SetBitmapSize(TM.Index, 200, 200);
  TM.ToTBitmap.Canvas.Pen.Color := 16777215;
  TM.ToTBitmap.Canvas.Rectangle(0, 0, 100, 100);
  DebugBitmap(TM.Index);
  TM.Free;
end;

Procedure SimilarWanted;
var
  BMP: Integer;
begin
  BMP := CreateBitmap(200, 200);
  GetMufasaBitmap(BMP).Rectangle(IntToBox(0, 0, 100, 100), 255);
  DebugBitmap(BMP);
  FreeBitmap(BMP);
end;

begin
  Wanted;           //Draws Nothing..
  Wait(1500);
  MiddleMan;        //Draws A White Box..
  Wait(1500);
  SimilarWanted;    //Draws A Red Box..
end.

See the difference? The first uses a middleman TBitmap and it works find and dandy. The second does not use a middle man but guess what? The second is a memory leak since the TBitmap created is from raw data but is not freed. We all saw what happens before when you assign to a result directly.
The third uses an integer handle which is just a property of the mufasa class. All bitmaps are essentially TMufasaBitmap.Index. They're swapable from Int To TMufasa To Int. This is not the case with TBitmap to anything To TBitmap. Anyone know how to do it?

Why? Because if I draw on the TBitmap after doing ToTBitmap, the TMufasa will not have that drawing on it's canvas unless I load it from a separate TBitmap.

I also want to know how to index a TBitmap. It's not the same as TBitmap.Handle. What use is the handle if I can't use it?

Mufasa's class has TMufasaBitmap.index which is the same as doing BMP: Integer; That's perfect. But TBitmap has no such thing :S

[masterBB]

program new;

Procedure MiddleMan;
var
  TM: TMufasaBitmap;
  TB: TBitmap;
begin
  TM := TMufasaBitmap.create;

  TB := TM.ToTBitmap;
  TB.Width := 200;
  TB.Height := 200;
  TB.Canvas.Pen.COLOR := 3114851;
  TB.Canvas.Brush.Color := 10132122;
  TB.Canvas.Rectangle(0, 0, 100, 100);
  TM.LoadFromTBitmap(TB);
  TB.Free;
  //DebugBitmap(TM.Index);
  //DisplayDebugImgWindow(200,200);
  //DrawBitmapDebugImg(TM.Index);
  TM.Free;
end;

var
  i:Integer;
begin
  For i := 0 to 1000000 do
   MiddleMan;
end.

[Daniel]

var
  Bitmap: TBitmap;

begin
  Bitmap.Assign(GetMufasaBitmap(I).ToTBitmap);
end.

You can also do something like:

var
  Bitmap: TBitmap;

begin
  Bitmap := TBitmap.Create;
  Bitmap.Assign(GetMufasaBitmap(BitmapFromString(5, 5, 'abcdef<bmphere>==')).ToTBitmap);
end.

... if you wish.

And, Simba just stores all of its bitmaps loaded from within the script via methods such as BitmapFromString into an array of TMufasaBitmap. The return code of BitmapFromString is simply the index of that array.