Posted by Keith Smith on January 29, 2010 at 21:59:33:
In Reply to: Wallpaper color posted by Grant Foraker on January 28, 2010 at 15:15:06:
Portion of any of my menu programs and (SB) is maintained.
123: CLOSE (0) & OPEN (0) TERM$
!**! PRINT (0) (Wall Paper Clear)
PRINT (0) (CPL80);(EN);(WC)
PRINT (0) (Easy Scan)
PRINT (0) (Easy Scan Event = ESE.REDRAW,0,0)
PRINT (0) (Wallpaper Color=WP.RED,WP.GREEN,WP.BLUE)
PRINT (0) (Transparent Color=TP.CUR)
PRINT (0) (Map Mode=MM.QCRTROWCOL)
!----- Init font for wallpaper printing -----
GOSUB GDI.InitLogFont !Init font properties
lfFaceName$="Arial"+NullByte$ !Set font
lfHeight$=Inteld(1) !Set font size
lfOrientation$=Inteld(1) !QCRT font + lfHeight$
lfItalic$=Intel(TRUE) !Set Italics
lfWeight$=Intel(FW.BOLD) !Set weight
PRINT (0,FMT.SelectFont) !Now set the above
PRINT (0) (SetBkMode=1) !Set transparent
PRINT (0) (TextOut=3,21);SYSDATE2$;" ";SYSCO$
PRINT (0) (TextOut=45,21);SYSNAME$;"@00@"
PRINT (0) (TextOut=0,0) ;PROGRAM$
PRINT (0) (TextOut=21,0) ;SCRTITLE$
PRINT (0) (TextOut=70,0) ;SYSDATE1$
Caption$=Strip(SYSNAME$)+" - Main Application Selection"
PRINT (0) (Set Window Caption=caption$,1)
PRINT (0,9999) & PRINT (0,1000) !Display border and menu options
...
Enter any mouse and/or keyboard menu options. Your definitions/programming style ..
Hope this helps. Got it to work with SIG's help. Been using it for awhile (7+ years??) This is Comet 98/2000 stuff and I'm still catching up with this style. In order to learn, constantly have to cross reference SET's in order to gain concept. Slows things down. Not at my perception level. It's disguised!! As if OF COURSE I'm supposed to easily learn this stuff. I absorbed the printer stuff right off Comet's press at the time. Want a form?? You got it!! All the new screen stuff from 2000 to present has been a struggle to keep up with. Check out the number of screen mnemonics we have today. OK, I'm up!! My concept of screen control was (CreateWindowEx). Any font, any picture, any mouse or keyboard entry, any size, any wallpaper, any style and take advantage of current Windows display advances. Maybe even video!!
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.