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:
parent
842813dcbb
commit
7fc97524e2
|
@ -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;
|
||||||
|
|
|
@ -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 := '/';
|
||||||
|
|
Loading…
Reference in New Issue
Block a user