I confirm that dialog one in sample now works!
Thanks
Have you (or anybody) other sample gtwvg?
will wopen and WvtClass merged in same screen?
Can Help me working this demo?
Function Main()
WVT_Core()
WVT_Utils()
Wvt_SetGui( .t. )
Wvt_SetFont( 'Courier New', 18, 0, 0 )
Wvt_SetMouseMove( .t. )
Wvt_setCodePage( 255 )
SetMode( 25, 80 )
SetColor( 'W/R' )
SetPos( 10,10 )
? 'This is Harbour GT Demo'
MyOtherGT()
Do while lastkey() <> 27
Enddo
Return nil
Function MyOtherGT()
Local oBrw
Local hbpGT := Hb_WOpen( 20, 20, .... )
SetColor( 'W+/B' )
CLS
@ 1,5 SAY 'HARBOUR New Window' COLOR 'N/W'
Setkey( K_F11, {|| Hb_WClose( hbpGT ) } )
oBrw := TBrowseNew( 1,2,19,18, hbpGT )
oBrw:Execute()
Return nil
//-------------------------------------------------------------------//
// Wvt_SetFocus() must be a FUNCTION in your application
// needs to process messages sent through WM_SETFOCUS message
// received by the window.
//-------------------------------------------------------------------//
FUNCTION Wvt_SetFocus( hWnd )
RETURN nil
//-------------------------------------------------------------------//
// Wvt_KillFocus() must be a FUNCTION in your application
// needs to process messages sent through WM_KILLFOCUS message
// received by the window.
//-------------------------------------------------------------------//
FUNCTION Wvt_KillFocus( hWnd )
RETURN nil
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Pritpal Bedi
Sent: Friday, May 23, 2008 4:14 AM
To: [email protected]
Subject: [Harbour] 2008-05-22 19:00 UTC+0800 Pritpal
Bedi([EMAIL PROTECTED])
2008-05-22 19:00 UTC+0800 Pritpal Bedi ([EMAIL PROTECTED])
* harbour/contrib/gtwvg/tests/demowvg.prg
+ CLASS TBrowseWVG FROM TBrowse
Subclassed TBrowse to retreive <::aColumnsSep> for WVG browsers to
paint column
separator lines. Now Wvt*class prompt of main menu works like a
charm.
/* BTW, new TBrowse is really a wonderful code.
Hats off to Przem, once again.
*/
Regards
Pritpal Bedi
--
View this message in context:
http://www.nabble.com/2008-05-22-19%3A00-UTC%2B0800-Pritpal-Bedi-%28prit
pal%40vouchcac.com%29-tp17417347p17417347.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
