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

tvplanit: Fix crash in WeekView caused by destruction of inplace editor.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4705 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-10 01:39:39 +00:00
parent d9de3d571d
commit 43948ba297
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/tvplanit/source/vpweekview.pas
View File

@ -483,6 +483,7 @@ end;
destructor TVpWeekView.Destroy;
begin
FreeAndNil(wvInplaceEditor);
FDayHeadAttributes.Free;
FAllDayEventAttr.Free;
FHeadAttr.Free;
@ -1822,13 +1823,16 @@ begin
if AllowIt then begin
{ create and spawn the in-place editor }
if wvInplaceEditor = nil then begin
wvInPlaceEditor := TVpWvInPlaceEdit.Create(Self);
wvInPlaceEditor.Parent := self;
wvInPlaceEditor.OnExit := EndEdit;
end;
wvInPlaceEditor.SetBounds(wvActiveEventRec.Left + TextMargin,
wvActiveEventRec.Top,
wvActiveEventRec.Right - (TextMargin*2),
wvActiveEventRec.Bottom- (TextMargin*2));
wvInplaceEditor.Show;
wvInPlaceEditor.Text := ActiveEvent.Description;
Invalidate;
wvInPlaceEditor.SetFocus;
@ -1932,7 +1936,7 @@ end;
procedure TVpWeekView.EndEdit(Sender: TObject);
begin
if wvInPlaceEditor <> nil then begin
if (wvInPlaceEditor <> nil) and (ActiveEvent <> nil) then begin
if wvInPlaceEditor.Text <> ActiveEvent.Description then begin
ActiveEvent.Description := wvInPlaceEditor.Text;
ActiveEvent.Changed := true;
@ -1940,7 +1944,7 @@ begin
FAfterEdit(self, ActiveEvent);
DataStore.PostEvents;
end;
FreeAndNil(wvInPlaceEditor);
wvInplaceEditor.Hide;
Invalidate;
// SetFocus;
end;