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

clean up debug info

Browse Source 
git-svn-id: trunk@11766 -
This commit is contained in:
mattias 2007-08-09 21:20:27 +00:00
parent fd3816388c
commit 4c9036617f
2 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/examples/fixh2pasdirectives.lpi
View File

@ -32,22 +32,12 @@
<PackageName Value="CodeTools"/> <PackageName Value="CodeTools"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="1">
<Unit0> <Unit0>
<Filename Value="fixh2pasdirectives.lpr"/> <Filename Value="fixh2pasdirectives.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="FixH2PASDirectives"/> <UnitName Value="FixH2PASDirectives"/>
</Unit0> </Unit0>
<Unit1>
<Filename Value="scanexamples/simpleunit1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="SimpleUnit1"/>
</Unit1>
<Unit2>
<Filename Value="scanexamples/addeventexample.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="AddEventExample"/>
</Unit2>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

1
components/rtticontrols/rttictrls.pas
View File

@ -1798,7 +1798,6 @@ end;
procedure TCustomPropertyLink.SetAsText(const NewText: string); procedure TCustomPropertyLink.SetAsText(const NewText: string);
begin begin
if NewText='333' then DumpStack;
try try
if (FTIElementName='') then if (FTIElementName='') then
FEditor.SetValue(AliasValues.AliasToValue(NewText)) FEditor.SetValue(AliasValues.AliasToValue(NewText))