PC Toledo

Código: Selecionar todos

#include "fivewin.ch"

PROCEDURE ze_fwTextMsg

   LOCAL oVar, nCont // , oDialog

   hb_ThreadStart( { || oVar := DlgTextMsgClass():New(), oVar:Execute() } )
   Altd()
   Inkey(2)
   FOR nCont = 1 TO 50
      oVar:ShowText( "Test " + Ltrim( Str( nCont ) ) )
      Inkey(2)
   NEXT
   oVar:End()

   RETURN

CREATE CLASS DlgTextMsgClass

   VAR xDlg
   VAR xControl
   VAR cText
   VAR aText    INIT {}
   VAR nMaxRow  INIT 10
   VAR nStyle   INIT 2

   METHOD Execute()
   METHOD ShowText( cText )
   METHOD End() INLINE ::xDlg:End()

   ENDCLASS

METHOD Execute() CLASS DlgTextMsgClass

   LOCAL nDlgWidth, nDlgHeight, oFont // xStatusbar,
   LOCAL nFontSize

   nDlgWidth  := AppWindowInfo()[1]
   nDlgHeight := AppWindowInfo()[2]
   nFontSize  := Int( AppWindowInfo()[ 3 ] * 0.8 )
   ::nMaxRow  := Int( nDlgHeight / ( nFontSize + 2 ) - 2 )

   DEFINE FONT oFont NAME "ARIAL" SIZE 0, -nFontSize
   DEFINE DIALOG ::xDlg FROM 0, 0 TO nDlgHeight, nDlgWidth PIXEL ;
      FONT oFont ;
      TITLE "TextScroll" // COLOR COLOR_WHITE, CLR_JPA
   ::xDlg:SetIcon( TIcon():New(,,"APPICON" ) )
   ::xDlg:bValid := .F.

   IF ::nStyle == 1
      @ 10, 10 GET ::xControl VAR ::cText MEMO OF ::xDlg PIXEL ;
         SIZE nDlgWidth  - nFontSize, nDlgHeight - nFontSize FONT oFont COLOR CLR_BLACK, CLR_WHITE // TRANSPARENT BORDER
   ENDIF
   //::xGet:Disable()
   //Don't works for GET MEMO
   //::xGet:lDisColors := .F.
   //::xGet:nClrTextDis := RGB2N(20,20,20)
   IF ::nStyle == 2
      @ 10, 10 XBROWSE ::xControl ;
         Array Array(10) ;
         SIZE nDlgWidth  - nFontSize, nDlgHeight - nFontSize FONT oFont
         ::xControl:SetArray( ::aText )
   ENDIF

   ACTIVATE DIALOG ::xDlg CENTERED
      //ON INIT ( (Self), guistatusBarCreate( ::xDlg, @xStatusbar, "" ) )

   RETURN Nil

METHOD ShowText( cText ) CLASS DlgTextMsgClass

   LOCAL cItem

      IF Len( ::aText ) = ::nMaxRow
         ADel( ::aText, 1 )
         ::aText[ Len( ::aText ) ] := cText
      ELSE
         AAdd( ::aText, cText )
      ENDIF
      ::cText := ""
      FOR EACH cItem IN ::aText
         ::cText += cItem + hb_Eol()
      NEXT
   IF ::nStyle == 1
      ::xControl:VarPut( ::cText )
      ::xControl:Refresh()
   ELSE
      ::xControl:SetArray( ::aText )
      ::xControl:nArrayAt := Len( ::aText )
      ::xControl:Refresh()
   ENDIF

   RETURN Nil

//STATIC FUNCTION guiStatusBarCreate( xDlg, xStatusbar, cText )

   //DEFINE STATUSBAR xStatusBar PROMPT cText OF xDlg
   //xDlg:Refresh()

   //RETURN xStatusBar

Código: Selecionar todos

cColor := SetColor()
SetColor( "...." )

Código: Selecionar todos

cColor := SetColor( "..." )

Código: Selecionar todos

PROCEDURE Main

   hb_ThreadStart( { || principal() } )
   hb_ThreadWaitForAll()
   RETURN

PROCEDURE HB_GTSYS
   REQUEST HB_GT_WVG_DEFAULT
   RETURN

Código: Selecionar todos

// ISO 8859-1 

// hbmk2: -mt -b 

#include 'box.ch'
#include 'inkey.ch'
#include 'hbgtinfo.ch'
#include 'hbthread.ch'

REQUEST HB_CODEPAGE_PTISO

///////////////////////////////////////
PROCEDURE Main
   SETMODE( 30, 100 )
   AltD(1)
   AltD()

   hb_ThreadStart( { || Main2() } )
// hb_ThreadWaitForAll()

   @ 1,1 say 'Hello World!'
   Inkey(0)

RETURN

///////////////////////////////////////
PROCEDURE Main2
   
   hb_gtReload( 'WVT' )
   SETMODE(25,80)
   
   HB_CDPSELECT('PTISO')
   
   HB_GTINFO(HB_GTI_FONTNAME, 'Lucida Console')
   hb_gtInfo( HB_GTI_COMPATBUFFER, .F. )
   hb_gtInfo( HB_GTI_MSGBOX, .t. )
   
   Set Century On
   Set Date BRITISH
   Set ScoreBoard Off
   Set Wrap On
   
   Tela()
   SetCursor(0)
   
   SetColor( 'W/N*')
   @ 04, 04, MaxRow()-3, MaxCol()-5 BOX B_DOUBLE 
      
   clear typeahead
   Do While .T.  
      If InKey(1) == 27
         If Confirma('Abandonar o sistema ?')==1
            Return
        EndIf
      EndIf  
   EndDo
   
RETURN
   
  
///////////////////////////////////////
Function Tela()
   SetColor('N/N*')
   @ 02,00 CLEAR TO 23,79
   SetColor('W+/N')
   @ 00,01  Say SubStr('EMPRESA ABC',1,27)
   @ 00,27 Say '|'
   @ 00,28 Say PadC('SISTEMA TESTE',30)
   @ 00,57 Say '|'
   @ 00,59 Say Date()
   @ 00,70 Say '|'
   @ 01,00 Say Replicate( ' ', 80 ) Color 'N/W*'
   @ 24,00 Say Replicate( ' ', 80 ) Color 'N/W*'

   
Return(Nil)
   
///////////////////////////////////////
Function Confirma(cTexto)

   Local cOldTela:= SaveScreen(24,00,24,79)
   cColor:= SetColor('N/W*,W+/N')
   nCol:= (80-Len(cTexto))/2-6
   @24,00 Clear To 24,79
   @24,nCol Say cTexto
   @24,nCol+Len(cTexto)+2 Prompt 'Sim'
   @24,nCol+Len(cTexto)+7 Prompt 'Não'
   Menu To Confirm
   SetColor(cColor)
   RestScreen(24,00,24,79,cOldTela)

Return(Confirm)

///////////////////////////////////////
FUNCTION hb_GTSys()
   REQUEST HB_GT_WVT_DEFAULT
RETURN NIL