Skip to content

Commit 4adfbf1

Browse files
Coding Style: fixed capitalization of "HSplitterHit" function and fields of TPoint
1 parent fe2b819 commit 4adfbf1

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

Source/VirtualTrees.pas

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -12613,7 +12613,7 @@ function TVTHeader.HandleMessage(var Message: TMessage): Boolean;
1261312613

1261412614
//--------------- local function --------------------------------------------
1261512615

12616-
function HSPlitterHit: Boolean;
12616+
function HSplitterHit: Boolean;
1261712617

1261812618
var
1261912619
NextCol: TColumnIndex;
@@ -12941,8 +12941,8 @@ function TVTHeader.HandleMessage(var Message: TMessage): Boolean;
1294112941
if hoShowHint in FOptions then
1294212942
begin
1294312943
// client coordinates!
12944-
XCursor := P.x;
12945-
YCursor := P.y + Integer(FHeight);
12944+
XCursor := P.X;
12945+
YCursor := P.Y + Integer(FHeight);
1294612946
Application.HintMouseMessage(Treeview, Message);
1294712947
end;
1294812948
end;

0 commit comments

Comments
 (0)