paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 22:19:12 +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 uses
// FCL + LCL // FCL + LCL
Types, Classes, Math, SysUtils, contnrs, variants, TypInfo, Types, Classes, Math, SysUtils, variants, TypInfo,
LCLProc, LCLType, LResources, LCLIntf, LMessages, InterfaceBase, LCLProc, LCLType, LResources, LCLIntf, LMessages, InterfaceBase,
Forms, Controls, GraphType, Graphics, Dialogs, ExtCtrls, Menus, Forms, Controls, GraphType, Graphics, Dialogs, ExtCtrls, Menus,
ClipBrd, ClipBrd,

7
designer/sizecompsdlg.pp
View File

@ -53,7 +53,7 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
end; end;
function ShowSizeComponentsDialog(var HorizSizingID, FixedWidth, function ShowSizeComponentsDialog(out HorizSizingID, FixedWidth,
VertSizingID, FixedHeight: integer): TModalResult; VertSizingID, FixedHeight: integer): TModalResult;
implementation implementation
@ -63,8 +63,8 @@ implementation
uses uses
LazarusIDEStrConsts; LazarusIDEStrConsts;
function ShowSizeComponentsDialog(var HorizSizingID, FixedWidth, function ShowSizeComponentsDialog(out HorizSizingID, FixedWidth, VertSizingID,
VertSizingID, FixedHeight: integer): TModalResult; FixedHeight: integer): TModalResult;
var var
SizeComponentsDialog: TSizeComponentsDialog; SizeComponentsDialog: TSizeComponentsDialog;
begin begin
@ -76,6 +76,7 @@ begin
FixedWidth := StrToIntDef(WidthEdit.Text,0); FixedWidth := StrToIntDef(WidthEdit.Text,0);
VertSizingID := HeightRadioGroup.ItemIndex; VertSizingID := HeightRadioGroup.ItemIndex;
FixedHeight := StrToIntDef(HeightEdit.Text,0); FixedHeight := StrToIntDef(HeightEdit.Text,0);
Free;
end; end;
end; end;