home *** CD-ROM | disk | FTP | other *** search
- (* ------------------------------------------------------------------------- *)
- (* HYPERKEY.HLP *)
- (* Anzeige der Hilfsbildschirme *)
- (* ------------------------------------------------------------------------- *)
- (* Anzeige des Haupt-Hilfsbildschirms: *)
- PROCEDURE MainHelp;
- VAR DummyKey :INTEGER; XPos,YPos :BYTE;
- BEGIN
- Cursor (off); XPos := WhereX; YPos := WhereY;
- MkWindow (XWin+4,YWin+1,XWin+61,YWin+23,2,HelpFore,HelpBack,HelpBack);
- WriteString (16, 3, 'Kommandos im HYPERKEY-Hauptmenue:');
- WriteString ( 8, 5, 'Pfeil links ...... vorherigen Eintrag anzeigen');
- WriteString ( 8, 6, 'Pfeil rechts ..... nächsten Eintrag anzeigen');
- WriteString ( 8, 7, 'Home ............. auf ersten Eintrag springen');
- WriteString ( 8, 8, 'End .............. auf letzten Eintrag springen');
- WriteString ( 8, 9, 'Del .............. angezeigten Eintrag löschen');
- WriteString ( 8, 10, 'Shift-Del ........ alle Einträge löschen');
- WriteString ( 8, 11, 'Return ........... angezeigten Eintrag editieren');
- WriteString ( 8, 12, 'Ins .............. einen neuen Eintrag einfügen');
- WriteString ( 8, 13, 'Pfeil hoch ....... aktuellen Eintrag aktivieren');
- WriteString ( 8, 14, 'Pfeil runter ..... aktuellen Eintrag desaktivieren');
- WriteString ( 8, 15, 'Alt-hoch ......... alle Einträge aktivieren');
- WriteString ( 8, 16, 'Alt-runter ....... alle Einträge desaktivieren');
- WriteString ( 8, 17, 'PgDn ............. Makro-Belegung aus Datei lesen');
- WriteString ( 8, 18, 'PgUp ............. aktuelle Liste wegspeichern');
- WriteString ( 8, 19, 'Esc .............. HYPERKEY verlassen');
- WriteString (19, 21, 'Zurück mit beliebiger Taste');
- GetKey (DummyKey); RmWindow; Window (1,1,80,25);
- GotoXY (XPos,YPos); Cursor (on)
- END;
- (* Anzeige des Editor-Hilfsbildschirms: *)
- PROCEDURE EditHelp;
- VAR DummyKey :INTEGER; XPos,YPos :BYTE;
- BEGIN
- Cursor (off); XPos := WhereX; YPos := WhereY;
- MkWindow (XWin+4,YWin+1,XWin+60,YWin+22,2,HelpFore,HelpBack,HelpBack);
- WriteString (17, 3, 'Kommandos im HYPERKEY-Editmenue:');
- WriteString ( 8, 5, 'Pfeil links ...... Cursor ein Zeichen nach links ');
- WriteString ( 8, 6, 'Pfeil rechts ..... Cursor ein Zeichen nach rechts');
- WriteString ( 8, 7, 'Home ............. Cursor an Zeilenanfang');
- WriteString ( 8, 8, 'End .............. Cursor ans Zeilenende');
- WriteString ( 8, 9, 'Del .............. Zeichen unter Cursor löschen');
- WriteString ( 8, 10, 'Clr .............. Zeichen vor Cursor löschen');
- WriteString ( 8, 11, 'Ctrl-Home ........ die gesamte Zeile löschen');
- WriteString ( 8, 12, 'Ctrl-End ......... bis Zeilenende löschen');
- WriteString ( 8, 13, 'Ins .............. Insert/Overwrite-Modus');
- WriteString ( 8, 14, 'Scroll-Lock ...... Sondereingabemodus ein/aus');
- WriteString ( 8, 15, 'Tab .............. Tastencode neu eingeben/ändern');
- WriteString ( 8, 16, 'Return ........... Ende, Eingabe übernehmen');
- WriteString ( 8, 17, 'Ctrl-Return ...... Ende, Eingabe an ANSI-Treiber');
- WriteString ( 8, 18, 'Esc .............. Ende, Eingabe nicht übernehmen');
- WriteString (19, 20, 'Zurück mit beliebiger Taste');
- GetKey (DummyKey); RmWindow; Window (1,1,80,25);
- GotoXY (XPos,YPos); Cursor (on)
- END;
- (* ------------------------------------------------------------------------- *)
- (* HYPERKEY.HLP *)
-