CD/PC Actual 11/CDACTUAL11.iso/cdactual/demobin/share/os2/VPREVAL/VISPRORX._/BASE.EXT

Text File | 1995-09-08 | 5.9 KB | 256 lines

@Work with files
%File open
$filename = VpFileDialog(window,'OPEN','*.*','Open File')
IF LENGTH(filename) > 0 THEN
   DO
      DO WHILE LINES(filename)
         value=LINEIN(filename)
         /* insert here to use value */
      END
      rc=stream(filename,'c','close')
   END
%File save
$filename = VpFileDialog(window,'SAVE','*.*','Save As')
IF LENGTH(filename) > 0 THEN
   DO
      DO index = 1 to 10 by 1
         /* insert here to load value */
         rc=LINEOUT(filename,value)
      END
      rc=LINEOUT(filename) /*close*/
   END
%Picture open
$filename = VpFileDialog(window,'OPEN','*.*','Open Picture')
IF LENGTH(filename) > 0 THEN
   DO
     value = VpLoadPicture('FILE',filename)
     /* insert here to use value */
   END
%Load picture
$value = VpLoadPicture('FILE',filename)
%Load bitmap from BLOB
$value = VpLoadPicture('BLOB',value)
%Load file icon
$value = VpLoadPicture('FILEICON',filename)
%Load system icon
$/* valid index 1 - 22 */
value = VpLoadPicture('SYSICON',index)
%Load system bitmap
$/* valid index 1 - 48 */
value = VpLoadPicture('SYSBITMAP',index)
%Release graphic
$CALL VpFreePicture value
%Load resource icon
$value = VpLoadPicture('RESICON',index)
%Load resource bitmap
$value = VpLoadPicture('RESBMP',index)

@Message boxes
%Plain
$response=VpMessageBox(window,'title','message')
%OK/Cancel
$response=VpMessageBox(window,'title','message')
%Yes/No
$response=VpMessageBox(window,'title','message','YESNO')
%Yes/No/Cancel
$response=VpMessageBox(window,'title','message','YESNOCNCL')
%Retry/Cancel
$response=VpMessageBox(window,'title','message','RETRY')
%Ignore/Cancel
$response=VpMessageBox(window,'title','message','IGNORE')

@Rexx Constructs
%If-then-else
$IF value = 0 THEN
   DO
   END
ELSE
   DO
   END
%Iterative loop
$DO index = 1 to 100 by 1
END
%Do while loop
$DO WHILE value > 0
END
%Do until loop
$DO UNTIL value > 0
END
%Select when
$SELECT
   WHEN value > 0
      THEN
   WHEN value = 0
      THEN
   WHEN value < 0
      THEN
   OTHERWISE
END

@Window management
%Size/position window
$CALL VpWindow window,"SETPOS", x, y, xsize, ysize
%Get window size
$parse value VpWindow(window,"GETSIZE") with x y
%Get window position
$parse value VpWindow(window,"GETPOS") with x y
%Set window title
$CALL VpWindow window,"SETTITLE",value
%Close window
$CALL VpWindow window,"CLOSE"
%Show window
$CALL VpWindow window,"SHOW"
%Hide window
$CALL VpWindow window,"HIDE"
%Make window active
$CALL VpWindow window,"ACTIVATE"
%Minimize window
$CALL VpWindow window,"MINIMIZE"
%Maximze window
$CALL VpWindow window,"MAXIMIZE"
%Restore window
$CALL VpWindow window,"RESTORE"
%Get screen size
$parse value VpWindow(window,"GETSCREENSIZE")with x y





@Miscellaneous
%Get date
$value = DATE()
%Get time
$value = TIME()
%Beep
$/* 1000 Hz for 200 millisec */
CALL VpBeep 1000,200
%Set form drag info
$/* max num items, type, rendering, moveok, copyok, linkok, default */
CALL VpWindow window,"SETFORMDRAGINFO",1,"Plain Text","<DRM_OS2FILE,DRF_TEXT>",1,1,1,"MOVE"
%Start drag
$draginfo.0=1 /* count */
draginfo.1=1 /* moveable */
draginfo.2=1 /* copyable */
draginfo.3=1 /* linkable */
draginfo.4=0 /* optional icon */
draginfo.1.1="Plain Text" /* type */
draginfo.1.2="<DRM_OS2FILE,DRF_TEXT>" /* rendering */
draginfo.1.3="c:\"    /* source dir */
draginfo.1.4=filename /* source */
draginfo.1.5=filename /* target */
CALL VpWindow window,"DRAGSTART","DRAGINFO."
%Set pointer
$CALL VpWindow window,"SETPOINTER",value
%Start timer
$/* duration in 1/1000 secs */
CALL VpWindow window,"STARTTIMER",duration
%Stop timer
$CALL VpWindow window,"STOPTIMER"
%Set clipboard
$CALL VpWindow window,"SETCLIPBOARD","TEXT",value
%Get clipboard
$value=VpWindow(window,"GETCLIPBOARD","TEXT")


@Threads
%Start thread
$tid=VpThread('START',window, filename, arg1, arg2)
%Kill thread
$rc=VpThread('KILL', tid)
%Suspend a thread
$rc=VpThread('SUSPEND', tid)
%Resuming a thread
$rc=VpThread('RESUME', tid)
%Get process identifier
$pid=VpThread('GETPID')
%Get thread identifier
$tid=VpThread('GETTID')
%Change thread priority
$rc=VpThread('SETPRIORITY', priority, tid)
%Get thread list
$rc=VpThread('GETIDLIST', 'threadlst.')
%Pause thread execution
$rc=VpThread('SLEEP', time)


@Application variables
%Set variable
$CALL VpAppVariable 'SET', variable, value
%Get variable
$value=VpAppVariable('GET', variable)

@Semaphores
%Create MUTEX
$semid=VpSemaphore('MUTEX', 'CREATE', semname, initstate)
%Open MUTEX
$semid=VpSemaphore('MUTEX', 'OPEN', semname)
%Request access MUTEX
$rc=VpSemaphore('MUTEX', 'WAITREQUEST', semid, timeout)
%Release access MUTEX
$rc=VpSemaphore('MUTEX', 'POSTRELEASE', semid)
%Query MUTEX
$value=VpSemaphore('MUTEX', 'QUERY', semid, 'OWNER.')
%Close MUTEX
$rc=VpSemaphore('MUTEX', 'CLOSE', semid)
%Close event
$semid=VpSemaphore('EVENT', 'CREATE', semname, initstate)
%Open event
$semid=VpSemaphore('EVENT', 'OPEN', semname)
%Wat for event
$rc=VpSemaphore('EVENT', 'WAITREQUEST', semid, timeout)
%Post event
$rc=VpSemaphore('EVENT', 'POSTRELEASE', semid)
%Reset event
$rc=VpSemaphore('EVENT', 'RESET', semid)
%Query event
$value=VpSemaphore('EVENT', 'QUERY', semid)
%Close event
$rc=VpSemaphore('EVENT', 'CLOSE', semid)

@VpPrint
%List
$CALL VpPrint window, "title", "subtitle", "Page %d", "LIST","10.Helvetica"
%Array
$CALL VpPrint window, "title", "subtitle", "Page %d", "ARRAY","10.Helvetica","DATA."
%Form
$CALL VpPrint window, "title", "subtitle", "Page %d", "FORM","10.Helvetica"

@VpFont
%Font Dialog
$value=VpFontDialog(window, "10.Courier")

@VpSharedMemory
%Access
$memhandle=VpSharedMemory("GETSHARED",name)
%Allocate
$memhandle=VpSharedMemory("ALLOC",name,size)
%Free
$CALL VpSharedMemory "FREE", memhandle
%Get contents
$value=VpSharedMemory("GET", memhandle)
%Set contents
$CALL VpSharedMemory "SET", memhandle, value