equal
deleted
inserted
replaced
813 end; |
813 end; |
814 |
814 |
815 procedure chZoomOut(var s: shortstring); |
815 procedure chZoomOut(var s: shortstring); |
816 begin |
816 begin |
817 s:= s; // avoid compiler hint |
817 s:= s; // avoid compiler hint |
|
818 {$IFDEF IPHONEOS} |
|
819 if ZoomValue > 0.5 then |
|
820 {$ELSE} |
818 if ZoomValue > 1.0 then |
821 if ZoomValue > 1.0 then |
|
822 {$ENDIF} |
819 ZoomValue:= ZoomValue - 0.20; |
823 ZoomValue:= ZoomValue - 0.20; |
820 end; |
824 end; |
821 |
825 |
822 procedure chZoomReset(var s: shortstring); |
826 procedure chZoomReset(var s: shortstring); |
823 begin |
827 begin |