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

IDE: Patch for UseProjUnit dialog from Anton Panferov

Browse Source 
git-svn-id: trunk@31690 -
This commit is contained in:
juha 2011-07-13 21:45:58 +00:00
parent eaebea04b6
commit 221d890035
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/useprojunitdlg.pas
View File

@ -21,7 +21,7 @@
Original version by Juha Manninen
Icons added by Marcelo B Paula
All available units added to the list by Anton
All available units added to the list by Anton Panferov
}
unit UseProjUnitDlg;
@ -249,7 +249,10 @@ end;
function TUseUnitDialog.SelectedUnit: string;
begin
Result:=UnitsListBox.Items[UnitsListBox.ItemIndex];
if UnitsListBox.ItemIndex >= 0 then
Result := UnitsListBox.Items[UnitsListBox.ItemIndex]
else
Result := '';
end;
function TUseUnitDialog.InterfaceSelected: Boolean;