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

Percent bar active

This commit is contained in:
mysticbbs 2012-03-10 03:54:53 -05:00
parent 7b569deb06
commit ba5b776c0a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/109to110.pas
View File

@ -707,6 +707,8 @@ Var
Begin Begin
WriteLn ('[-] Updating user database...'); WriteLn ('[-] Updating user database...');
FileMode := 66;
If Not ReNameFile(Config.DataPath + 'users.dat', Config.DataPath + 'users.old') Then Begin If Not ReNameFile(Config.DataPath + 'users.dat', Config.DataPath + 'users.old') Then Begin
WriteLn('ERROR: Unable to copy user database. Restore a backup and try again after'); WriteLn('ERROR: Unable to copy user database. Restore a backup and try again after');
WriteLn(' eliminating any protential access issues.'); WriteLn(' eliminating any protential access issues.');
@ -869,6 +871,7 @@ Procedure ConvertThemes;
Result.Format := 0; Result.Format := 0;
Result.StartY := 1; Result.StartY := 1;
Result.StartX := 79; Result.StartX := 79;
Result.Active := True;
End; End;
Var Var
@ -901,6 +904,7 @@ Begin
TempBar.Format := 0; TempBar.Format := 0;
TempBar.StartY := 1; TempBar.StartY := 1;
TempBar.StartX := 79; TempBar.StartX := 79;
TempBar.Active := True;
Theme.FileName := OldLang.FileName; Theme.FileName := OldLang.FileName;
Theme.Desc := OldLang.Desc; Theme.Desc := OldLang.Desc;