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

IDE: Fix a crash in Path Dialog editor. Issue #27107, patch from Malcolm Poole.

Browse Source 
git-svn-id: trunk@47031 -
This commit is contained in:
juha 2014-11-29 20:33:46 +00:00
parent e6de17e11f
commit 946396bb72
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/patheditordlg.pas
View File

@ -550,9 +550,9 @@ var
InValidPathsExist: Boolean; InValidPathsExist: Boolean;
begin begin
// Replace / add / delete / Delete Invalid Paths // Replace / add / delete / Delete Invalid Paths
ReplaceButton.Enabled:=(DirectoryEdit.Text<>'') and (DirectoryEdit.Text<>FEffectiveBaseDirectory) AddButton.Enabled:=(DirectoryEdit.Text<>'') and (DirectoryEdit.Text<>FEffectiveBaseDirectory)
and (PathListBox.Items.IndexOf(BaseRelative(DirectoryEdit.Text))=-1); and (PathListBox.Items.IndexOf(BaseRelative(DirectoryEdit.Text))=-1);
AddButton.Enabled:=ReplaceButton.Enabled; ReplaceButton.Enabled:=AddButton.Enabled and (PathListBox.ItemIndex>-1) ;
DeleteButton.Enabled:=PathListBox.SelCount=1; // or ItemIndex>-1; ? DeleteButton.Enabled:=PathListBox.SelCount=1; // or ItemIndex>-1; ?
AddTemplateButton.Enabled:=(TemplatesListBox.SelCount>1) or ((TemplatesListBox.ItemIndex>-1) AddTemplateButton.Enabled:=(TemplatesListBox.SelCount>1) or ((TemplatesListBox.ItemIndex>-1)
and (PathListBox.Items.IndexOf(TemplatesListBox.Items[TemplatesListBox.ItemIndex])=-1)); and (PathListBox.Items.IndexOf(TemplatesListBox.Items[TemplatesListBox.ItemIndex])=-1));