From 8f4d84fdbde6cb9c6885ec91421d326ae1685243 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 10 Mar 2015 15:00:35 +0000 Subject: [PATCH] IDE: fixed freeing TSizeComponentsDialog git-svn-id: trunk@48221 - --- designer/designer.pp | 2 +- designer/sizecompsdlg.pp | 7 ++++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/designer/designer.pp b/designer/designer.pp index 606def4e08..277edf01b0 100644 --- a/designer/designer.pp +++ b/designer/designer.pp @@ -38,7 +38,7 @@ interface uses // FCL + LCL - Types, Classes, Math, SysUtils, contnrs, variants, TypInfo, + Types, Classes, Math, SysUtils, variants, TypInfo, LCLProc, LCLType, LResources, LCLIntf, LMessages, InterfaceBase, Forms, Controls, GraphType, Graphics, Dialogs, ExtCtrls, Menus, ClipBrd, diff --git a/designer/sizecompsdlg.pp b/designer/sizecompsdlg.pp index 7ecaf6a1a8..259755fb9e 100644 --- a/designer/sizecompsdlg.pp +++ b/designer/sizecompsdlg.pp @@ -53,7 +53,7 @@ type constructor Create(AOwner: TComponent); override; end; -function ShowSizeComponentsDialog(var HorizSizingID, FixedWidth, +function ShowSizeComponentsDialog(out HorizSizingID, FixedWidth, VertSizingID, FixedHeight: integer): TModalResult; implementation @@ -63,8 +63,8 @@ implementation uses LazarusIDEStrConsts; -function ShowSizeComponentsDialog(var HorizSizingID, FixedWidth, - VertSizingID, FixedHeight: integer): TModalResult; +function ShowSizeComponentsDialog(out HorizSizingID, FixedWidth, VertSizingID, + FixedHeight: integer): TModalResult; var SizeComponentsDialog: TSizeComponentsDialog; begin @@ -76,6 +76,7 @@ begin FixedWidth := StrToIntDef(WidthEdit.Text,0); VertSizingID := HeightRadioGroup.ItemIndex; FixedHeight := StrToIntDef(HeightEdit.Text,0); + Free; end; end;