paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 11:20:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improvements to Use Unit dialog, issue #20743

Browse Source 
git-svn-id: trunk@34058 -
This commit is contained in:
juha 2011-12-09 00:43:47 +00:00
parent 09d427d902
commit 8d490675de
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/useunitdlg.pas
View File

@ -354,9 +354,9 @@ begin
with UnitsListBox do with UnitsListBox do
if ItemIndex >= 0 then if ItemIndex >= 0 then
begin begin
IdentItem := TIdentifierListItem(Items.Objects[ItemIndex]); if Items.Objects[ItemIndex] is TIdentifierListItem then
if Assigned(IdentItem) then
begin begin
IdentItem := TIdentifierListItem(Items.Objects[ItemIndex]);
Result := IdentItem.Identifier; Result := IdentItem.Identifier;
CodeBuf := CodeToolBoss.FindUnitSource(SourceEditorManager.ActiveEditor.CodeBuffer, Result, ''); CodeBuf := CodeToolBoss.FindUnitSource(SourceEditorManager.ActiveEditor.CodeBuffer, Result, '');
if Assigned(CodeBuf) then if Assigned(CodeBuf) then