home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / anwender / zephyr / zephyr4s.2 / BEISPIEL.EXE / lha / WINDLANG.PRG < prev    next >
Text File  |  1991-01-11  |  1KB  |  33 lines
  1.  
  2. *** LANGVARI.PRG
  3. * die WINDOW-Größen abhängig von der Länge eines Textes gestalten
  4. * In diesem Beispiel wird eine Eingabe zur Größenbestimmung des Windows
  5. * verwendet. In der Praxis handelt es sich in der Regel um Feldinhalte
  6. * oder Meldungen in Kombination mit verschieden lange Feldinhalten
  7. * z.B.: Meldung = "Herr " + Variable + " hat schon bezahlt!"
  8. * Wenn der Name des unbekannten Herrn "Verschiedenlang" ist, bildes sich
  9. * in der Mitte des Bildschirms ein Window mit dem gemittelten Text:
  10. *               -------------------------------------------
  11. *               │ Herr Verschiedenlang hat schon bezahlt! │
  12. *               -------------------------------------------
  13.  
  14. DEACTIVATE WINDOW ALL
  15. CLEAR
  16.  
  17. Eingabe = SPACE(40)
  18. @ 6,2 SAY "geben Sie einen Begriff ein:" GET Eingabe
  19. READ
  20. Eingabe = LTRIM(TRIM(Eingabe))
  21. Eingabe = IIF(LEN(Eingabe) = 0,"DAS MACHT KEINEN SINN!",Eingabe)
  22. LangEin = len(Eingabe) + 4
  23. Lstart = 40-(LangEin/2)
  24. Lende = Lstart + LangEin
  25. DEFINE WINDOW Fenster FROM 8,Lstart TO 12,Lende
  26. ACTIVATE WINDOW Fenster
  27. ? " " + Eingabe
  28.  
  29. DO WHILE INKEY() = 0
  30. ENDDO
  31.  
  32. DEACTIVATE WINDOW ALL
  33.