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

IDE: fixed freeing TSizeComponentsDialog

Browse Source 
git-svn-id: trunk@48221 -
This commit is contained in:
mattias 2015-03-10 15:00:35 +00:00
parent 7e3829dd80
commit 8f4d84fdbd
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designer.pp
View File

@ -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,

7
designer/sizecompsdlg.pp
View File

@ -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;