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

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