From: author@pbsound.snafu.KILL.SPAM.de (Thomas Gohel)
Subject: Re: File selector
 
In article "File selector" (on 13.02.98), paxton@zetnet.co.uk says:
 
Hello Tony !!
 
> I am looking for a file selector, Hopefully a subroutine where I can
> simply gosub to it ... and on return a variable holds the filename of
> directory chosen
From an unknown author:
 
'--------------------------------------------------
 
     ' schon designed f*r ne Maus, hatte aber keine Lust an der
     ' Maus weiterzumachen. Kannst du ja *bernehmen :)
 
     CLS
 
 
     DIM N%(16)
     DIM M$(25)
 
     'Farbeinstellungen
     N%( 1)=11       '  *berschrift [aktuelles Verz]
     N%( 2)=15       '  Fensterrahmen Vordergrund [letzte zeile vg nach wahl]
     N%( 3)=15       '  Wahlbalken Vordergrund
     N%( 4)=4        '  Wahlbalken Hintergrund
     N%( 5)=1        '  Letzte Zeile Hintergrund [nach wahl]
     N%( 6)=0        '  Bildlaufleiste Vordergrund
     N%( 7)=15       '  Bildlaufleiste Hintergrund
     N%( 8)=7        '  Dateien in PickBox
     N%( 9)=1        '  Fensterfarbe
     N%(10)=14       '  Nicht belegt
     N%(11)=8        '  Nicht belegt
     N%(12)=8        '  Nicht belegt
     N%(13)=0        '  Nicht belegt
     N%(14)=10       '  Nicht belegt
     N%(15)=0        '  Letzte Zeile Hintergrund [vor wahl]
     N%(16)=3        '  Nicht belegt
 
     DISPLAYSEG&=&HB000                       ' sogar Mono-Detect habe
     Monochrome%=1                            ' ich eingebaut :))
     IF (PEEK(&H410) AND &H30)&H30 THEN
       DISPLAYSEG&=&HB800                     ' wird aber noch nicht
       Monochrome%=0                          ' von den Farben her benutzt
     END IF
 
     MouseDriver%=0
     DEF SEG=0
     REG 1,0
     CALL INTERRUPT &H33
     X%=REG(1)
     IF X%=-1 THEN
       REG 1,36
       CALL INTERRUPT &H33
       X%=REG(3)/256
       IF X%>0 THEN MouseDriver%=1
     END IF
 
     DirSpec$="*.*"                ' Sollte auf *.* bleiben, ansonsten
                                   ' werden keine Verzeichnisse gelesen
 
     CALL pickbox                  ' Dateiauswahl
 
     color 7,0
     cls
             if len(ltrim$(rtrim$(FilN$)))=0 then
                     print "Keine Datei gew*hlt."
             else
                     print "Gew*hlte Datei: "FilN$
             end if
     END
 
 
 
SUB displaywindow SHARED
     L1%=0
     IF L2%=0 THEN
       FOR X%=W%(1) TO W%(2)
         L%=LEN(M$(X%))
         IF L%>L1% THEN L1%=L%
       NEXT
       L%=CEIL(L1%/2)*2
       L2%=40-(L%/2)
       L2%=INT(L2%/2)*2
       L3%=40+(L%/2)
       L3%=CEIL(L3%/2)*2
     END IF
     COLOR N%(2),N%(9)
     IF GO% THEN COLOR N%(2),N%(5)
     IF RedBox% THEN COLOR N%(1),N%(4)
     L4%=L3%-L2%+1
 
Continued with next message...
 
*** QwkNews (tm) v2.1
 * [TN71] Internet Newsgroup: alt.lang.powerbasic
--- GEcho 1.20/Pro
---------------