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
WriteLn ('[-] Updating user database...');
FileMode := 66;
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(' eliminating any protential access issues.');
@ -869,6 +871,7 @@ Procedure ConvertThemes;
Result.Format := 0;
Result.StartY := 1;
Result.StartX := 79;
Result.Active := True;
End;
Var
@ -901,6 +904,7 @@ Begin
TempBar.Format := 0;
TempBar.StartY := 1;
TempBar.StartX := 79;
TempBar.Active := True;
Theme.FileName := OldLang.FileName;
Theme.Desc := OldLang.Desc;