PC Toledo

Código: Selecionar todos

#include "wvtwin.ch"

PROCEDURE Main
   SetMode(25,80)
   CLS
   ToolBar()
   StatusBar()
   Button()
   Progressbar()
   Inkey(0)
   RETURN


STATIC FUNCTION Progressbar()
   LOCAL oProgressbar, nCont
   oProgressbar := wvtProgressbar():New( wvgSetAppWindow(), , 10, 10, 15, 60 )
   oProgressbar:Create()
   oProgressbar:Activate()
   FOR nCont = 1 TO 100
      oProgressBar:Display( nCont, 100 )
      Inkey(0.1)
   NEXT
   RETURN NIL

STATIC FUNCTION StatusBar()
   LOCAL oStatusBar, oPanel
   oStatusBar := wvgStatusBar():New( wvgSetAppWindow() ):Create( , , , , , .T. )
   oPanel := oStatusBar:GetItem(1)
   oPanel:Caption := "Test of status bar"
   RETURN NIL

STATIC FUNCTION Toolbar()
   LOCAL oToolbar, cDirIcon := "JPAICON\"
   oToolbar := WvgToolBar():New( wvgSetAppWindow(), , { 0, 0 }, { 0, 0 }, , .T. )
   oToolbar:style        := WVGTOOLBAR_STYLE_FLAT
   oToolbar:borderStyle  := WVGFRAME_RECT
   oToolbar:buttonWidth  := 32
   oToolbar:buttonHeight := 32
   oToolbar:imageWidth   := 32
   oToolbar:imageHeight  := 32
   oToolbar:showToolTips := .T.
   oToolbar:Create()
   oToolbar:addItem( "New"       , "policial.bmp" )
   oToolbar:AddItem( "Select"    , "policial.bmp" )
   oToolbar:AddItem()
   oToolbar:AddItem( "FontDlg"   , "policial.bmp" )
   oToolbar:AddItem( "Tools"     , "policial.bmp" )
   oToolbar:AddItem( "Index"     , "policial.bmp" )
   oToolbar:AddItem()
   oToolbar:AddItem( "Show"      , "policial.bmp" )
   oToolbar:AddItem( "Hide"      , "policial.bmp" )
   oToolbar:ButtonClick := { | oBtn | wapi_Messagebox( wapi_GetActiveWindow(), oBtn:Caption, "toolbar", MB_ICONASTERISK ) }
   RETURN NIL

STATIC FUNCTION Button()
   LOCAL oThisButton, nCont
   FOR nCont = 1 TO 10
      oThisButton := wvgPushButton():New()
      oThisButton:Caption := Ltrim( Str( nCont ) )
      oThisButton:PointerFocus := .F. 
      oThisButton:Create( , , { -18, -nCont * 5 }, { -2, -4 } )
      oThisButton:Activate := { | oBtn | wapi_MessageBox( wapi_GetActiveWindow(), oBtn:Caption, "button", MB_ICONASTERISK ) }
   NEXT
   RETURN NIL

Código: Selecionar todos

test.prg
errorsys.prg
gtwvg.hbc
-compr
-strip