anchor.diff:  constructor TKMImageStack.Create(aParent:TKMPanel; aLeft, aTop, aWidth, aHeight, aTexID:integer; aRXid:integer=4);
   begin
     Inherited Create(aParent, aLeft, aTop, aWidth, aHeight);
  -  RXid  := aRXid;
  -  TexID := aTexID;
  +  fRXid  := aRXid;
  +  fTexID := aTexID;
     fCount := 0;
     fColumns := 0;
     fDrawWidth := 0;
  
positive.code: begin
    fCount := aCount;
    fColumns := Math.max(1,aColumns);
    fDrawWidth  := EnsureRange(Width div fColumns, 8, GFXData[RXid, TexID].PxWidth);
    fDrawHeight := EnsureRange(Height div ceil(fCount/fColumns), 6, GFXData[RXid, TexID].PxHeight);
  
    Aspect := GFXData[RXid, TexID].PxWidth / GFXData[RXid, TexID].PxHeight;
    if fDrawHeight * Aspect <= fDrawWidth then
      fDrawWidth  := round(fDrawHeight * Aspect)
    else
  
negative.code: {Image stack - for army formation view}
  TKMImageStack = class(TKMControl)
    private
      fRXid: integer; //RX library
      fTexID: integer;
      fCount: integer;
      fColumns: integer;
      fDrawWidth: integer;
      fDrawHeight: integer;
    public
      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight,aTexID:integer; aRXid:integer=4);
      procedure SetCount(aCount,aColumns:integer);
      procedure Paint; override;
  