Touch of tidy up.
1) Also Should it beSCAR Code:Function MMToMS(MM: TPoint): TPoint;
var
X, Y: Integer;
Dis: TPoint;
begin
X := MM.X - 647; //1)
Y := MM.Y - 84;
Dis := Point(MM.X - MMCX, MM.Y - MMCY);
Result := Point(260 + X + Dis.X*10, Round(170 + Y + Dis.Y*6.5));
If Not IntInBox(Result.X, Result.Y, IntToBox(MSX1, MSY1, MSX2, MSY2))then
Result := Point(-1, -1);
end;
X := MM.X - MMCX
Y := MM.Y - MMCY




Reply With Quote











What's going on 






