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

jvcllaz: Fix compilation of JvTabBar_NotebookPages demo with Laz 2.0.8 (or earlier). Remove version check in JvNotebookPageList.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7399 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-24 18:08:41 +00:00
parent cbf60e2a8b
commit ce8d2e3dba
4 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/jvcllaz/run/JvPageComps/jvnotebookpagelist.pas
View File

@ -21,7 +21,7 @@ unit JvNotebookPageList;
interface
uses
Classes, SysUtils, ExtCtrls, LCLVersion,
Classes, SysUtils, ExtCtrls,
JvPageList;
type
@ -100,13 +100,11 @@ end;
procedure TJvNotebookPageList.MovePage(CurIndex, NewIndex: Integer);
begin
{$IF LCL_FullVersion >= 2010000}
Pages.Move(CurIndex, NewIndex); // Fix for issue #36956
{$ELSE}
Pages.Exchange(CurIndex, NewIndex);
// Note: This code is not working (issue #36956), it exchanges the captions,
// not the pages. Required changes in TNotebook are available only in Laz 2.1+
{$IFEND}
Pages.Move(CurIndex, NewIndex);
// Note: This code is not working for Laz < 2.1 (issue #36956),
// it exchanges the captions only (not the pages) when PageListTabLink is false
// or crashes when PageListTabLink is true.
// Required changes in TNotebook are available only in Laz 2.1+
end;
procedure TJvNotebookPagelist.PageCaptionChanged(AIndex: Integer;