paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 09:17:53 +02: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,
ButtonPanel, Clipbrd,
// LazUtils
FileUtil, LazFileUtils, LazStringUtils, LazFileCache, LazUTF8,
FileUtil, LazFileUtils, LazStringUtils, LazFileCache, LazUTF8, LazLoggerBase,
// LazControls
ShortPathEdit,
// IdeIntf
@ -265,10 +265,14 @@ begin
end;
procedure TPathEditorDialog.ReplaceButtonClick(Sender: TObject);
var
i: Integer;
begin
with PathListBox do begin
Items[ItemIndex]:=BaseRelative(DirectoryEdit.Text);
Items.Objects[ItemIndex]:=PathMayExist(DirectoryEdit.Text);
i:=ItemIndex;
if i<0 then exit;
Items[i]:=BaseRelative(DirectoryEdit.Text);
Items.Objects[i]:=PathMayExist(DirectoryEdit.Text);
UpdateButtons;
end;
end;