hedgewars/uTextures.pas
changeset 11492 8e221d2a368e
parent 11342 ed5a6478e710
child 11512 bd9a2f1b0080
equal deleted inserted replaced
11491:2b30283a402c 11492:8e221d2a368e
   174 var
   174 var
   175     // current row index, second last row index of array, width and first/last i of row
   175     // current row index, second last row index of array, width and first/last i of row
   176     r, slr, w, si, li: LongWord;
   176     r, slr, w, si, li: LongWord;
   177 begin
   177 begin
   178     w:= surf^.w;
   178     w:= surf^.w;
       
   179     // just a single pixel, nothing to do here
       
   180     if (w < 2) and (surf^.h < 2) then
       
   181         exit;
   179     slr:= surf^.h - 2;
   182     slr:= surf^.h - 2;
   180     si:= 0;
   183     si:= 0;
   181     li:= w - 1;
   184     li:= w - 1;
   182     for r:= 0 to slr do
   185     for r:= 0 to slr do
   183         begin
   186         begin