equal
deleted
inserted
replaced
317 var i, t: LongInt; |
317 var i, t: LongInt; |
318 r: TSDL_Rect; |
318 r: TSDL_Rect; |
319 tdx, tdy: Double; |
319 tdx, tdy: Double; |
320 grp: TCapGroup; |
320 grp: TCapGroup; |
321 s: string[15]; |
321 s: string[15]; |
|
322 {$IFDEF IPHONEOS} |
322 x,y: LongInt; |
323 x,y: LongInt; |
|
324 {$ENDIF} |
323 offset: LongInt; |
325 offset: LongInt; |
324 begin |
326 begin |
325 if ZoomValue < zoom then |
327 if ZoomValue < zoom then |
326 begin |
328 begin |
327 zoom:= zoom - 0.002 * Lag; |
329 zoom:= zoom - 0.002 * Lag; |