From f359f312873b85c71944a3accdde585e65888a5d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 2 Jun 2013 21:03:48 +0000
Subject: [PATCH] startlazarus: fixed compilation

git-svn-id: trunk@41500 -
---
 ide/lazarusmanager.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/ide/lazarusmanager.pas b/ide/lazarusmanager.pas
index 7f6af2ef5b..41f3a0474b 100644
--- a/ide/lazarusmanager.pas
+++ b/ide/lazarusmanager.pas
@@ -161,14 +161,14 @@ begin
     begin
       if FileExistsUTF8(BackupFileName) then
         if not DeleteFileUTF8(BackupFileName) then begin
-          IDEMessageDialog(format('Can''t delete "%s"'+LineEnding+'%s',
+          MessageDlg (format('Can''t delete "%s"'+LineEnding+'%s',
             [BackupFileName, SysErrorMessageUTF8(GetLastOSError)]),
             mtError, [mbOK], 0);
           Result := mrAbort;
           exit;
         end;
       if not FileProcs.RenameFileUTF8(CurFilename, BackupFileName) then begin
-        IDEMessageDialog(format('Can''t rename "%s" to "%s"'+LineEnding+'%s',
+        MessageDlg (format('Can''t rename "%s" to "%s"'+LineEnding+'%s',
           [CurFilename, BackupFileName, SysErrorMessageUTF8(GetLastOSError)]),
           mtError, [mbOK], 0);
         Result := mrAbort;
@@ -177,7 +177,7 @@ begin
       InvalidateFileStateCache;
     end;
     if not FileProcs.RenameFileUTF8(NewFileName, CurFilename) then begin
-      IDEMessageDialog(format('Can''t rename "%s" to "%s"'+LineEnding+'%s',
+      MessageDlg (format('Can''t rename "%s" to "%s"'+LineEnding+'%s',
         [NewFileName, CurFilename, SysErrorMessageUTF8(GetLastOSError)]),
         mtError, [mbOK], 0);
       Result := mrAbort;
@@ -282,7 +282,7 @@ begin
       DefaultDir:=ReadAllLinks(DefaultDir,true);
   except
     on E: Exception do begin
-      IDEMessageDialog('Error',E.Message,mtError,[mbCancel],0);
+      MessageDlg ('Error',E.Message,mtError,[mbCancel],0);
       exit;
     end;
   end;
@@ -341,7 +341,7 @@ begin
       end else begin
         if FileExistsUTF8(CustomExe) then begin
           // only the custom exists => warn user
-          IDEMessageDialog('System default is missing',
+          MessageDlg ('System default is missing',
             'The system default lazarus executable "'+DefaultExe+'" is missing, but your custom'
             +'executable is still there:'+LineEnding
             +CustomExe+LineEnding
@@ -350,7 +350,7 @@ begin
           FLazarusPath:=CustomExe;
         end else begin
           // no exe exists
-          IDEMessageDialog('File not found','Can''t find the lazarus executable '+DefaultExe,
+          MessageDlg ('File not found','Can''t find the lazarus executable '+DefaultExe,
             mtError,[mbAbort],0);
           break;
         end;