paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-13 16:29:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

ide fixed av in path editor dlg on replace on cocoa

Browse Source
This commit is contained in:
mattias 2024-10-11 10:37:10 +02:00
parent 15853ffffd
commit fea93f0749
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/patheditordlg.pas
View File

@ -26,7 +26,7 @@ uses
LCLType, Forms, Controls, Buttons, StdCtrls, Dialogs, Menus, Graphics, LCLType, Forms, Controls, Buttons, StdCtrls, Dialogs, Menus, Graphics,
ButtonPanel, Clipbrd, ButtonPanel, Clipbrd,
// LazUtils // LazUtils
FileUtil, LazFileUtils, LazStringUtils, LazFileCache, LazUTF8, FileUtil, LazFileUtils, LazStringUtils, LazFileCache, LazUTF8, LazLoggerBase,
// LazControls // LazControls
ShortPathEdit, ShortPathEdit,
// IdeIntf // IdeIntf
@ -265,10 +265,14 @@ begin
end; end;
procedure TPathEditorDialog.ReplaceButtonClick(Sender: TObject); procedure TPathEditorDialog.ReplaceButtonClick(Sender: TObject);
var
i: Integer;
begin begin
with PathListBox do begin with PathListBox do begin
Items[ItemIndex]:=BaseRelative(DirectoryEdit.Text); i:=ItemIndex;
Items.Objects[ItemIndex]:=PathMayExist(DirectoryEdit.Text); if i<0 then exit;
Items[i]:=BaseRelative(DirectoryEdit.Text);
Items.Objects[i]:=PathMayExist(DirectoryEdit.Text);
UpdateButtons; UpdateButtons;
end; end;
end; end;