From 7fc97524e254302e152cdeb9058bdb0e901bbdc2 Mon Sep 17 00:00:00 2001
From: Christian Hammacher <BasicMaster>
Date: Sat, 23 Jul 2005 21:25:25 +0000
Subject: [PATCH] the editor unindents now on pressing }. have fun!

- fixed bugs... lalala
- updated debug-list
- fixed comment-bug
- now final edition...
---
 installer/installer/UnitInstall.pas | 2 +-
 installer/installer/UnitfrmMain.pas | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/installer/installer/UnitInstall.pas b/installer/installer/UnitInstall.pas
index 312094f1..e86c6ebf 100755
--- a/installer/installer/UnitInstall.pas
+++ b/installer/installer/UnitInstall.pas
@@ -612,7 +612,7 @@ begin
       except
         on E: Exception do begin
           if not Cancel then
-            MessageBox(frmMain.Handle, PChar('An error occured while uploading "' + FileList[i] + '"!' + #13 + E.Message), PChar(frmMain.Caption), MB_ICONSTOP);
+            MessageBox(frmMain.Handle, PChar('An error occured while uploading "' + FileList[i] + '"!' + #13 + E.Message), PChar(Application.Title), MB_ICONSTOP);
           Screen.Cursor := crDefault;
           Application.Terminate;
           exit;
diff --git a/installer/installer/UnitfrmMain.pas b/installer/installer/UnitfrmMain.pas
index 4f375397..ffccda8d 100755
--- a/installer/installer/UnitfrmMain.pas
+++ b/installer/installer/UnitfrmMain.pas
@@ -154,6 +154,9 @@ var ePath: String;
     eOS: TOS;
 begin
   if jplWizard.ActivePage = jspFTP then begin
+    if not IdFTP.Connected then
+      IdFTP.Connect;
+    
     { FTP }
     eStr := TStringList.Create;
     ePath := '/';