paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 10:33:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtti: fixed AV when closing example 3

Browse Source 
git-svn-id: trunk@11774 -
This commit is contained in:
vincents 2007-08-10 10:18:45 +00:00
parent ac47999c2d
commit 4cca6df0e3
2 changed files with 26 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/rtticontrols/examples/example3.pas
View File

@ -102,6 +102,11 @@ end;
procedure TForm1.Form1Destroy(Sender: TObject); procedure TForm1.Form1Destroy(Sender: TObject);
begin begin
// unlink properties
XTIEdit.Link.TIObject:=nil;
YTIEdit.Link.TIObject:=nil;
SizeTIEdit.Link.TIObject:=nil;
Ball1.Free; Ball1.Free;
end; end;

46
components/rtticontrols/examples/exampleproject3.lpi
View File

@ -1,41 +1,22 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <PathDelim Value="\"/>
<Version Value="5"/> <Version Value="5"/>
<General> <General>
<Flags> <Flags>
<SaveClosedFiles Value="False"/> <SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/> <SaveOnlyProjectUnits Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value=".\"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="exampleproject3"/> <Title Value="exampleproject3"/>
<ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<Units Count="2">
<Unit0>
<Filename Value="exampleproject3.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="ExampleProject3"/>
<UsageCount Value="23"/>
</Unit0>
<Unit1>
<CursorPos X="11" Y="111"/>
<EditorIndex Value="0"/>
<Filename Value="example3.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="example3.lrs"/>
<TopLine Value="101"/>
<UnitName Value="Example3"/>
<UsageCount Value="23"/>
</Unit1>
</Units>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@ -43,7 +24,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
@ -54,11 +35,26 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="exampleproject3.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="ExampleProject3"/>
</Unit0>
<Unit1>
<Filename Value="example3.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="example3.lrs"/>
<UnitName Value="Example3"/>
</Unit1>
</Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/> <SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
<Generate Value="Faster"/> <Generate Value="Faster"/>