Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : WINDEM.ZIP
Filename : MAKE_WIN.PRG

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º º
* º Program Name: MAKE_WIN.PRG º
* º Copyright: Communication Resource Mgt System º
* º º
* º Purpose: Creates all pop-up windows for demo º
* º Output: DEMO_SCR.WIN - Window Library File º
* º º
* º Language: FoxPro º
* º Author: Thomas D. Meeks º
* º º
* º Date Created: 07/12/91 º
* º Time Created: 22:25:00 º
* º º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º º
* º WINDOWS IN DEMO_SCR.WIN º
* º º
* ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
* º º
* º over_kill - 'Sunken bricks' window FROM 06,16 TO 17,68 º
* º wapner - Help window for lab field FROM 15,02 TO 22,27 º
* º º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

SET TALK OFF
SET ECHO OFF
SET SAFETY OFF


! ERASE *.win

CLEAR

DO set_window
DO all_window
DO all_show

RETURN

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º º
* º ÍÍÍÍÍÍÍÍÍÍÍ Procedures for Creating Windows - FoxPro version ÍÍÍÍÍÍÍÍÍÍ º
* º º
* ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
* º º
* º set_window: Main Window Define º
* º all_window: Creates all windows º
* º º
* º º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º º
* º PROCEDURE set_window Main Window Define º
* º º
* ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
* º º
* º º
* º Called by: MAKE_WIN.PRG º
* º º
* º Calls: WINDOW_POP º
* º º
* º Other Files: demo_scr.win º
* º º
* º º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*


PROCEDURE set_window

PUBLIC max_wind

max_wind = 2

PUBLIC pop_name(max_wind)
PUBLIC upper_ly(max_wind)
PUBLIC upper_lx(max_wind)
PUBLIC lower_ry(max_wind)
PUBLIC lower_rx(max_wind)
PUBLIC shadw_on(max_wind)
PUBLIC color_st(max_wind)
PUBLIC file_nam(max_wind)
PUBLIC win_file(max_wind)

*
* Create 'over_kill' window && 'Sunken Bricks'
*

xarr = 1

pop_name(xarr) = 'over_kill'
upper_ly(xarr) = 06
upper_lx(xarr) = 16
lower_ry(xarr) = 17
lower_rx(xarr) = 68
shadw_on(xarr) = .F.
color_st(xarr) = 'W+/N'
file_nam(xarr) = 'demo_04'
win_file(xarr) = 'demo_scr.win'

*
* Create 'wapner' window && Help window for lab field
*

xarr = 2

pop_name(xarr) = 'wapner'
upper_ly(xarr) = 15
upper_lx(xarr) = 02
lower_ry(xarr) = 22
lower_rx(xarr) = 28
shadw_on(xarr) = .F.
color_st(xarr) = 'W+/BG'
file_nam(xarr) = 'demo_12'
win_file(xarr) = 'demo_scr.win'

RETURN

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º º
* º PROCEDURE all_window Main Window Driver º
* º º
* ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
* º º
* º º
* º Called by: MAKE_WIN.PRG º
* º º
* º Calls: WINDOW_POP º
* º º
* º Other Files: demo_scr.win º
* º º
* º º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

PROCEDURE all_window

CLEAR WINDOWS
SET COLOR TO W/N
CLEAR

FOR n = 1 to max_wind

do window_pop WITH upper_ly(n),upper_lx(n),lower_ry(n),lower_rx(n),;
pop_name(n),IIF(shadw_on(n),'SHADOW','NOSHADOW'),;
color_st(n),file_nam(n)

ENDFOR

SAVE WINDOWS ALL TO &win_file(1)
DEACTIVATE WINDOW ALL

RETURN

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º º
* º PROCEDURE all_show Main Window Display º
* º º
* ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
* º º
* º º
* º Called by: MAKE_WIN.PRG º
* º º
* º Other Files: met_new.win º
* º º
* º º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

PROCEDURE all_show

CLEAR WINDOWS
SET COLOR TO N/W
CLEAR

@ 24,0 SAY 'Press PgUp & PgDn to toggle windows.... to exit'

*
***** PLAY BACK MAIN WINDOWS *****
*

a = 0

n = 1
DO WHILE a # 27

RESTORE WINDOW &pop_name(n) FROM &win_file(n)

A = INKEY(0)

DO CASE

CASE A = 18

n = MAX(n-1,1)

CASE a = 3

n = MIN(n+1,max_wind)

ENDCASE

CLEAR WINDOWS

ENDDO

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º º
* º PROCEDURE Window_pop Generic Window Creation Routine º
* º º
* ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
* º º
* º º
* º Called by: ALL_WINDOW º
* º º
* º Parameters: ulc_y - Upper Left Corner (Y-Axis) º
* º : ulc_x - Upper Left Corner (X-Axis) º
* º : lrc_y - Lower Right Corner (Y-Axis) º
* º : lrc_x - Lower Right Corner (X-Axis) º
* º : Wind_name - Name of window º
* º : shad_type - Shadow Type (SHADOW/NOSHADOW) º
* º : wind_colr - Color of window º
* º : file_name - Screen File Name º
* º º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

PROCEDURE window_pop

PARAMETERS ulc_y,ulc_x,lrc_y,lrc_x,wind_name,shad_type,wind_colr,file_name

DEFINE WINDOW &wind_name ;
FROM ulc_y,ulc_x ;
TO lrc_y,lrc_x ;
NONE &shad_type ;
NOCLOSE ;
NOGROW ;
NOZOOM ;
COLOR &wind_colr

ACTIVATE WINDOW &wind_name

RESTORE FROM &file_name ADDITIVE
RESTORE SCREEN FROM demo_wind

RETURN