home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
fox
/
workgrp
/
readmail.spr
< prev
next >
Wrap
Text File
|
1993-07-01
|
7KB
|
219 lines
* *********************************************************
* *
* * 07/01/93 READMAIL.SPR 22:05:02
* *
* *********************************************************
* *
* * Author's Name
* *
* * Copyright (c) 1993 Company Name
* * Address
* * City, Zip
* *
* * Description:
* * This program was automatically generated by GENSCRN.
* *
* *********************************************************
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
m.rborder = SET("READBORDER")
SET READBORDER ON
m.currarea = SELECT()
* *********************************************************
* *
* * Windows Window definitions
* *
* *********************************************************
*
IF NOT WEXIST("readmail") ;
OR UPPER(WTITLE("READMAIL")) == "READMAIL.PJX" ;
OR UPPER(WTITLE("READMAIL")) == "READMAIL.SCX" ;
OR UPPER(WTITLE("READMAIL")) == "READMAIL.MNX" ;
OR UPPER(WTITLE("READMAIL")) == "READMAIL.PRG" ;
OR UPPER(WTITLE("READMAIL")) == "READMAIL.FRX" ;
OR UPPER(WTITLE("READMAIL")) == "READMAIL.QPR"
DEFINE WINDOW readmail ;
AT 0.000, 0.000 ;
SIZE 25.923,102.400 ;
TITLE "FoxPro Inbox Mail Center" ;
FONT "MS Sans Serif", 8 ;
FLOAT ;
NOCLOSE ;
MINIMIZE ;
SYSTEM ;
COLOR RGB(,,,0,128,128)
MOVE WINDOW readmail CENTER
ENDIF
* *********************************************************
* *
* * READMAIL/Windows Screen Layout
* *
* *********************************************************
*
#REGION 1
IF WVISIBLE("readmail")
ACTIVATE WINDOW readmail SAME
ELSE
ACTIVATE WINDOW readmail NOSHOW
ENDIF
@ 1.000,9.600 SAY "Subject:" ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 2.846,9.600 SAY "Send By:" ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 4.692,9.600 SAY "Received By:" ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 16.615,9.600 SAY "Attachments:" ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 8.385,9.600 SAY "Message:" ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 1.000,26.800 GET Messages.subject ;
SIZE 1.000,64.000 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
WHEN .F. ;
COLOR ,RGB(,,,192,192,192)
@ 2.846,26.800 GET m.morigin ;
SIZE 1.000,64.000 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
WHEN .F. ;
COLOR ,RGB(,,,192,192,192)
@ 2.769,92.000 GET sdetails ;
PICTURE "@*HN <" ;
SIZE 1.154,2.333,0.667 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
STYLE "B" ;
VALID getdetail(morigin)
@ 4.692,26.600 GET recippick ;
PICTURE "@&N" ;
FROM reciparr ;
SIZE 3.462,64.600 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
WHEN !EMPTY(reciparr[1]) ;
VALID getdetail(recippick) ;
COLOR RGB(,,,192,192,192),RGB(,,,192,192,192)
@ 9.385,10.000 EDIT Messages.notetext ;
SIZE 5.000,81.400,0.000 ;
PICTURE "@K" ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
SCROLL ;
WHEN .F. NOMODIFY ;
COLOR ,RGB(,,,255,255,255)
@ 14.462,29.200 SAY getstatus() ;
SIZE 1.000,40.000 ;
FONT "MS Sans Serif", 8 ;
PICTURE "@I"
@ 17.615,9.800 GET filepick ;
PICTURE "@&N" ;
FROM filearr ;
SIZE 3.462,81.400 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
WHEN !EMPTY(filearr[1]) ;
COLOR RGB(,,,255,255,255),RGB(,,,255,255,255)
@ 22.154,9.600 GET btn1 ;
PICTURE "@*BHN " + ;
(LOCFILE("..\mailbmps\arw04lt.bmp","BMP|ICO","Where is arw04lt?")) + ";" + ;
(LOCFILE("..\mailbmps\binoculr.bmp","BMP|ICO","Where is binoculr?")) + ";" + ;
(LOCFILE("..\mailbmps\arw04rt.bmp","BMP|ICO","Where is arw04rt?")) ;
SIZE 2.923,9.200,0.800 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
VALID btnval()
@ 22.154,45.600 GET btn2 ;
PICTURE "@*BHN " + ;
(LOCFILE("..\mailbmps\mail10.bmp","BMP|ICO","Where is mail10?")) + ";" + ;
(LOCFILE("..\mailbmps\mail12.bmp","BMP|ICO","Where is mail12?")) + ";" + ;
(LOCFILE("..\mailbmps\mail04.bmp","BMP|ICO","Where is mail04?")) ;
SIZE 2.923,9.200,0.800 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
VALID btn2val()
@ 22.154,81.600 GET btn3 ;
PICTURE "@*BHT " + ;
(LOCFILE("..\mailbmps\close.bmp","BMP|ICO","Where is close?")) ;
SIZE 2.923,9.200,0.800 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8
IF NOT WVISIBLE("readmail")
ACTIVATE WINDOW readmail
ENDIF
READ CYCLE MODAL ;
SHOW _qh51bc2fx()
RELEASE WINDOW readmail
SELECT (m.currarea)
#REGION 0
SET READBORDER &rborder
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* *********************************************************
* *
* * _QH51BC2FX Read Level Show
* *
* * Function Origin:
* *
* *
* * From Platform: Windows
* * From Screen: READMAIL
* * Called By: READ Statement
* * Snippet Number: 1
* *
* *********************************************************
*
FUNCTION _qh51bc2fx && Read Level Show
PRIVATE currwind
STORE WOUTPUT() TO currwind
*
* Show Code from screen: READMAIL
*
#REGION 1
IF SYS(2016) = "READMAIL" OR SYS(2016) = "*"
ACTIVATE WINDOW readmail SAME
@ 14.462,29.200 SAY getstatus() ;
SIZE 1.000,40.000, 0.000 ;
FONT "MS Sans Serif", 8 ;
PICTURE "@I"
ENDIF
IF NOT EMPTY(currwind)
ACTIVATE WINDOW (currwind) SAME
ENDIF