[Harbour] SF.net SVN: harbour-project:[10491] trunk/harbour

[Massimo Belgrano]

Interesting and Great!

2009/3/1  <vouchcac at 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 (pritpal at 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 at 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