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

Converter: Load a unit to editor in a different way.

Browse Source 
git-svn-id: trunk@27330 -
This commit is contained in:
juha 2010-09-12 13:38:38 +00:00
parent 2581056c23
commit 55bb3e8ffe
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
converter/convertdelphi.pas
View File

@ -969,10 +969,9 @@ begin
Result:=ConvertFormFile;
Result:=CheckFailed(Result);
if Result<>mrOK then exit;
// Loading the form makes it appear in forms list. (Is there a better way?)
// fUnitInfo is set for projects only.
if Assigned(fUnitInfo) then
LazarusIDE.GetDesignerWithProjectFile(TUnitInfo(fUnitInfo), true);
// Load the unit and add it to project. fUnitInfo is set for projects only.
if Assigned(fUnitInfo) then //ofAddToRecent,
LazarusIDE.DoOpenEditorFile(fLazUnitFilename,0,[ofAddToProject,ofQuiet]);
// Close unit file after processing.
Result:=LazarusIDE.DoCloseEditorFile(fLazUnitFilename,[cfSaveFirst,cfQuiet]);
if Result<>mrOK then exit;