paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 20:38:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples: fix memoryleak in ResExplorer

Browse Source 
git-svn-id: trunk@49559 -
This commit is contained in:
bart 2015-07-19 23:53:04 +00:00
parent 0e0621ae82
commit a931d80679
2 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/lazresexplorer/remainunit.lfm
View File

@ -9,8 +9,9 @@ object reMainForm: TreMainForm
ClientWidth = 768
Menu = MainMenu1
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '1.3'
LCLVersion = '1.5'
object TreeView1: TTreeView
Left = 0
Height = 506
@ -35,11 +36,11 @@ object reMainForm: TreMainForm
TabOrder = 1
object tabString: TTabSheet
Caption = 'String'
ClientHeight = 480
ClientHeight = 478
ClientWidth = 467
object StringGrid1: TStringGrid
Left = 0
Height = 480
Height = 478
Top = 0
Width = 467
Align = alClient
@ -128,14 +129,15 @@ object reMainForm: TreMainForm
end
object ToolButton3: TToolButton
Left = 176
Height = 22
Top = 2
Width = 10
Width = 8
AutoSize = True
Caption = 'ToolButton3'
Style = tbsSeparator
end
object ToolButton4: TToolButton
Left = 186
Left = 184
Top = 2
Action = hlpAbout
AutoSize = True

8
examples/lazresexplorer/remainunit.pas
View File

@ -44,6 +44,7 @@ type
procedure fileExitExecute(Sender: TObject);
procedure fileOpenExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure HeaderControl1SectionResize(HeaderControl: TCustomHeaderControl;
Section: THeaderSection);
procedure hlpAboutExecute(Sender: TObject);
@ -103,6 +104,11 @@ begin
Splitter1ChangeBounds(nil);
end;
procedure TreMainForm.FormDestroy(Sender: TObject);
begin
if Assigned(Res) then Res.Free;
end;
procedure TreMainForm.HeaderControl1SectionResize(
HeaderControl: TCustomHeaderControl; Section: THeaderSection);
begin
@ -200,7 +206,7 @@ begin
TreeView1.Items.Clear;
if Assigned(Res) then
Res.Free;
FreeAndNil(Res);
if not Assigned(Reader) then exit;