home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / OTL-MC4.DMS / in.adf / Archive / Prog.lha / Source / Basic / Beispiel1.bas < prev    next >
Encoding:
BASIC Source File  |  1993-11-07  |  1.5 KB  |  53 lines
  1. REM Diese beiden Zeilen muessen am Anfang eines Programms stehen, das die
  2. REM HotHelp-Library verwenden will.
  3.  
  4. DECLARE FUNCTION HHEasyHelp& LIBRARY
  5. LIBRARY "hothelp.library"
  6.  
  7. REM Oeffnen eines Screens mit einem Window
  8.  
  9. SCREEN 1, 640, 200, 2, 2
  10. WINDOW 2,,,16,1
  11.  
  12. REM Ermittelt den Betriebssystem-Zeiger auf das Window
  13.  
  14. addr& = WINDOW (7)
  15.  
  16. REM Zeigt Informationen über den Shell-Befehl Resident an, wobei sich das
  17. REM HotHelp-Fenster auf dem neuen Screen öffnet.
  18.  
  19. CALL HotHelp ("Shell", "Resident", addr&, 1&, 0&)
  20.  
  21. WINDOW CLOSE 2
  22. SCREEN CLOSE 1
  23.  
  24. REM Beenden des Library-Zugriffs
  25.  
  26. LIBRARY CLOSE
  27.  
  28. END
  29.  
  30.  
  31. REM Dieses Unterprogramm öffnet ein HotHelp-Fenster. Parameter:
  32. REM
  33. REM project, key: Enthalten den Projekt- und Schlüssel-String.
  34. REM windowaddr:   Adresse des Fensters, auf dem sich das Fenster öffnen
  35. REM               soll.
  36. REM lastpos:  1:  Das Fenster nimmt die Größe und Position des letzten
  37. REM               geöffneten HotHelp-Fensters an.
  38. REM           0:  Das Fenster öffnet sich an der voreingestellten Position.
  39. REM lasttext: 1:  Zeigt den zuletzt dargestellten Text nochmals an.
  40. REM           0:  Der durch project und key angewählte Text wird angezeigt.
  41.  
  42. SUB HotHelp (project$, key$, windowaddr&, lastpos&, lasttext&) STATIC
  43.  
  44. p$ = project$ + CHR$ (0)
  45. k$ = key$     + CHR$ (0)
  46.  
  47. hherror = HHEasyHelp& (SADD (p$), SADD (k$), 0&, windowaddr&, lastpos&, lasttext&)
  48.  
  49. REM Falls hherror einen Wert ungleich 0 hat, ist ein Fehler aufgetreten.
  50. REM Hier kann dann noch eine Fehlerbehandlung eingebaut werden.
  51.  
  52. END SUB
  53.