mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-07 11:49:23 +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