New Theme editor (missing prompts)

mystic/109to110.pas

@@ -868,7 +868,6 @@ Procedure ConvertThemes;
     Result.HiAttr    := P.HiAttr;
     Result.Format    := 0;
     Result.StartY    := 1;
-    Result.EndY      := 20;
     Result.StartX    := 79;
   End;
 
@@ -901,7 +900,6 @@ Begin
     TempBar.HiAttr := 25;
     TempBar.Format := 0;
     TempBar.StartY := 1;
-    TempBar.EndY   := 20;
     TempBar.StartX := 79;
 
     Theme.FileName     := OldLang.FileName;

mystic/bbs_ansi_menuform.pas

@@ -6,7 +6,8 @@ Interface
 
 Uses
   m_Types,
-  bbs_ansi_MenuInput;
+  bbs_Ansi_MenuInput,
+  bbs_Common;
 
 Const
   FormMaxItems = 50;
@@ -31,7 +32,8 @@ Type
     ItemPass,
     ItemPipe,
     ItemCaps,
-    ItemBits
+    ItemBits,
+    ItemBar
   );
 
   FormItemPTR = ^FormItemRec;
@@ -56,6 +58,7 @@ Type
     L         : ^LongInt;
     C         : ^Char;
     F         : ^TMenuFormFlagsRec;
+    R         : ^RecPercent;
     Toggle    :  String[68];
   End;
 
@@ -65,6 +68,7 @@ Type
 
   TAnsiMenuForm = Class
   Private
+    Procedure EditPercentBar  (Var Bar: RecPercent);
     Function  GetColorAttr    (C: Byte) : Byte;
     Function  DrawAccessFlags (Var Flags: TMenuFormFlagsRec) : String;
     Procedure EditAccessFlags (Var Flags: TMenuFormFlagsRec);
@@ -121,6 +125,7 @@ Type
     Procedure   AddDate (HK: Char; D: String; X, Y, FX, FY, DS: Byte; P: Pointer; H: String);
     Procedure   AddCaps (HK: Char; D: String; X, Y, FX, FY, DS, FS, MX: Byte; P: Pointer; H: String);
     Procedure   AddBits (HK: Char; D: String; X, Y, FX, FY, DS: Byte; Flag: LongInt; P: Pointer; H: String);
+    Procedure   AddBar  (HK: Char; D: String; X, Y, FX, FY, DS: Byte; P: Pointer; H: String);
     Function    Execute : Char;
   End;
 
@@ -181,6 +186,40 @@ Begin
   Changed := False;
 End;
 
+Procedure TAnsiMenuForm.EditPercentBar (Var Bar: RecPercent);
+Var
+  Box  : TAnsiMenuBox;
+  Form : TAnsiMenuForm;
+Begin
+  Box  := TAnsiMenuBox.Create;
+  Form := TAnsiMenuForm.Create;
+
+  Box.Open (7, 5, 73, 12);
+
+  VerticalLine (23, 7, 10);
+  VerticalLine (61, 7, 10);
+
+  Form.AddTog  ('F', ' Bar Format'  , 11,  7, 25,  7, 12, 10, 0, 1, 'Horizontal Vertical', @Bar.Format, '');
+  Form.AddChar ('B', ' BG Character',  9,  8, 25,  8, 14, 32, 255, @Bar.LoChar, '');
+  Form.AddAttr ('G', ' BG Color',     13,  9, 25,  9, 10, @Bar.LoAttr, '');
+  Form.AddByte ('X', ' Start X',      14, 10, 25, 10,  9,  2, 1, 50, @Bar.StartX, '');
+  Form.AddByte ('A', ' Bar Length',   49,  7, 63,  7, 12,  2, 1, 50, @Bar.BarLength, '');
+  Form.AddChar ('C', ' FG Character', 47,  8, 63,  8, 14, 32, 255, @Bar.Hichar, '');
+  Form.AddAttr ('O', ' FG Color',     51,  9, 63,  9, 10, @Bar.HiAttr, '');
+  Form.AddByte ('Y', ' Start Y',      52, 10, 63, 10,  9,  2, 1, 50, @Bar.StartY, '');
+
+  Repeat
+    Case Form.Execute of
+      #27 : Break;
+    End;
+  Until False;
+
+  Box.Close;
+
+  Form.Free;
+  Box.Free;
+End;
+
 Function TAnsiMenuForm.DrawAccessFlags (Var Flags: TMenuFormFlagsRec) : String;
 Var
   Str : String;
@@ -322,6 +361,7 @@ Begin
       ItemLong    : L := P;
       ItemChar    : C := P;
       ItemFlags   : F := P;
+      ItemBar     : R := P;
     End;
   End;
 End;
@@ -455,6 +495,13 @@ Begin
   AddBasic (HK, D, X, Y, FX, FY, DS, 8, 8, ItemDate, P, H);
 End;
 
+Procedure TAnsiMenuForm.AddBar (HK: Char; D: String; X, Y, FX, FY, DS: Byte; P: Pointer; H: String);
+Begin
+  If Items = FormMaxItems Then Exit;
+
+  AddBasic (HK, D, X, Y, FX, FY, DS, 8, 8, ItemBar, P, H);
+End;
+
 Procedure TAnsiMenuForm.BarON;
 Var
   A : Byte;
@@ -477,27 +524,22 @@ End;
 
 Procedure TAnsiMenuForm.BarOFF (RecPos: Word);
 Var
-  A : Byte;
+  Count : Byte;
 Begin
   If RecPos = 0 Then Exit;
 
   With ItemData[RecPos]^ Do Begin
     WriteXY (DescX, DescY, cLo, strPadR(Desc, DescSize, ' '));
 
-    A := Pos(HotKey, strUpper(Desc));
+    Count := Pos(HotKey, strUpper(Desc));
 
-    If A > 0 Then
+    If Count > 0 Then
-      WriteXY (DescX + A - 1, DescY, cLoKey, Desc[A]);
+      WriteXY (DescX + Count - 1, DescY, cLoKey, Desc[Count]);
   End;
 End;
 
 Procedure TAnsiMenuForm.FieldWrite (RecPos : Word);
 Begin
-  // This could be changed to case itemtype and save display into string
-  // variable.  Then we would only require a single Screen.WriteXY function.
-  // It would be a tiny bit slower (obviously, not really noticable) but
-  // would reduce code size.
-
   With ItemData[RecPos]^ Do Begin
     Case ItemType of
       ItemPass    : WriteXY (FieldX, FieldY, cData, strPadR(strRep('*', Length(S^)), FieldSize, ' '));
@@ -515,6 +557,10 @@ Begin
       ItemFlags   : WriteXY (FieldX, FieldY, cData, DrawAccessFlags(F^));
       ItemPipe    : WriteXYPipe (FieldX, FieldY, 7, FieldSize, S^);
       ItemBits    : WriteXY (FieldX, FieldY, cData, strPadR(YesNoStr[L^ AND MaxNum <> 0], FieldSize, ' '));
+      ItemBar     : Begin
+                      WriteXY (FieldX,     FieldY, R^.HiAttr, strRep(R^.HiChar, 3));
+                      WriteXY (FieldX + 3, FieldY, R^.LoAttr, strRep(R^.LoChar, 3));
+                    End;
     End;
   End;
 End;
@@ -561,6 +607,7 @@ Begin
                       TempLong := TempLong XOR MaxNum;
                       L^       := TempLong;
                     End;
+      ItemBar     : EditPercentBar(R^);
     End;
 
   FieldWrite (ItemPos);

mystic/bbs_cfg_main.pas

@@ -24,11 +24,11 @@ Uses
   bbs_cfg_MsgBase,
   bbs_cfg_Groups,
   bbs_cfg_SecLevel,
+  bbs_cfg_Theme,
 
   //old editors to be rewritten
   bbs_cfg_useredit,
   bbs_cfg_events,
-  bbs_cfg_language,
   bbs_cfg_vote,
   bbs_cfg_menuedit;
 
@@ -124,7 +124,6 @@ Var
     Case Mode of
       'U' : User_Editor(False, False);
       'M' : Menu_Editor;
-      'T' : Lang_Editor;
       'E' : Event_Editor;
       'V' : Vote_Editor;
     End;
@@ -288,10 +287,13 @@ Begin
               ThemeOld := Session.Lang;
 
               Session.Lang.FieldColor1 := 15 + 1 * 16;
-              Session.Lang.FieldColor2 :=  9 + 1 * 16;
+              Session.Lang.FieldColor2 :=  7 + 1 * 16;
-              Session.Lang.FieldChar := 'm';
+              Session.Lang.FieldChar := #176;
               Session.Lang.EchoChar  := '*';
 
+              // theme will need to be reloaded after the theme edito
+              // just in case that specific theme is changed.
+
               Case Res of
                 'A' : Configuration_ArchiveEditor;
                 'B' : Configuration_MessageBaseEditor;
@@ -300,9 +302,9 @@ Begin
                 'P' : Configuration_ProtocolEditor;
                 'R' : Configuration_GroupEditor(False);
                 'S' : Configuration_SecurityEditor(True);
+                'T' : Configuration_ThemeEditor(False);
                 'U',
                 'M',
-                'T',
                 'E',
                 'V' : ExecuteOldConfiguration(Res);
                 'X' : Break;

mystic/records.pas

@@ -553,9 +553,9 @@ Type
     HiAttr    : Byte;
     Format    : Byte;
     StartY    : Byte;
-    EndY      : Byte;
+    Reserved2 : Byte;
     StartX    : Byte;
-    RESERVED  : LongInt;
+    Reserved  : LongInt;
   End;
 
 Const