eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ItemPath now asks to create

This commit is contained in:
mysticbbs 2012-07-30 18:17:03 -04:00
parent 817d220480
commit db854fc4df
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mystic/bbs_ansi_menuform.pas
View File

@ -590,7 +590,14 @@ Begin
If B^ < MaxSize Then Inc(B^) Else B^ := MinNum;
Changed := True;
End;
ItemPath : S^ := DirSlash(Input.GetStr(FieldX, FieldY, FieldSize, MaxSize, 1, S^));
ItemPath : Begin
S^ := DirSlash(Input.GetStr(FieldX, FieldY, FieldSize, MaxSize, 1, S^));
If Not DirExists(S^) Then
If ShowMsgBox(1, 'Create ' + S^ + '?') Then
If Not DirCreate(S^) Then
ShowMsgBox(0, 'Unable to create');
End;
ItemChar : Begin
TempStr := Input.GetStr(FieldX, FieldY, FieldSize, MaxSize, 1, C^);
Changed := TempStr[1] <> C^;