paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 19:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Initial setup dlg, use CompareFilenames

Browse Source
This commit is contained in:
Martin 2025-04-08 09:53:30 +02:00
parent a5eeb2684c
commit abf1cfc7c4
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/frames/initialsetupdlgdebuggerframe.pas
View File

@ -146,7 +146,7 @@ begin
if not Dlg.Execute then
exit;
lFileName := CleanAndExpandFilename(Dlg.Filename);
lChanged := UpperCase(lExpandedName)<>UpperCase(lFileName);
lChanged := CompareFilenames(lExpandedName, lFileName) <> 0;
finally
Dlg.Free;
end;
@ -446,7 +446,7 @@ begin
s := GetVisibleDebuggerPath;
r := EnvironmentOptions.GetParsedValue(eopDebuggerFilename, s);
edDebuggerPathResolved.Text := r;
edDebuggerPathResolved.Visible := (r <> '') and (UpperCase(r) <> UpperCase(s));
edDebuggerPathResolved.Visible := (r <> '') and (CompareFilenames(r, s) <> 0);
end;
function TInitDebuggerFrame.GetDebuggerClassNote(out ANote: String

8
ide/initialsetupdlgs.pas
View File

@ -604,7 +604,7 @@ begin
if not Dlg.Execute then
exit;
lFileName := CleanAndExpandFilename(Dlg.Filename);
lChanged := UpperCase(lExpandedName)<>UpperCase(lFileName);
lChanged := CompareFilenames(lExpandedName, lFileName) <> 0;
finally
Dlg.Free;
end;
@ -688,7 +688,7 @@ begin
if not Dlg.Execute then
exit;
lFileName := CleanAndExpandFilename(Dlg.Filename);
lChanged := UpperCase(lExpandedName)<>UpperCase(lFileName);
lChanged := CompareFilenames(lExpandedName, lFileName) <> 0;
finally
Dlg.Free;
end;
@ -1007,7 +1007,7 @@ begin
DirDlg.Options := DirDlg.Options + [ofExtensionDifferent, ofPathMustExist];
if DirDlg.Execute then begin
lDirName := CleanAndExpandFilename(DirDlg.FileName);
if UpperCase(lCurDirName)<>UpperCase(lDirName) then
if CompareFilenames(lCurDirName, lDirName) <> 0 then
Result := lDirName;
end;
finally
@ -1666,7 +1666,7 @@ begin
if not Dlg.Execute then
exit;
lFileName:=CleanAndExpandFilename(Dlg.Filename);
lChanged := UpperCase(lExpandedName)<>UpperCase(lFileName);
lChanged := CompareFilenames(lExpandedName, lFileName) <> 0;
finally
Dlg.Free;
end;