the editor unindents now on pressing }. have fun!

- fixed bugs... lalala
- updated debug-list
- fixed comment-bug
- now final edition...
This commit is contained in:
Christian Hammacher 2005-07-23 21:25:25 +00:00
parent 842813dcbb
commit 7fc97524e2
2 changed files with 4 additions and 1 deletions

View File

@ -612,7 +612,7 @@ begin
except except
on E: Exception do begin on E: Exception do begin
if not Cancel then 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; Screen.Cursor := crDefault;
Application.Terminate; Application.Terminate;
exit; exit;

View File

@ -154,6 +154,9 @@ var ePath: String;
eOS: TOS; eOS: TOS;
begin begin
if jplWizard.ActivePage = jspFTP then begin if jplWizard.ActivePage = jspFTP then begin
if not IdFTP.Connected then
IdFTP.Connect;
{ FTP } { FTP }
eStr := TStringList.Create; eStr := TStringList.Create;
ePath := '/'; ePath := '/';