801 isSpeed:= false |
801 isSpeed:= false |
802 end; |
802 end; |
803 |
803 |
804 procedure chZoomIn(var s: shortstring); |
804 procedure chZoomIn(var s: shortstring); |
805 begin |
805 begin |
806 s:= s; // avoid compiler hint |
806 s:= s; // avoid compiler hint |
807 {$IFDEF IPHONEOS} |
807 {$IFDEF IPHONEOS} |
808 if ZoomValue < 3.5 then |
808 if ZoomValue < 4.0 then |
809 {$ELSE} |
809 {$ELSE} |
810 if ZoomValue < 3.0 then |
810 if ZoomValue < 3.0 then |
811 {$ENDIF} |
811 {$ENDIF} |
812 ZoomValue:= ZoomValue + 0.25; |
812 ZoomValue:= ZoomValue + 0.20; |
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} |
818 if ZoomValue > 1.0 then |
819 if ZoomValue > 0.5 then |
819 ZoomValue:= ZoomValue - 0.20; |
820 {$ELSE} |
|
821 if ZoomValue > 1.0 then |
|
822 {$ENDIF} |
|
823 ZoomValue:= ZoomValue - 0.25; |
|
824 end; |
820 end; |
825 |
821 |
826 procedure chZoomReset(var s: shortstring); |
822 procedure chZoomReset(var s: shortstring); |
827 begin |
823 begin |
828 s:= s; // avoid compiler hint |
824 s:= s; // avoid compiler hint |
829 ZoomValue:= 2.0 |
825 ZoomValue:= cDefaultZoomLevel; |
830 end; |
826 end; |
831 |
827 |
832 procedure chChat(var s: shortstring); |
828 procedure chChat(var s: shortstring); |
833 begin |
829 begin |
834 s:= s; // avoid compiler hint |
830 s:= s; // avoid compiler hint |