anchor.diff:  const
     HOUSE_W = 30;
     UNIT_W = 26;
  -  BEVEL_LAYER = 1;
  -  IMAGE_LAYER = 2;
  -  TEXT_LAYER = 3;
   var
     I, K: Integer;
     HT: TKMHouseType;
  
positive.code:     begin
        //Houses block
        Panel_StatBlock[I] := TKMPanel.Create(Panel_Stats, 0, 0, 30, 30);
        with TKMBevel.Create(Panel_StatBlock[I], 0, 0, 30, 30, BEVEL_LAYER) do
          AnchorsStretch;
  
        OffX := 0;
  
negative.code:         if StatPlan[I].UnitType[K] <> utNone then
          begin
            UT := StatPlan[I].UnitType[K];
            Stat_UnitPic[UT] := TKMImage.Create(Panel_StatBlock[I], OffX, 0, UNIT_W, 30, gRes.Units[UT].GUIIcon, rxGui);
            Stat_UnitPic[UT].Hint := gRes.Units[UT].GUIName;
            Stat_UnitPic[UT].ImageCenter;
            Stat_UnitWip[UT] := TKMLabel.Create(Panel_StatBlock[I], OffX + UNIT_W  ,  0,  '', fntGrey, taRight);
            Stat_UnitWip[UT].Hitable := False;
            Stat_UnitQty[UT] := TKMLabel.Create(Panel_StatBlock[I], OffX + UNIT_W-2, 16, '-', fntGrey, taRight);
            Stat_UnitQty[UT].Hitable := False;
            Inc(OffX, UNIT_W);
          end;
  