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

Converter: show an error message if user tries to open a .dproj file. Inspired by issue #19793

Browse Source 
git-svn-id: trunk@31879 -
This commit is contained in:
juha 2011-08-05 17:40:37 +00:00
parent f9a84e9f2f
commit c56a916203
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
converter/convertdelphi.pas
View File

@ -768,6 +768,11 @@ var
// The initial unit name cache is done in a thread so that GUI shows at once. // The initial unit name cache is done in a thread so that GUI shows at once.
CacheUnitsThread: TCacheUnitsThread; CacheUnitsThread: TCacheUnitsThread;
begin begin
if CompareFileExt(fOrigPFilename,'.dproj',false)=0 then begin
ShowMessage('.dproj file is not supported yet. The file is used by Delphi 2007 and newer.'+
' Please select a .dpr file for projects or .dpk file for packages.');
Exit(mrCancel);
end;
IDEMessagesWindow.Clear; IDEMessagesWindow.Clear;
// Start scanning unit files one level above project path. The GUI will appear // Start scanning unit files one level above project path. The GUI will appear
// without delay but then we must wait for the thread before continuing. // without delay but then we must wait for the thread before continuing.