Revision: 10491
http://harbour-project.svn.sourceforge.net/harbour-project/?rev=10491&view=rev
Author: vouchcac
Date: 2009-02-28 23:53:07 +0000 (Sat, 28 Feb 2009)
Log Message:
-----------
2009-02-28 15:51 UTC-0800 Pritpal Bedi ([email protected])
* harbour/contrib/gtwvg/common.mak
* harbour/contrib/gtwvg/Makefile
+ Added wvgcuig.c
* harbour/contrib/gtwvg/gtwvg.h
+ Added PHB_GOBJS structure to hold static CUI enhancement elements.
* harbour/contrib/gtwvg/gtwvg.c
! Implemented hb_gt_wvt_PaintGObjects( PHB_GTWVT pWVT, RECT *uRect )
just before EndPaint() call.
+ harbour/contrib/gtwvg/wvgcuig.c
+ Implementation of pure static controls with Clipper like
approach leaving away the details of heavy GTWVG base
protocol.
* harbour/contrib/gtwvg/tests/demowvg.prg
! Implemented simplified GUI look to a CUI console.
Now it is possible TO build console dialogs pretty fast.
This implementation assumes that appln will NOT use
overlapping screens as with SaveScreen()/RestScreen()
functions. Instead a new window will be opened to host
overlapping screens.
Please look at <Traditional><WVG Console with GCUI> to
look at this functionality. The code goes below:
/* PROCEDURE GCUIConsole()
LOCAL dDate := ctod( "" )
LOCAL cName := Space( 35 )
LOCAL cAdd1 := Space( 35 )
LOCAL cAdd2 := Space( 35 )
LOCAL cAdd3 := Space( 35 )
LOCAL nSlry := 0
LOCAL nColGet := 8
LOCAL GetList := {}
LOCAL cLabel := "VOUCH, that GROWS with you"
SetColor( "N/W,N/GR*,,,N/W*" )
CLS
hb_gtInfo( HB_GTI_WINTITLE, "WVG Simplified GUI Console" )
@ MaxRow(), 0 SAY PadC( "GTWVG Simplified GUI Console",
maxcol()+1 ) COLOR "W+/B*"
@ 2, nColGet SAY "< Date >"
@ 5, nColGet SAY "<" + PadC( "Name", 33 ) + ">"
@ 8, nColGet SAY "<" + PadC( "Address", 33) + ">"
@ 15, nColGet SAY "< Salary >"
@ 3, nColGet GET dDate
@ 6, nColGet GET cName
@ 9, nColGet GET cAdd1
@ 11, nColGet GET cAdd2
@ 13, nColGet GET cAdd3
@ 16, nColGet GET nSlry PICTURE "@Z 9999999.99"
// The only additional calls to render your console GUI
//
// The GETLIST : This can be embedded via @ GET preprocessor
command
aEval( GetList, {|oGet| Wvg_BoxGet( oGet:Row, oGet:Col, Len(
Transform( oGet:VarGet(), oGet:Picture ) ) ) } )
// And thsese can be another @ SAY commands
Wvg_BoxRaised( 1, 2, 18, 49, { -5,-5,5,5 } )
Wvg_BoxRecessed( 1, 2, 18, 49 )
Wvg_BoxGroupRaised( 2, 4, 17, 47, { -7,-7,7,7 } )
// Instruct GT to Repaint the Screen with GUI elements.
Wvt_InvalidateRect( 0, 0, maxrow(), maxcol() )
// Issue the read
READ
RETURN
*/
Modified Paths:
--------------
trunk/harbour/ChangeLog
trunk/harbour/contrib/gtwvg/Makefile
trunk/harbour/contrib/gtwvg/common.mak
trunk/harbour/contrib/gtwvg/gtwvg.c
trunk/harbour/contrib/gtwvg/gtwvg.h
trunk/harbour/contrib/gtwvg/tests/demowvg.prg
Added Paths:
-----------
trunk/harbour/contrib/gtwvg/wvgcuig.c
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
