Pārlūkot izejas kodu

* write location of configuration files

git-svn-id: trunk@8855 -
florian 18 gadi atpakaļ
vecāks
revīzija
c384171709
1 mainītis faili ar 2 papildinājumiem un 0 dzēšanām
  1. 2 0
      ide/fp.pas

+ 2 - 0
ide/fp.pas

@@ -368,6 +368,8 @@ BEGIN
   StreamError:=@MyStreamError;
   StreamError:=@MyStreamError;
 
 
   ShowReadme:=ShowReadme or (LocateFile(INIFileName)='');
   ShowReadme:=ShowReadme or (LocateFile(INIFileName)='');
+  if LocateFile(INIFileName)<>'' then
+    writeln(bullet+' Using configuration files from: ',DirOf(LocateFile(INIFileName)));
 
 
 {$ifdef VESA}
 {$ifdef VESA}
   InitVESAScreenModes;
   InitVESAScreenModes;