Interesting and Great! 2009/3/1 <vouch...@users.sourceforge.net>: > 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 (prit...@vouchcac.com) > * 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 > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour >
-- Massimo Belgrano Albo Nazionale Informatici Professionisti 2620 Socio 2843 Associazione Informatici prof. Analisi e sviluppo software per Lan e Web Consulenza informatica - Formazione Delta Informatica S.r.l. http://www.deltain.it Via Torelli,31 - 28100 Novara - Tel: 0321/30281 _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
