paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 12:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: designer: fixed freeing component editor

Browse Source 
git-svn-id: trunk@34204 -
This commit is contained in:
mattias 2011-12-15 12:53:07 +00:00
parent eb7483f416
commit 76550ee1db
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/customformeditor.pp
View File

@ -1925,6 +1925,7 @@ procedure TCustomFormEditor.OnDesignerMenuItemClick(Sender: TObject);
var
CompEditor: TBaseComponentEditor;
MenuItem: TMenuItem;
CompClassName: String;
begin
if (Sender=nil) or (not (Sender is TMenuItem)) then exit;
MenuItem:=TMenuItem(Sender);
@ -1932,14 +1933,24 @@ begin
CompEditor:=GetComponentEditor(TComponent(Sender));
if CompEditor=nil then exit;
CompClassName:=CompEditor.ClassName;
try
CompEditor.Edit;
except
on E: Exception do begin
DebugLn('TCustomFormEditor.OnDesignerMenuItemClick ERROR: ',E.Message);
MessageDlg(Format(lisErrorIn, [CompEditor.ClassName]),
Format(lisCFETheComponentEditorOfClassHasCreatedTheError, [CompEditor.
ClassName, #13, E.Message]),
DebugLn('TCustomFormEditor.OnDesignerMenuItemClick ERROR on CompEditor.Edit: ',E.Message);
MessageDlg(Format(lisErrorIn, [CompClassName]),
Format(lisCFETheComponentEditorOfClassHasCreatedTheError, [CompClassName, #13, E.Message]),
mtError,[mbOk],0);
end;
end;
try
CompEditor.Free;
except
on E: Exception do begin
DebugLn('TCustomFormEditor.OnDesignerMenuItemClick ERROR on CompEditor.Free: ',E.Message);
MessageDlg(Format(lisErrorIn, [CompClassName]),
Format(lisCFETheComponentEditorOfClassHasCreatedTheError, [CompClassName, #13, E.Message]),
mtError,[mbOk],0);
end;
end;