Changeset 40 for trunk/Forms/UFormMain.pas
- Timestamp:
- Oct 15, 2018, 5:17:15 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r38 r40 245 245 if Assigned(Core.Project) then 246 246 with Core.Project do begin 247 if Image tool = itMoveView then begin247 if ImageTool = itMoveView then begin 248 248 View.SrcRect := Bounds(Trunc(StartViewPoint.X + (StartMousePoint.X - X) / View.Zoom), 249 249 Trunc(StartViewPoint.Y + (StartMousePoint.Y - Y) / View.Zoom),
Note:
See TracChangeset
for help on using the changeset viewer.