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

jvcllaz: Fix compilation with Laz 1.8.4/FPC3.0.4

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8252 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-04-15 22:56:31 +00:00
parent 3a13c399a1
commit 509f33e4d7
5 changed files with 20 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/jvcllaz/run/JvPageComps/jvpagelist.pas
View File

@ -31,7 +31,8 @@ unit JvPageList;
interface
uses
SysUtils, Classes, Graphics, Controls, Types, LMessages, LCLIntf, LCLType,
LMessages, LCLIntf, LCLType, LCLVersion,
SysUtils, Classes, Graphics, Controls, Types,
JvComponent, JvThemes;
type
@ -214,7 +215,9 @@ type
property OnMouseEnter;
property OnMouseLeave;
property OnParentColorChange;
{$IF LCL_FullVersion > 1080400}
property ParentBackground default False;
{$ENDIF}
end;
TJvPageList = class(TJvCustomPageList)
@ -271,7 +274,9 @@ type
property OnMouseWheelUp;
property OnResize;
property OnStartDrag;
{$IF LCL_FullVersion > 1080400}
property ParentBackground default False;
{$ENDIF}
end;
implementation

8
components/jvcllaz/run/JvPageComps/jvtabbar.pas
View File

@ -1186,13 +1186,13 @@ begin
if newHint <> inherited Hint then
begin
// Without the next instruction the currently shown hint will not be replaced.
// Without the next instruction the currently shown hint will not be
// replaced when moving the mouse from tab to tab.
Application.CancelHint;
// Move the new hint text to the control, but do not overwrite the
// own hint of the TabBar.
// Move the new hint text to the control, but keep the TabBar's own hint.
inc(FHintLocked);
inherited Hint := newHint;
Hint := newHint;
dec(FHintLocked);
// Display the new hint