32f1581
Nick committed on
32f1581b8380545fa30c5575c1e7c7734762e216
parent 7220346
@@ -380,20 +380,8 @@ begin | |||
| 380 | VK_DOWN: begin |
380 | VK_DOWN: begin |
| 381 | Inc(Cursor.Y); |
381 | Inc(Cursor.Y); |
| 382 | end; |
382 | end; |
| 383 | VK_LEFT: begin |
383 | VK_LEFT: DecSelectionPos(Cursor); |
| 384 | if ssCtrl in Shift then |
384 | VK_RIGHT: IncSelectionPos(Cursor); |
| 385 | Dec(Cursor.X) |
|
|
| 386 | else if Cursor.SelectedPart > Low(TCellPart) then begin |
|
|
| 387 | Cursor.SelectedPart := Pred(Cursor.SelectedPart); |
|
|
| 388 | end; |
|
|
| 389 | end; |
|
|
| 390 | VK_RIGHT: begin |
|
|
| 391 | if ssCtrl in Shift then |
|
|
| 392 | Inc(Cursor.X) |
|
|
| 393 | else if Cursor.SelectedPart < High(TCellPart) then begin |
|
|
| 394 | Cursor.SelectedPart := Succ(Cursor.SelectedPart); |
|
|
| 395 | end; |
|
|
| 396 | end; |
|
|
| 397 | else begin |
385 | else begin |
| 398 | if (not (ssCtrl in Shift)) and (not (ssShift in Shift)) then |
386 | if (not (ssCtrl in Shift)) and (not (ssShift in Shift)) then |
| 399 | case Cursor.SelectedPart of |
387 | case Cursor.SelectedPart of |