equal
deleted
inserted
replaced
730 end; |
730 end; |
731 |
731 |
732 procedure chZoomReset(var s: shortstring); |
732 procedure chZoomReset(var s: shortstring); |
733 begin |
733 begin |
734 s:= s; // avoid compiler hint |
734 s:= s; // avoid compiler hint |
735 ZoomValue:= cDefaultZoomLevel; |
735 ZoomValue:= UserZoom; |
736 end; |
736 end; |
737 |
737 |
738 procedure chMapGen(var s: shortstring); |
738 procedure chMapGen(var s: shortstring); |
739 begin |
739 begin |
740 cMapGen:= TMapGen(StrToInt(s)) |
740 cMapGen:= TMapGen(StrToInt(s)) |