fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-10-22 20:45 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* harbour/contrib/gtwvg/tests/demowvg.prg
    ! Minor change to change the color pallet of <Next Gets> screen.
This commit is contained in:
Pritpal Bedi
2008-10-23 03:46:21 +00:00
parent e3b222bfa6
commit 28d0d6eacd
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-10-22 20:45 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/gtwvg/tests/demowvg.prg
! Minor change to change the color pallet of <Next Gets> screen.
2008-10-22 20:11 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/gtwvg/gtwvg.c
* harbour/contrib/gtwvg/gtwvg.h

4
harbour/contrib/gtwvg/tests/demowvg.prg
View File

@@ -333,10 +333,12 @@ PROCEDURE WvtNextGets_X()
LOCAL scr := SaveScreen( 0,0,maxrow(),maxcol() )
LOCAL wvtScr := Wvt_SaveScreen( 0,0,maxrow(),maxcol() )
Static nPalletMultiplier := 0
// Change the values of pallatte arbitrarily though yu can fine tune
// these values with realistic values.
//
aNewPalette[ 8 ] := aNewPalette[ 8 ] + 100000
aNewPalette[ 8 ] := aNewPalette[ 8 ] + ( 100000 * ++nPalletMultiplier )
Wvt_SetPalette( aNewPalette )