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

Actie added to Bar form

This commit is contained in:
mysticbbs 2012-03-10 03:57:10 -05:00
parent 08a88ff71e
commit dd4a156e91
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
mystic/bbs_ansi_menuform.pas
View File

@ -194,19 +194,20 @@ Begin
Box := TAnsiMenuBox.Create; Box := TAnsiMenuBox.Create;
Form := TAnsiMenuForm.Create; Form := TAnsiMenuForm.Create;
Box.Open (7, 5, 73, 12); Box.Open (7, 5, 73, 13);
VerticalLine (23, 7, 10); VerticalLine (23, 7, 11);
VerticalLine (61, 7, 10); VerticalLine (61, 8, 11);
Form.AddTog ('F', ' Bar Format' , 11, 7, 25, 7, 12, 10, 0, 1, 'Horizontal Vertical', @Bar.Format, ''); Form.AddBol ('T', ' Active', 15, 7, 25, 7, 8, 3, @Bar.Active, '');
Form.AddChar ('B', ' BG Character', 9, 8, 25, 8, 14, 32, 255, @Bar.LoChar, ''); Form.AddTog ('F', ' Bar Format' , 11, 8, 25, 8, 12, 10, 0, 1, 'Horizontal Vertical', @Bar.Format, '');
Form.AddAttr ('G', ' BG Color', 13, 9, 25, 9, 10, @Bar.LoAttr, ''); Form.AddChar ('B', ' BG Character', 9, 9, 25, 9, 14, 32, 255, @Bar.LoChar, '');
Form.AddByte ('X', ' Start X', 14, 10, 25, 10, 9, 2, 1, 50, @Bar.StartX, ''); Form.AddAttr ('G', ' BG Color', 13, 10, 25, 10, 10, @Bar.LoAttr, '');
Form.AddByte ('A', ' Bar Length', 49, 7, 63, 7, 12, 2, 1, 50, @Bar.BarLength, ''); Form.AddByte ('X', ' Start X', 14, 11, 25, 11, 9, 2, 1, 50, @Bar.StartX, '');
Form.AddChar ('C', ' FG Character', 47, 8, 63, 8, 14, 32, 255, @Bar.Hichar, ''); Form.AddByte ('A', ' Bar Length', 49, 8, 63, 8, 12, 2, 1, 50, @Bar.BarLength, '');
Form.AddAttr ('O', ' FG Color', 51, 9, 63, 9, 10, @Bar.HiAttr, ''); Form.AddChar ('C', ' FG Character', 47, 9, 63, 9, 14, 32, 255, @Bar.Hichar, '');
Form.AddByte ('Y', ' Start Y', 52, 10, 63, 10, 9, 2, 1, 50, @Bar.StartY, ''); Form.AddAttr ('O', ' FG Color', 51, 10, 63, 10, 10, @Bar.HiAttr, '');
Form.AddByte ('Y', ' Start Y', 52, 11, 63, 11, 9, 2, 1, 50, @Bar.StartY, '');
Repeat Repeat
Case Form.Execute of Case Form.Execute of