Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: ramesh m
  Where is ramesh m?
 bangalore
 India
 ramesh m
 To: Don Higgins
  Where is Don Higgins?
 Peoria
 Illinois - United States
 Don Higgins
 Tags
Subject: RE: Display issue using "Windows XP Display"
Thread ID: 331023 Message ID: 331392 # Views: 28 # Ratings: 0
Version: Visual FoxPro 8 Category: Windows Vista and VFP
Date: Thursday, December 29, 2011 4:51:09 PM         
   


> I found some old code I used to display a window on the screen.
>
> I had the code in my main.prg file used by my application. I called this code like this:
>
>
> 
> Do exitwindow In Main With "broke",10,79,"Error Messages-Please Write Down"
> * Now activate the window
> activate window broke
> * 
> * turn themes off
> sys(2700,0)
> 
> 

>
> Here is the function I put in main.prg
>
>
> 
> Function exitwindow
> 	Parameter winname, vertbox, horizbox, Titles
> 
> 	Define Window (winname) ;
> 		AT  0.000, 0.000  ;
> 		SIZE (vertbox), (horizbox) ;
> 		TITLE (Titles) ;
> 		FONT "Arial", 15 ;
> 		STYLE "B" ;
> 		NOFLOAT ;
> 		PANEL ;
> 		NOCLOSE ;
> 		NOMINIMIZE ;
> 		COLOR Rgb(,,,255,255,255)
> 
> 	Move Window (winname) Center
> 
> 	Activ Window (winname) Noshow
> 	mm=(horizbox)/2
> 
> 

************************************************
Hi Don,

Thanks very much.
I ran your code. It works fine, but once I put my menu system in that, the problem continues.
I am sending the code. You may run it.

SET DEFA TO D:\SOFTWARE
SET PROC TO D:\SOFTWARE\OM
DO START

DEFI WIND HOLD FROM 0,0 TO 60,180 COLO W+/W* NOCL NOGR NOSH NOMI NOZO PANE
ACTI WIND HOLD BOTT
DO DECO

DEFI MENU MEN IN WIND HOLD FONT 'ARIAL',13 STYLE 'BT'

DEFI PAD ALE OF MEN PROM ' \<ALERT ' AT 6,38 KEY 'A',''
DEFI PAD STF OF MEN PROM ' \<STAFF ' AT 6,57 KEY 'S',''
DEFI PAD BYE OF MEN PROM ' \<GOOD BYE ' AT 6,175 KEY 'G',''

DEFI POPU ALE FROM 9,27 FONT 'ARIAL',13 STYLE 'BT'
DEFI BAR 1 OF ALE PROM " URGE\<NT " KEY 'N',''
DEFI BAR 2 OF ALE PROM " \<FOR A PERIOD " KEY 'F',''

DEFI POPU STF FROM 9,40 FONT 'ARIAL',13 STYLE 'BT'
DEFI BAR 1 OF STF PROM " \<STAFF MASTER " KEY 'S',''

ON PAD ALE OF MEN ACTI POPU ALE
ON PAD STF OF MEN ACTI POPU STF

ON SELE PAD ALE OF MEN DO ACT
ON SELE PAD STF OF MEN DO ACT
ON SELE PAD BYE OF MEN QUIT

ON SELE POPU ALE DO ACT
ON SELE POPU STF DO ACT

ACTI MENU MEN PAD ALE
********
FUNC ACT
********
SET EXAC OFF
SET BRSTAT OFF
SAVE SCRE TO XX
SET ESCA ON
ON ESCA *
ON KEY LABE ESC *

DO CASE

CASE POPU() = 'ALE' AND BAR() = 1
* DO URGENT

CASE POPU() = 'ALE' AND BAR() = 2
* DO PERIOD

CASE POPU() = 'STF' AND BAR() = 1
* DO STAFF

ENDC
REST SCRE FROM XX
************
FUNC HIDESCR
************
HIDE MENU MEN
HIDE POPU STF
CLEA
**********
FUNC START
**********
SET COLO TO
SET KEYCOMP TO WINDOWS
CLEA
CLEA ALL
CLOS ALL
CLEA MACRO
CLEA WIND ALL
DEAC WIND COMMAND
HIDE WIND COMMAND
RELE WIND COMMAND
*****************
_WRAP = .F.
_STARTUP = ""
_GENSCRN = ""
_GENGRAPH = ""
_FOXDOC = ""
_FOXGRAPH = ""
SET ASSERT ON
SET BELL OFF
SET BLIN OFF
SET CONS OFF
SET CONF OFF
SET CARR OFF
SET ECHO OFF
SET EXAC OFF
SET HEAD OFF
SET HELP OFF
SET PRIN OFF
SET SYSM OFF
SET SCOR OFF
SET SAFE OFF
SET STAT OFF
SET TALK OFF
SET AUTO ON
SET CENT ON
SET ESCA ON
SET PRIN TO
SET MESS TO
SET MACK TO
SET SYSM TO
SET DATE BRIT
SET STAT BAR OFF
DO KEYS
*********
FUNC KEYS
*********
ON KEY
PUSH KEY CLEA
THEMES = .F.
SYS(2700,0)
SET ESCA ON
ON ESCA *
ON KEY LABE ESC *
ON KEY LABE F1 *
ON KEY LABE F2 *
ON KEY LABE F3 *
ON KEY LABE F4 *
ON KEY LABE F5 *
ON KEY LABE F6 *
ON KEY LABE F7 *
ON KEY LABE F8 *
ON KEY LABE F9 *
ON KEY LABE F10 *
ON KEY LABE F11 *
ON KEY LABE F12 *
*********
FUNC DECO
*********
SET COLO OF HIGH TO W+/B*
SET COLO OF MESS TO N*/W*
@ 1,167 SAY DATE() FONT 'ARIAL',12 STYLE 'BT' COLO B+
SET CLOC TO 3,222

ENTIRE THREAD

Display issue using "Windows XP Display" Posted by Pablo Bustaber @ 12/25/2011 9:36:55 PM
RE: Display issue using "Windows XP Display" Posted by Don Higgins @ 12/27/2011 3:19:01 AM
RE: Display issue using "Windows XP Display" Posted by Pablo Bustaber @ 12/28/2011 12:41:46 AM
RE: Display issue using "Windows XP Display" Posted by Don Higgins @ 12/28/2011 4:46:29 AM
RE: Display issue using "Windows XP Display" Posted by ramesh m @ 12/28/2011 8:07:11 AM
RE: Display issue using "Windows XP Display" Posted by Don Higgins @ 12/29/2011 4:34:51 AM
RE: Display issue using "Windows XP Display" Posted by ramesh m @ 12/29/2011 12:53:27 PM
RE: Display issue using "Windows XP Display" Posted by Don Higgins @ 12/29/2011 2:24:38 PM
RE: Display issue using "Windows XP Display" Posted by Don Higgins @ 12/29/2011 2:31:02 PM
RE: Display issue using "Windows XP Display" Posted by ramesh m @ 12/29/2011 4:51:09 PM