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