リビジョン | 586ca210df1fe39a7581060c99a12fa1b76b899f (tree) |
---|---|
日時 | 2017-10-29 10:20:22 |
作者 | yamat0jp <yamat0jp@yaho...> |
コミッター | yamat0jp |
switch i, j
@@ -9,7 +9,7 @@ object Form1: TForm1 | ||
9 | 9 | FormFactor.Devices = [Desktop] |
10 | 10 | DesignerMasterStyle = 0 |
11 | 11 | object Image1: TImage |
12 | - Touch.InteractiveGestures = [Zoom, Pan, PressAndTap, LongTap] | |
12 | + Touch.InteractiveGestures = [Zoom, Pan, LongTap] | |
13 | 13 | OnGesture = Image1Gesture |
14 | 14 | OnTap = Image1Tap |
15 | 15 | MultiResBitmap = < |
@@ -66,14 +66,28 @@ begin | ||
66 | 66 | Exit; |
67 | 67 | end; |
68 | 68 | end; |
69 | - dot1.X := dot1.X - i; | |
70 | - dot2.X := dot2.X + i; | |
71 | - dot1.Y := dot1.Y - j; | |
72 | - dot2.Y := dot2.Y + j; | |
69 | + if dot1.X < dot2.X then | |
70 | + begin | |
71 | + dot1.X := dot1.X - i; | |
72 | + dot2.X := dot2.X + i; | |
73 | + end | |
74 | + else | |
75 | + begin | |
76 | + dot1.X := dot1.X + i; | |
77 | + dot2.X := dot2.X - i; | |
78 | + end; | |
79 | + if dot1.Y < dot2.Y then | |
80 | + begin | |
81 | + dot1.Y := dot1.Y - j; | |
82 | + dot2.Y := dot2.Y + j; | |
83 | + end | |
84 | + else | |
85 | + begin | |
86 | + dot1.Y := dot1.Y + i; | |
87 | + dot2.Y := dot2.Y - i; | |
88 | + end; | |
73 | 89 | Image1.Repaint; |
74 | 90 | end; |
75 | - igiRotate: | |
76 | - ang := EventInfo.Angle; | |
77 | 91 | igiPan: |
78 | 92 | begin |
79 | 93 | i := EventInfo.Location.X - pan.X; |