paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 09:18:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed deleting lookup form when form is deleted

Browse Source 
git-svn-id: trunk@3685 -
This commit is contained in:
mattias 2002-12-03 17:40:37 +00:00
parent 022d633371
commit 622409a368
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/customformeditor.pp
View File

@ -670,6 +670,8 @@ Begin
if i>AForm.ComponentCount-1 then if i>AForm.ComponentCount-1 then
i:=AForm.ComponentCount-1; i:=AForm.ComponentCount-1;
end; end;
if PropertyEditorHook.LookupRoot=AForm then
PropertyEditorHook.LookupRoot:=nil;
if not (AForm is TForm) then if not (AForm is TForm) then
writeln('WARNING: TCustomFormEditor.DeleteControl ',AForm.ClassName); writeln('WARNING: TCustomFormEditor.DeleteControl ',AForm.ClassName);
JITFormList.DestroyJITForm(TForm(AForm)); JITFormList.DestroyJITForm(TForm(AForm));

4
lcl/include/customform.inc
View File

@ -804,7 +804,6 @@ Begin
ParentFont := False; ParentFont := False;
Ctl3D := True; Ctl3D := True;
// FBorderIcons := [biSystemMenu, biMinimize, biMaximize]; // FBorderIcons := [biSystemMenu, biMinimize, biMaximize];
FBorderStyle := bsSizeable;
FWindowState := wsNormal; FWindowState := wsNormal;
// FDefaultMonitor := dmActiveForm; // FDefaultMonitor := dmActiveForm;
FIcon := TIcon.Create; FIcon := TIcon.Create;
@ -1182,6 +1181,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.75 2002/12/03 17:40:37 mattias
fixed deleting lookup form when form is deleted
Revision 1.74 2002/11/30 11:24:05 mattias Revision 1.74 2002/11/30 11:24:05 mattias
removed unused TCustomForm.WMDestroy removed unused TCustomForm.WMDestroy