Compliles for linux again
This commit is contained in:
parent
3e5b558071
commit
53f119631c
|
@ -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}
|
||||
|
|
|
@ -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;
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue