paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 19:00:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix default cursor in TCoolbar.

Browse Source 
git-svn-id: trunk@48559 -
This commit is contained in:
juha 2015-03-31 18:57:20 +00:00
parent 4c8baa979a
commit 205e10e855
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/coolbar.inc
View File

@ -702,7 +702,7 @@ begin
FLockCursor := True;
if ABand then begin
if not AGrabber then
Cursor := crDrag
Cursor := crDefault
else
if not Vertical then
Cursor := crHSplit
@ -894,6 +894,9 @@ begin
FVisiBands[FDraggedBandIndex-1].Width :=
Y-FDragInitPos-FVisiBands[FDraggedBandIndex-1].FLeft
end;
dbMove: begin
Cursor := crDrag;
end;
end;
end;
end;
@ -1008,6 +1011,7 @@ begin
Invalidate;
end;
end;
Cursor := crDefault;
if Assigned(FOnChange) then
FOnChange(Self);
end;