XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Listbox drucken
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Eine Listbox drucken
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
-----------------------------------------------
Erklärung:
----------
Einfach den Inhalt einer Lisbox ausdrucken
SETTRUECOLOR 1
DECLARE ENDE%,zahl%
DECLARE LISTBOX1%,x%,y%
DECLARE GROUPBOX1%
DECLARE BUTTON1%
DECLARE BUTTON2%
WINDOWSTYLE 31
WINDOW 22,20-333,344
WINDOWTITLE Neues Fenster
CLS @RGB(212,208,200)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
LISTBOX1% =CREATE(LISTBOX,%HWND,LISTBOX1,0046,0036,0234,0179)
GROUPBOX1% =CREATE(GROUPBOX,%HWND,,0020,0013,0281,0281)
BUTTON1% =CREATE(BUTTON,%HWND,Drucken,0052,0235,0070,0030)
BUTTON2% =CREATE(BUTTON,%HWND,Ende,0200,0235,0070,0030)
DRAWICON DRUCKER,0137,0234
AddFiles *.prf ZUM TESTEN DER LISTBOX
MoveListToList(listbox1%)
ClearList

WHILENOT ENDE%

    WAITINPUT
    zahl%=0
    x%=40	AUF PAPIER X START
    y%=10   AUF PAPIER Y START

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF GETFOCUS(LISTBOX1%) LISTBOX

    ELSEIF GETFOCUS(BUTTON1%) BUTTON

        startprint	WENN MEHR TEXT SIEHE IN PROFANHILFE NEXTPAGE

        Whilenot equ(zahl%,@GetCount(listbox1%))

            drawtext x%,y%,@GetString$(listbox1%,zahl%)
            inc zahl%
            y%=add(y%,25)

        wend

        endprint

    ELSEIF GETFOCUS(BUTTON2%) BUTTON

        Let ENDE%=1

    ENDIF