equal
deleted
inserted
replaced
722 isSpeed:= false |
722 isSpeed:= false |
723 end; |
723 end; |
724 |
724 |
725 procedure chZoomIn(var s: shortstring); |
725 procedure chZoomIn(var s: shortstring); |
726 begin |
726 begin |
727 if ZoomValue < 3.0 then ZoomValue:= ZoomValue + 0.25; |
727 {$IFDEF IPHONEOS} |
|
728 if ZoomValue < 3.5 then |
|
729 {$ELSE} |
|
730 if ZoomValue < 3.0 then |
|
731 {$ENDIF} |
|
732 ZoomValue:= ZoomValue + 0.25; |
728 end; |
733 end; |
729 |
734 |
730 procedure chZoomOut(var s: shortstring); |
735 procedure chZoomOut(var s: shortstring); |
731 begin |
736 begin |
732 if ZoomValue > 1.0 then ZoomValue:= ZoomValue - 0.25; |
737 {$IFDEF IPHONEOS} |
|
738 if ZoomValue > 0.5 then |
|
739 {$ELSE} |
|
740 if ZoomValue > 1.0 then |
|
741 {$ENDIF} |
|
742 ZoomValue:= ZoomValue - 0.25; |
733 end; |
743 end; |
734 |
744 |
735 procedure chZoomReset(var s: shortstring); |
745 procedure chZoomReset(var s: shortstring); |
736 begin |
746 begin |
737 ZoomValue:= 2.0 |
747 ZoomValue:= 2.0 |