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