pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix disappearing cursor in contactgrid. Use FreeAndNill for inplace editor to avoid similar problems as in previous commit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4691 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-08 10:28:04 +00:00
parent 10668582ba
commit a574813335
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/tvplanit/source/vpcontactgrid.pas
View File

@ -152,6 +152,7 @@ type
cgPainting : Boolean; cgPainting : Boolean;
cgColCount : Integer; cgColCount : Integer;
cgVScrollDelta : Integer; cgVScrollDelta : Integer;
FOldCursor : TCursor;
{ property methods } { property methods }
function GetBarWidth: Integer; function GetBarWidth: Integer;
@ -1979,8 +1980,11 @@ begin
Break; Break;
end; end;
end; end;
if OverBar then if OverBar then begin
SetCursor(Screen.Cursors[crHSplit]); if Cursor <> crHSplit then FOldCursor := Cursor;
Cursor := crHSplit
end else
Cursor := FOldCursor;
end; end;
end; end;
{=====} {=====}
@ -2376,8 +2380,7 @@ begin
end; end;
end; end;
cgInPlaceEditor.Free; FreeAndNil(cgInPlaceEditor);
cgInPlaceEditor := nil;
if FActiveContact.Changed then begin if FActiveContact.Changed then begin
DataStore.PostContacts; DataStore.PostContacts;