Commit fd8502d

Nick Faro committed on
Put cursor on last row of paste (for kabcorp)
commit fd8502d6483991e968ab5faecbc2c3734634d8bd parent 3b48f12
3 changed files +7−6
ModifiedhUGEDriver +1−1
@@ -1 +1 @@
1 Subproject commit d0de67619b80fbca580f585d000006caefe7f2c0 1 Subproject commit 224f830fcbb1b57d820d6228af68affedc305a88
ModifiedhUGETracker.lpi +1−0
@@ -50,6 +50,7 @@
50 <Linking> 50 <Linking>
51 <Debugging> 51 <Debugging>
52 <GenerateDebugInfo Value="False"/> 52 <GenerateDebugInfo Value="False"/>
53 <DebugInfoType Value="dsDwarf2Set"/>
53 <UseLineInfoUnit Value="False"/> 54 <UseLineInfoUnit Value="False"/>
54 <StripSymbols Value="True"/> 55 <StripSymbols Value="True"/>
55 </Debugging> 56 </Debugging>
Modifiedtrackergrid.pas +5−5
@@ -635,11 +635,11 @@ begin
635 OverlayCell(Patterns[Where.X + X]^[Where.Y + Y], Paste[Y, X]); 635 OverlayCell(Patterns[Where.X + X]^[Where.Y + Y], Paste[Y, X]);
636 end; 636 end;
637 end; 637 end;
638 Cursor := Where; 638 Other := Where;
639 Other.X := Cursor.X + X; 639 Cursor.X := Other.X + X;
640 Other.Y := Cursor.Y + Y; 640 Cursor.Y := Other.Y + Y;
641 Cursor.SelectedPart := Low(TCellPart); 641 Other.SelectedPart := Low(TCellPart);
642 Other.SelectedPart := High(TCellPart); 642 Cursor.SelectedPart := High(TCellPart);
643 except 643 except
644 on E: Exception do 644 on E: Exception do
645 WriteLn(StdErr, '[DEBUG] Clipboard did not contain valid note data!'); 645 WriteLn(StdErr, '[DEBUG] Clipboard did not contain valid note data!');