paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: use unit dialog: check for syntax errors

Browse Source 
git-svn-id: trunk@37025 -
This commit is contained in:
mattias 2012-04-25 19:17:37 +00:00
parent a5d49673a3
commit 0a86a3e9d4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/useunitdlg.pas
View File

@ -61,7 +61,7 @@ type
FImplUsedUnits: TStrings;
FProjUnits, FOtherUnits: TStringList;
procedure AddImplUsedUnits;
procedure GetProjUnits(SrcEdit: TSourceEditor);
function GetProjUnits(SrcEdit: TSourceEditor): Boolean;
procedure CreateOtherUnitsList;
function SelectedUnit: string;
function InterfaceSelected: Boolean;
@ -90,7 +90,7 @@ begin
SrcEdit:=SourceEditorManager.ActiveEditor;
UseUnitDlg:=TUseUnitDialog.Create(nil);
try
UseUnitDlg.GetProjUnits(SrcEdit);
if not UseUnitDlg.GetProjUnits(SrcEdit) then Exit(mrCancel);
UseUnitDlg.FillAvailableUnitsList;
// there is only main uses section in program/library/package
if SrcEdit.GetProjectFile=Project1.MainUnitInfo then
@ -276,11 +276,12 @@ begin
end;
end;
procedure TUseUnitDialog.GetProjUnits(SrcEdit: TSourceEditor);
function TUseUnitDialog.GetProjUnits(SrcEdit: TSourceEditor): Boolean;
var
ProjFile: TUnitInfo;
CurrentUnitName, s: String;
begin
Result := False;
FMainUsedUnits := nil;
FImplUsedUnits := nil;
if SrcEdit = nil then Exit;
@ -292,6 +293,7 @@ begin
LazarusIDE.DoJumpToCodeToolBossError;
Exit;
end;
Result := True;
TStringList(FMainUsedUnits).CaseSensitive := False;
TStringList(FImplUsedUnits).CaseSensitive := False;
if SrcEdit.GetProjectFile is TUnitInfo then