mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-31 05:52:38 +02:00
clean up debug info
git-svn-id: trunk@11766 -
This commit is contained in:
parent
fd3816388c
commit
4c9036617f
@ -32,22 +32,12 @@
|
||||
<PackageName Value="CodeTools"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="3">
|
||||
<Units Count="1">
|
||||
<Unit0>
|
||||
<Filename Value="fixh2pasdirectives.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="FixH2PASDirectives"/>
|
||||
</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>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
@ -1798,7 +1798,6 @@ end;
|
||||
|
||||
procedure TCustomPropertyLink.SetAsText(const NewText: string);
|
||||
begin
|
||||
if NewText='333' then DumpStack;
|
||||
try
|
||||
if (FTIElementName='') then
|
||||
FEditor.SetValue(AliasValues.AliasToValue(NewText))
|
||||
|
Loading…
Reference in New Issue
Block a user