mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-11-04 10:39:53 +01: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