Subversion Repositories oidplus

Compare Revisions

Regard whitespace Rev 737 → Rev 738

/trunk_dos/OIDPLUS.PAS
24,6 → 24,7
MAINMENU_WIDTH = 15;
MAINMENU_HEIGHT = 3;
MAINMENU_ALLOW_ESC = false;
TITLEBAR_LEFT_TEXT = 'OIDplus';
 
procedure _WriteOidFile(filename: string; oid: POid);
begin
461,17 → 462,9
procedure _DrawOidTitleBar(filename: string; oid: POID);
begin
if oid^.DotNotation = '' then
DrawTitleBar('OID ROOT')
DrawTitleBar('OID ROOT', TITLEBAR_LEFT_TEXT, filename)
else
DrawTitleBar('OID ' + oid^.DotNotation);
 
(* Put loaded filename into the title bar *)
GotoXY(ScreenWidth-Length(filename)+1,1);
TextBackground(White);
TextColor(Black);
WriteLn(filename);
TextBackground(Black);
TextColor(White);
DrawTitleBar('OID ' + oid^.DotNotation, TITLEBAR_LEFT_TEXT, filename);
end;
 
procedure DisplayOIDFile(filename: string);
678,8 → 671,8
initFile: string;
begin
ClrScr;
DrawTitleBar('Manage Object Identifiers');
DrawStatusBar('');
DrawTitleBar('Manage Object Identifiers', TITLEBAR_LEFT_TEXT, '');
DrawStatusBar('Loading data... please wait...');
 
initFile := ZeroPad(0, 8) + '.OID';
if not FileExists(initFile) then
692,7 → 685,7
procedure OP_ManageRAs;
begin
ClrScr;
DrawTitleBar('Manage Registration Authorities');
DrawTitleBar('Manage Registration Authorities', TITLEBAR_LEFT_TEXT, '');
DrawStatusBar('');
 
(* TODO: Implement "Manage RAs" feature *)
712,7 → 705,7
repeat
ClrScr;
 
DrawTitleBar('Welcome to OIDplus for DOS');
DrawTitleBar('Welcome to OIDplus for DOS', '', '');
DrawStatusBar(DEFAULT_STATUSBAR);
GoToXY(ScreenWidth-Length(VERSIONINFO), ScreenHeight-1);
Write(VERSIONINFO);
/trunk_dos/VTSCUI.PAS
23,7 → 23,7
procedure DrawThinBorder(x, y, width, height: integer);
procedure DrawDoubleBorder(x, y, width, height: integer);
procedure DrawTextBar(str: string; line: integer);
procedure DrawTitleBar(str: string);
procedure DrawTitleBar(center, left, right: string);
procedure DrawStatusBar(str: string);
function DrawSelectionList(X, Y, ListWidth, ListHeight: integer;
items: PStringList; allowESC: boolean;
187,9 → 187,25
TextColor(White);
end;
 
procedure DrawTitleBar(str: string);
procedure DrawTitleBar(center, left, right: string);
begin
DrawTextBar(str, 1);
DrawTextBar(center, 1);
 
(* Put left text into the title bar *)
GoToXY(1,1);
TextBackground(White);
TextColor(Black);
WriteLn(left);
TextBackground(Black);
TextColor(White);
 
(* Put right text into the title bar *)
GotoXY(ScreenWidth-Length(right)+1,1);
TextBackground(White);
TextColor(Black);
WriteLn(right);
TextBackground(Black);
TextColor(White);
end;
 
procedure DrawStatusBar(str: string);