mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-11-04 04:39:41 +01:00 
			
		
		
		
	IDE: fixed DoGetUnitRegisterInfo for virtual files
git-svn-id: trunk@37165 -
This commit is contained in:
		
							parent
							
								
									92b4af045c
								
							
						
					
					
						commit
						b16adcf533
					
				@ -1355,7 +1355,7 @@ var
 | 
			
		||||
  CodeBuffer: TCodeBuffer;
 | 
			
		||||
begin
 | 
			
		||||
  Result:=mrCancel;
 | 
			
		||||
  ExpFilename:=TrimAndExpandFilename(AFilename);
 | 
			
		||||
  ExpFilename:=TrimFilename(AFilename);
 | 
			
		||||
  // create default values
 | 
			
		||||
  TheUnitName:='';
 | 
			
		||||
  HasRegisterProc:=false;
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user