hedgewars/uWorld.pas
changeset 6652 b043665dea3d
parent 6650 56a0b7bf6c15
child 6676 21cf35a570a7
equal deleted inserted replaced
6651:4103354b7599 6652:b043665dea3d
   328     inc(y, AMSlotSize + 1);
   328     inc(y, AMSlotSize + 1);
   329 {$ENDIF}
   329 {$ENDIF}
   330     end;
   330     end;
   331 
   331 
   332 for i:= 1 to SlotsNumX -1 do
   332 for i:= 1 to SlotsNumX -1 do
   333 DrawLine2Surf(amSurface, i * (AMSlotSize+1), BORDERSIZE, i * (AMSlotSize+1), AMRect.h + BORDERSIZE - AMSlotSize - 2,160,160,160);            
   333 DrawLine2Surf(amSurface, i * (AMSlotSize+1)+1, BORDERSIZE, i * (AMSlotSize+1)+1, AMRect.h + BORDERSIZE - AMSlotSize - 2,160,160,160);            
   334 for i:= 1 to SlotsNumY -1 do
   334 for i:= 1 to SlotsNumY -1 do
   335 DrawLine2Surf(amSurface, BORDERSIZE, i * (AMSlotSize+1), AMRect.w + BORDERSIZE, i * (AMSlotSize+1),160,160,160);
   335 DrawLine2Surf(amSurface, BORDERSIZE, i * (AMSlotSize+1)+1, AMRect.w + BORDERSIZE, i * (AMSlotSize+1)+1,160,160,160);
   336 
   336 
   337 //draw outer border
   337 //draw outer border
   338 DrawSprite2Surf(sprAMCorners, amSurface, 0                    , 0                    , 0);
   338 DrawSprite2Surf(sprAMCorners, amSurface, 0                    , 0                    , 0);
   339 DrawSprite2Surf(sprAMCorners, amSurface, AMRect.w + BORDERSIZE, AMRect.y             , 1);
   339 DrawSprite2Surf(sprAMCorners, amSurface, AMRect.w + BORDERSIZE, AMRect.y             , 1);
   340 DrawSprite2Surf(sprAMCorners, amSurface, AMRect.x             , AMRect.h + BORDERSIZE, 2);
   340 DrawSprite2Surf(sprAMCorners, amSurface, AMRect.x             , AMRect.h + BORDERSIZE, 2);