Compliles for linux again

This commit is contained in:
mysticbbs 2012-06-30 21:22:09 -04:00
parent 3e5b558071
commit 53f119631c
3 changed files with 6 additions and 2 deletions

View File

@ -344,7 +344,7 @@ Begin
Read (ThemeFile, Theme);
{$IFDEF FS_SENSITIVE}
If Lang.FileName = Str Then Begin
If Theme.FileName = Str Then Begin
{$ELSE}
If strUpper(Theme.FileName) = strUpper(Str) Then Begin
{$ENDIF}

View File

@ -385,7 +385,7 @@ Procedure TBBSUser.DetectGraphics;
Var
Loop : Byte;
Begin
If Session.Lang.Flags AND ThmAllowANSI = 0 Then Begin
If Session.Theme.Flags AND ThmAllowANSI = 0 Then Begin
Session.io.Graphics := 0;
Exit;
End;

View File

@ -112,6 +112,8 @@ Var
bRead : LongInt;
bWrite : LongInt;
Begin
Client.FTelnetServer := True;
Proc := TProcess.Create(Nil);
Num := ND.GetFreeNode;
@ -154,6 +156,8 @@ Begin
Proc.Free;
FileMode := 66;
FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat');
NI.Busy := False;