home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
library
/
dos
/
rtl
/
bp7lib
/
graf2.doc
< prev
next >
Wrap
Text File
|
1993-04-15
|
1KB
|
26 lines
unit graf2;
interface
procedure editfile(x1,y1,x2,y2:integer; xoffset,yoffset,docwidth,
doclength:longint; fore,bak,cursorcolor:integer;
s:string; dosound:boolean);
{ edits a file in an area x1 thru y2. xoffset and yoffset are
the initial offsets from top and left of document to top and
left of area in graf coords. fore,bak are editor colors.
cursorcolor is cursor color. s is file to edit. does sound
effects if dosound=true. esc exits editor. automatically
prompts for save on exit. up to 255 chars wide, unlimited
doc length! requires 64K heap space. }
procedure showfile(x1,y1,x2,y2,fore,bak,cursorcolor:integer; s:string; edit,dosound:boolean);
{ shows a file in a scrolling window (area x1 thru y2) in colors
fore,bak. s is file to show. if dosound=true, does sound effects.
if edit=true, calls editfile if window contents are clicked on.
cursorcolor is cursor color for editfile. }
implementation