paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Fived cursor when using the panning window

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@183 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum 2007-06-18 19:51:36 +00:00
parent 3887d4ba32
commit 2b755d51cf
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -10624,6 +10624,12 @@ begin
if FStates <> [] then
begin
ReleaseCapture;
//lcl
if hsTracking in FStates then
begin
if not InHeader(SmallPointToPoint(TLMLButtonUp(Message).Pos)) then
TreeView.Cursor := crDefault;
end;
if hsDragging in FStates then
begin
// successfull dragging moves columns
@ -17281,7 +17287,7 @@ begin
end;
// Now load the cursor and apply it.
Cursor := NewCursor;
LCLIntf.SetCursor(Screen.Cursors[NewCursor]);
end;
//----------------------------------------------------------------------------------------------------------------------
@ -23119,6 +23125,7 @@ begin
// Setup the panscroll timer and capture all mouse input.
SetFocus;
SetCapture(Handle);
AdjustPanningCursor(Position.X, Position.Y);
SetTimer(Handle, ScrollTimer, 20, nil);
end;