Hi Horst so ungefähr ;)
'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR V 2.5
' DATUM 06.05.2002 um 20:49 Uhr
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
WEND
Rolf
|