Rev 737 | Rev 739 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 737 | Rev 738 | ||
---|---|---|---|
Line 22... | Line 22... | ||
22 | DESCEDIT_PADDING = 3; |
22 | DESCEDIT_PADDING = 3; |
23 | ACTIONMENU_SIZE = 5; |
23 | ACTIONMENU_SIZE = 5; |
24 | MAINMENU_WIDTH = 15; |
24 | MAINMENU_WIDTH = 15; |
25 | MAINMENU_HEIGHT = 3; |
25 | MAINMENU_HEIGHT = 3; |
26 | MAINMENU_ALLOW_ESC = false; |
26 | MAINMENU_ALLOW_ESC = false; |
- | 27 | TITLEBAR_LEFT_TEXT = 'OIDplus'; |
|
27 | 28 | ||
28 | procedure _WriteOidFile(filename: string; oid: POid); |
29 | procedure _WriteOidFile(filename: string; oid: POid); |
29 | begin |
30 | begin |
30 | DrawStatusBar('Write file ' + filename + '...'); |
31 | DrawStatusBar('Write file ' + filename + '...'); |
31 | WriteOidFile(filename, oid); |
32 | WriteOidFile(filename, oid); |
Line 459... | Line 460... | ||
459 | end; |
460 | end; |
460 | 461 | ||
461 | procedure _DrawOidTitleBar(filename: string; oid: POID); |
462 | procedure _DrawOidTitleBar(filename: string; oid: POID); |
462 | begin |
463 | begin |
463 | if oid^.DotNotation = '' then |
464 | if oid^.DotNotation = '' then |
464 | DrawTitleBar('OID ROOT') |
465 | DrawTitleBar('OID ROOT', TITLEBAR_LEFT_TEXT, filename) |
465 | else |
466 | else |
466 | DrawTitleBar('OID ' + oid^.DotNotation); |
467 | DrawTitleBar('OID ' + oid^.DotNotation, TITLEBAR_LEFT_TEXT, filename); |
467 | - | ||
468 | (* Put loaded filename into the title bar *) |
- | |
469 | GotoXY(ScreenWidth-Length(filename)+1,1); |
- | |
470 | TextBackground(White); |
- | |
471 | TextColor(Black); |
- | |
472 | WriteLn(filename); |
- | |
473 | TextBackground(Black); |
- | |
474 | TextColor(White); |
- | |
475 | end; |
468 | end; |
476 | 469 | ||
477 | procedure DisplayOIDFile(filename: string); |
470 | procedure DisplayOIDFile(filename: string); |
478 | var |
471 | var |
479 | isRoot: boolean; |
472 | isRoot: boolean; |
Line 676... | Line 669... | ||
676 | procedure OP_ManageOIDs; |
669 | procedure OP_ManageOIDs; |
677 | var |
670 | var |
678 | initFile: string; |
671 | initFile: string; |
679 | begin |
672 | begin |
680 | ClrScr; |
673 | ClrScr; |
681 | DrawTitleBar('Manage Object Identifiers'); |
674 | DrawTitleBar('Manage Object Identifiers', TITLEBAR_LEFT_TEXT, ''); |
682 | DrawStatusBar(''); |
675 | DrawStatusBar('Loading data... please wait...'); |
683 | 676 | ||
684 | initFile := ZeroPad(0, 8) + '.OID'; |
677 | initFile := ZeroPad(0, 8) + '.OID'; |
685 | if not FileExists(initFile) then |
678 | if not FileExists(initFile) then |
686 | begin |
679 | begin |
687 | CreateInitOIDFile(initFile); |
680 | CreateInitOIDFile(initFile); |
Line 690... | Line 683... | ||
690 | end; |
683 | end; |
691 | 684 | ||
692 | procedure OP_ManageRAs; |
685 | procedure OP_ManageRAs; |
693 | begin |
686 | begin |
694 | ClrScr; |
687 | ClrScr; |
695 | DrawTitleBar('Manage Registration Authorities'); |
688 | DrawTitleBar('Manage Registration Authorities', TITLEBAR_LEFT_TEXT, ''); |
696 | DrawStatusBar(''); |
689 | DrawStatusBar(''); |
697 | 690 | ||
698 | (* TODO: Implement "Manage RAs" feature *) |
691 | (* TODO: Implement "Manage RAs" feature *) |
699 | end; |
692 | end; |
700 | 693 | ||
Line 710... | Line 703... | ||
710 | menuIdOID, menuIdRA, menuIdExit: integer; |
703 | menuIdOID, menuIdRA, menuIdExit: integer; |
711 | begin |
704 | begin |
712 | repeat |
705 | repeat |
713 | ClrScr; |
706 | ClrScr; |
714 | 707 | ||
715 | DrawTitleBar('Welcome to OIDplus for DOS'); |
708 | DrawTitleBar('Welcome to OIDplus for DOS', '', ''); |
716 | DrawStatusBar(DEFAULT_STATUSBAR); |
709 | DrawStatusBar(DEFAULT_STATUSBAR); |
717 | GoToXY(ScreenWidth-Length(VERSIONINFO), ScreenHeight-1); |
710 | GoToXY(ScreenWidth-Length(VERSIONINFO), ScreenHeight-1); |
718 | Write(VERSIONINFO); |
711 | Write(VERSIONINFO); |
719 | 712 | ||
720 | CreateList(menu); |
713 | CreateList(menu); |