paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 13:20:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: started last by check, on windows do compare case-insensitive.

Browse Source 
git-svn-id: trunk@42659 -
This commit is contained in:
martin 2013-09-07 09:10:47 +00:00
parent 41750fddb3
commit 5512ec4b90
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/main.pp
View File

@ -1224,7 +1224,7 @@ procedure TMainIDE.LoadGlobalOptions;
end;
var
EnvOptsCfgExisted: boolean;
s, s2: String;
s, s1, s2: String;
OldVer: String;
NowVer: String;
IsUpgrade: boolean;
@ -1242,7 +1242,12 @@ begin
s := ExtractFileName(ParamStrUTF8(0));
s2 := s;
s := AppendPathDelim(ProgramDirectory(False)) + s;
s1 := s; // keep case correct copy
s2 := AppendPathDelim(AppendPathDelim(GetPrimaryConfigPath) + 'bin') + s2;
{$IFDEF Windows}
s := LowerCase(s);
s2 := LowerCase(s2);
{$ENDIF}
if (EnvironmentOptions.LastCalledByLazarusFullPath = '') then begin
if (s <> s2) then begin // do not set to exe in pcp
EnvironmentOptions.LastCalledByLazarusFullPath := s;
@ -1257,7 +1262,7 @@ begin
MsgResult := IDEQuestionDialog(lisIncorrectConfigurationDirectoryFound,
Format(lisIDEConficurationFoundMayBelongToOtherLazarus,
[LineEnding, GetSecondConfDirWarning, GetPrimaryConfigPath,
EnvironmentOptions.LastCalledByLazarusFullPath, s]),
EnvironmentOptions.LastCalledByLazarusFullPath, s1]),
mtWarning, [mrOK, lisUpdateInfo, mrIgnore, mrAbort]);
case MsgResult of