pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Trying to improve behaviour of arrow keys (not fully successful).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8529 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-08 23:06:29 +00:00
parent 66154224a4
commit 2c1fbdc6a6
2 changed files with 143 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpcontactgridpainter.pas
View File

@ -455,7 +455,8 @@ begin
CalcNextColumnAnchor(ABitmap, AWholeRect, Anchor);
if NewPageNeeded(Anchor) then
begin
// Return value FALSE signals that a new page must be created.
// Return value FALSE signals that a new page must be started in the
// next rendering iteration.
Result := false;
exit;
end;
@ -581,6 +582,7 @@ begin
newPage := false;
CR.Index := I;
CR.Contact := contact;
CR.ColIndex := Col - 1;
// Move rectangles in ContactGridRec to final position on rendering canvas.
// Note: The other rects already have been moved in DrawContactRows().
CR.WholeRect := MoveRect(WholeRect, Anchor);
@ -619,6 +621,7 @@ begin
TVpContactGridOpener(FContactGrid).FLastPrintLine := -2; // -2 = no more data available
end;
FContactGrid.VisibleContacts := contactCount - StartContact - FContactGrid.ContactsAfter;
FContactGrid.ColCount := Col;
if (oldCol1RecCount > 0) and (FContactGrid.Col1RecCount = 0) then
FContactGrid.Col1RecCount := oldCol1RecCount;