| 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); |