i suggest find intresting sample regarding gtwvw
http://br.groups.yahoo.com/group/gtwvw/files/
and invite share here (or ito my email) any sample regarding gtwvg
2009/6/4 Massimo Belgrano <mbelgr...@deltain.it>:
> I try a reply of my point of view, naturally i want Pritpal's reply
> GTWVG & GTWVW have a comon structure with different syntax
> Either maintain compatibility with function list of GTWVT
> Either add gui gadget starting original wvtgui (peter rees)
>
> GTWVW allow Multi window when native gt can't do it (2004)
> - GTWVW add to all specific function one parameter for windowsnumber
> and support original wvt by inlude wvt2wvw (and you may reverse logic)
> #xtranslate WVT_SETTITLE ([<vlist,...>]) => WVW_SETTITLE
> (NIL [, <vlist>])
> nCurWindow := WVW_nOpenWindow(cWinName, nTop, nLeft, nBottom, nRight)
> if nCurWindow==0
> lboxmessage("Failed Opening new window!")
> return
> endif
> lMouseMove := WVW_SETMOUSEMOVE(,.f.)
>
>
> Gtwvw include internal win32 component with wvw prefix Status Bar,
> Timer, Tool Bar , Scroll Bar , Push Buttons, Progress Bar
> wvw_SetVertCaret(.t.)
> wvw_pbSetFont(, "Tahoma", 14)
> nCursor := setcursor(0)
> nMaxRow := maxrow(); nMaxCol := maxcol()
> if wvw_SBcreate() > 0 .and.;
> wvw_SBaddPart(, "99:99:99") > 0
> wvw_SetTimer(, 1000)
> endif
> WVW_PBcreate( nCurWindow, maxrow()-4,67-11-11-11-11-11, maxrow()-4,
> 67+9-11-11-11-11-11, "native", NIL, {||lboxmessage("native
> pushbutton")}, NIL)
>
> gtwvw include good documentation in funclist.txt (i hope that this
> will be important requirement for contrib)
>
> GTWVG allow Multiwindow by native harbour gt function, and allow windows
> resize!
> x_ocrt := hb_gtCreate( THREAD_GT )
>
> GTWVG include direct access wvt_function
>
> Wvt_SetMouseMove( .t. )
> Wvt_SetFont( "Courier New", 18, 0, 0 )
>
> GTWVG support native win32 component with wvg_ prefix
> GTWVG implement also syntax ispired to xbase part class with wvg prefix
> wvgdialog is compatible with xbpdialog ,wvgpushputton is compatible
> with xbppushbutton
> this allow syntax like
>
> oDlg := wvgDialog():new( SetAppWindow(), , aPos, {640,400}, , .F.)
> oDlg:title := "GUI Demo"
> oDlg:taskList := .T.
> oDlg:icon := 1
> oDlg:close := {|| AppQuit() }
>
> GTWVG support active x !
>
> Function MyCrystalViewer()
> LOCAL oCrystal := CREATEOBJECT( "CrystalRuntime.Application" )
> LOCAL oReport := oCrystal:OpenReport( "PROVA.RPT" )
> LOCAL oDlg, oActvX
> oDlg := WvgDialog():New():Create( , , { 20,20 }, { 600,400 }, , .t. )
> oActvX:= WvgActiveXControl():New( oDlg:drawingArea )
> oActvX:CLSID := "CRViewer9.CRViewer"
> oActvX:create( , , {0,0}, oDlg:currentSize(), .t. )
> oActvX:ReportSource := oReport
> oActvX:Do( "ViewReport" ) // I do not know how it must behave
> oActvX:resize := {|| oActvX:setPosAndSize( {0,0}, oDlg:currentSize(), .t. )
> }
>
> do while .t.
> if inkey() == 27
> exit
> endif
> enddo
> oDlg:destroy()
> Return nil
> GTWVG implement a alternative way
>
> Win_SetDlgItemText( hDlg, ID_MLE , GetEditText() )
> Win_CheckDlgButton( hDlg, ID_CHK_SATIS, .t. )
>
> GTWVG documentation is promised by priplat after current huge works in qt
>
> GTWVG will be compatible with the upcoming gtqtg where possible
>
>
>
>
> 2009/6/4 Sudip Bhattacharyya <sudipb...@gmail.com>
>>
>> Hello Pritpal,
>>
>> After working on gtwvg for a few days, I am convinced that it is the best
>> way to transfer our old Clipper codes into Win32 environment.
>>
>> I am solving initial problems day by day with help from esparts (including
>> you).
>>
>> Can you please tell me the differences between GTWVG and GTWVW in very
>> simple words. I know at least one difference - <n window> parameter in wvw_
>> functions. But, why it is not required in gtwvg?
>>
>> Thank you very much.
>>
>> With best regards.
>>
>> Sudip
>>
>> --
>> View this message in context:
>> http://www.nabble.com/GTWVG-and-GTWVW-tp23866724p23866724.html
>> Sent from the Harbour - Dev mailing list archive at Nabble.com.
>>
>> _______________________________________________
>> Harbour mailing list
>> Harbour@harbour-project.org
>> http://lists.harbour-project.org/mailman/listinfo/harbour
>
>
>
> --
> Massimo Belgrano
>
--
Massimo Belgrano
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
