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

Fix for lightbar attriute input color after TIMER command

This commit is contained in:
mysticbbs 2012-07-24 01:10:05 -04:00
parent 6c5b1a22f5
commit 82a8f5f185
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mystic/bbs_menus.pas
View File

@ -20,7 +20,6 @@ Type
ExtKeys : String; ExtKeys : String;
UseHotKeys : Boolean; UseHotKeys : Boolean;
ReDraw : Boolean; ReDraw : Boolean;
NextReDraw : Boolean;
SetAction : Boolean; SetAction : Boolean;
UseLongKey : Boolean; UseLongKey : Boolean;
UseTimer : Boolean; UseTimer : Boolean;
@ -69,7 +68,6 @@ Begin
Owner := O; Owner := O;
Data := TMenuData.Create; Data := TMenuData.Create;
Redraw := True; Redraw := True;
NextRedraw := True;
End; End;
Destructor TMenuEngine.Destroy; Destructor TMenuEngine.Destroy;
@ -633,9 +631,10 @@ Var
Else Else
Offset := Length(TempStr); Offset := Length(TempStr);
TBBSCore(Owner).io.BufFlush;
TBBSCore(Owner).io.BufAddStr(#27 + '[s'); TBBSCore(Owner).io.BufAddStr(#27 + '[s');
TBBSCore(Owner).io.AnsiGotoXY(PromptX + Offset, PromptY); TBBSCore(Owner).io.AnsiGotoXY(PromptX + Offset, PromptY);
TBBSCore(Owner).io.Attr2Ansi(PromptA); TBBSCore(Owner).io.AnsiColor(PromptA);
If Ch = #08 Then If Ch = #08 Then
Str := Str + #8#32#8 Str := Str + #8#32#8
@ -650,7 +649,7 @@ Var
End; End;
TBBSCore(Owner).io.BufAddStr(Str); TBBSCore(Owner).io.BufAddStr(Str);
TBBSCore(Owner).io.Attr2Ansi(SavedAttr); TBBSCore(Owner).io.AnsiColor(SavedAttr);
TBBSCore(Owner).io.BufAddStr(#27 + '[u'); TBBSCore(Owner).io.BufAddStr(#27 + '[u');
TBBSCore(Owner).io.BufFlush; TBBSCore(Owner).io.BufFlush;
End; End;
@ -684,11 +683,11 @@ Begin
If Data.Info.Footer <> '' Then If Data.Info.Footer <> '' Then
TBBSCore(Owner).io.OutFull(Data.Info.Footer); TBBSCore(Owner).io.OutFull(Data.Info.Footer);
TBBSCore(Owner).io.BufFlush;
PromptX := Screen.CursorX; //tbbscore PromptX := Screen.CursorX; //tbbscore
PromptY := Screen.CursorY; //tbbscore PromptY := Screen.CursorY; //tbbscore
PromptA := Screen.TextAttr; //tbbscore PromptA := Screen.TextAttr; //tbbscore
TBBSCore(Owner).io.BufFlush;
End; End;
For Count := 1 to Data.NumItems Do For Count := 1 to Data.NumItems Do
@ -948,8 +947,7 @@ Begin
ExtKeys := ''; ExtKeys := '';
UseTimer := False; UseTimer := False;
ReDraw := NextReDraw; ReDraw := True;
NextReDraw := True;
UseLongKey := False; UseLongKey := False;
TimerCount := 0; TimerCount := 0;