equal
deleted
inserted
replaced
490 |
490 |
491 procedure chCapture(var s: shortstring); |
491 procedure chCapture(var s: shortstring); |
492 begin |
492 begin |
493 s:= s; // avoid compiler hint |
493 s:= s; // avoid compiler hint |
494 flagMakeCapture:= true; |
494 flagMakeCapture:= true; |
495 flagDumpLand:= LocalMessage and gmPrecise <> 0; |
495 flagDumpLand:= (LocalMessage and gmPrecise <> 0) and (cReducedQuality and rqBlurryLand = 0); |
496 end; |
496 end; |
497 |
497 |
498 procedure chRecord(var s: shortstring); |
498 procedure chRecord(var s: shortstring); |
499 begin |
499 begin |
500 s:= s; // avoid compiler hint |
500 s:= s; // avoid compiler hint |