anchor.diff:  
     until(LeftIndex>=RXData[RXid].Qty); // >= in case data wasn't loaded and Qty=0
   
  -  //Now we can safely dispose of RXData[RXid].Data to save us some more RAM
  +  fLog.AppendLog(inttostr(TexCount)+' Textures created');
  +  fLog.AddToLog(inttostr(AllocatedRAM div 1024)+'/'+inttostr((AllocatedRAM-RequiredRAM) div 1024)+' Kbytes allocated/wasted for units GFX when using Packing');
  +  fLog.AddToLog(inttostr(ColorsRAM div 1024)+' KBytes for team colors');
  +end;
  +
  +
  +//Now we can safely dispose of RXData[RXid].Data to save us some more RAM
  +procedure TResource.ClearUnusedGFX(RXid:integer);
  +var i:integer;
  +begin
     for i:=1 to RXData[RXid].Qty do begin
       setlength(RXData[RXid].Data[i],0);
       setlength(RXData[RXid].RGBA[i],0);
       setlength(RXData[RXid].Mask[i],0);
     end;
  -
  -
  -  fLog.AppendLog(inttostr(TexCount)+' Textures created');
  -  fLog.AddToLog(inttostr(AllocatedRAM div 1024)+'/'+inttostr((AllocatedRAM-RequiredRAM) div 1024)+' Kbytes allocated/wasted for units GFX when using Packing');
  -  fLog.AddToLog(inttostr(ColorsRAM div 1024)+' KBytes for team colors');
   end;
   
   
  
positive.code:     procedure LoadRX7(aID:integer);
      function LoadRX(filename:string; ID:integer):boolean;
      procedure ExpandRX(ID:integer);
      procedure MakeGFX_AlphaTest(Sender: TObject; RXid:integer);
      procedure MakeGFX(Sender: TObject; RXid:integer);
  
      procedure MakeMiniMapColors(FileName:string);
      procedure MakeCursors(RXid:integer);
  
negative.code: begin
    CreateDir(ExeDir+'Export\');
    CreateDir(ExeDir+'Export\'+RXData[RXid].Title+'.rx\');
    MyBitMap := TBitMap.Create;
    MyBitMap.PixelFormat := pf24bit;
  
    fResource.LoadRX(ExeDir+'data\gfx\res\'+RXData[RXid].Title+'.rx',RXid);
  
    for id:=1 to RXData[RXid].Qty do begin
  
      sx := RXData[RXid].Size[id].X;
      sy := RXData[RXid].Size[id].Y;
      MyBitMap.Width  := sx;
      MyBitMap.Height := sy;
  
      case RXid of
        5:   UsePal := RX5Pal[id];
        6:   UsePal := RX6Pal[id];
        else UsePal := DEF_PAL;
      end;
  
      for y:=0 to sy-1 do for x:=0 to sx-1 do begin
        t := RXData[RXid].Data[id,y*sx+x];
        MyBitMap.Canvas.Pixels[x,y] := fResource.GetColor32(t,UsePal) AND $FFFFFF;
      end;
      if sy>0 then MyBitMap.SaveToFile(ExeDir+'Export\'+RXData[RXid].Title+'.rx\'+RXData[RXid].Title+'_'+int2fix(id,4)+'.bmp');
  
  