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

tvplanit: Fix layout of ContactGrid in case of rotated print formats

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8530 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-09 13:59:56 +00:00
parent 2c1fbdc6a6
commit 60fac597bf
2 changed files with 43 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpcontactgrid.pas
View File

@ -27,7 +27,6 @@
{* ***** END LICENSE BLOCK ***** *}
{$I vp.inc}
{$DEFINE DEBUG_CONTACTGRID}
unit VpContactGrid;
@ -36,7 +35,6 @@ interface
uses
{$IFDEF LCL}
LMessages, LCLProc, LCLType, LCLIntf,
{$IFDEF DEBUG_CONTACTGRID}LazLogger,{$ENDIF}
{$ELSE}
Windows, Messages,
{$ENDIF}
@ -1996,10 +1994,6 @@ begin
else
nPos := FContactsBefore;
nTrackPos := nPos;
{$IFDEF DEBUG_CONTACTGRID}
DebugLn(['[TVpContactGrid.SetHScrollPos] VisibleContacts=', FVisibleContacts, ' ContactsBefore=', FContactsBefore]);
{$ENDIF}
end;
SetScrollInfo(Handle, SB_HORZ, scrollInfo, True);
end;