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

LCL: Set right cursor in TCoolbar.MouseDown. Patch from Balázs Székely.

Browse Source 
git-svn-id: trunk@48610 -
This commit is contained in:
juha 2015-04-03 16:26:03 +00:00
parent ebcbe939e6
commit eb89d4043b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/coolbar.inc
View File

@ -843,6 +843,11 @@ var aBand: Integer;
aGrabber: Boolean;
begin
inherited MouseDown(Button, Shift, X, Y);
if Button = mbRight then
begin
Cursor := crDefault;
Exit;
end;
MouseToBandPos(X, Y, aBand, aGrabber);
FDraggedBandIndex := aBand;
if (aBand >= 0) and (length(FVisiBands) > 1) then begin //hit any Band