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

PromptInfo size increased

This commit is contained in:
mysticbbs 2012-08-24 14:22:38 -04:00
parent 16f1c85b6c
commit eb22054056
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mystic/bbs_io.pas
View File

@ -29,7 +29,7 @@ Type
Core : Pointer; Core : Pointer;
Term : TTermAnsi; Term : TTermAnsi;
ScreenInfo : Array[0..9] of Record X, Y, A : Byte; End; ScreenInfo : Array[0..9] of Record X, Y, A : Byte; End;
PromptInfo : Array[1..MaxPromptInfo] of String[89]; PromptInfo : Array[1..MaxPromptInfo] of String[160];
FmtString : Boolean; FmtString : Boolean;
FmtLen : Byte; FmtLen : Byte;
FmtType : Byte; FmtType : Byte;
@ -1813,7 +1813,7 @@ Begin
InXY := GetInput (Field, Max, Mode, Default); InXY := GetInput (Field, Max, Mode, Default);
End; End;
Function TBBSIO.DrawPercent (Bar: RecPercent; Part, Whole: SmallInt; Var Percent : SmallInt) : String; Function TBBSIO.DrawPercent (Bar: RecPercent; Part, Whole: SmallInt; Var Percent: SmallInt) : String;
Var Var
FillSize : Byte; FillSize : Byte;
Attr : Byte; Attr : Byte;
@ -1822,12 +1822,11 @@ Begin
Screen.TextAttr := 0; // kludge to force it to return full ansi codes Screen.TextAttr := 0; // kludge to force it to return full ansi codes
If (Part = 0) or (Whole = 0) or (Part > Whole) Then Begin If Part > Whole Then Part := Whole;
If (Part = 0) or (Whole = 0) Then Begin
FillSize := 0; FillSize := 0;
Percent := 0; Percent := 0;
// FillSize := Bar.BarLen;
// Percent := 100;
// this needs work...
End Else Begin End Else Begin
FillSize := Round(Part / Whole * Bar.BarLength); FillSize := Round(Part / Whole * Bar.BarLength);
Percent := Round(Part / Whole * 100); Percent := Round(Part / Whole * 100);