PC Toledo

... C "
@ MAXROW()-08,8 PROMPT "Paste Ctrl + V "
@ MAXROW()-07,8 PROMPT "Delete DELETE "
@ MAXROW()-06,8 PROMPT "Rename "
@ MAXROW()-05,8 PROMPT "New Folder "
@ MAXROW()-04,8 PROMPT "Compact "
@ MAXROW()-03,8 PROMPT "Order by" + chr(16) + " "
@ MAXROW()-02,8 PROMPT "About" + chr(16 ...

... EXECUTE, cSQL )
ctc->(dbCloseArea()) //Close table contact
dbUseArea( .T., , "SELECT * FROM contacts", "ctc" ) //need open contacts table becouse new data.
Else
hwg_msginfo('Fail to add data')
EndIF
...


Primeiro vc grava no SGBC. Se gravou só no DBF(array) não vai para o banco de dados.
Se ...

... cancel
EndIf
EndIf

PREPARE FONT oFontDlg NAME "Z003" Width 0 Height 16
PREPARE FONT oFontBrw NAME "Courier" Width 0 Height 14

Use contacts new shared alias "ctc"

INIT DIALOG oDlg CLIPPER NOEXIT TITLE "Contacts Via DBFCDX" AT 0,0 size 1024,500 Font oFontDlg STYLE DS_CENTER
@ 10,080 browse ...

... table>]
cXMLSedex := cXMLSedex + [</html>]
else
cXMLSedex := "" // Esvazia para pegar novo conteudo
oPg := _XMLHttpRequest() // TOLEAuto():New("Microsoft.XMLHTTP")
if oPg = nil
return nil
end
oPg:Open( "GET", cEanApi, .F. )
oPg:Send()
cXMLSedex := oPg:ResponseText // oPg:ResponseXML ...

... IF Empty( aBoletoList )
RETURN Nil
ENDIF
IF ValType( aBoletoList ) != "A"
aBoletoList := { aBoletoList }
ENDIF
oPDFBoleto := BoletoPDFClass():New()
oPDFBoleto:Begin( oPDF, oPDF == Nil )
FOR EACH oBoleto IN aBoletoList
oPDFBoleto:Add( oBoleto )
NEXT
IF ! Empty( cFileName )
oPDFBoleto ...

... JPEMPRESA ON JPEMPRESA.IDEMPRESA = " + NumberSQL( AppFilial() ) + ;
" WHERE IDPEDIDO = " + NumberSQL( nIdPedido )
:Execute()
oPDF := PDFClass():New()
oPDF:SetType( 2 )
oPDF:nDrawMode := 2
oPDF:nPDFPage := 2
oPDF:cFontName := "Helvetica"
oPDF:Begin()
oPDF:AddPage()
FOR nCont = 0 TO 150 ...

... gtInfo( HB_GTI_FONTWIDTH, 15 )

hb_gtInfo( HB_GTI_WINTITLE, "TEST" )
hb_gtInfo( HB_GTI_ICONFILE, "test.ico" )
hb_gtInfo( HB_GTI_FONTNAME, "Courier New" )

hb_gtInfo( HB_GTI_CODEPAGE, 255 )
hb_gtInfo( HB_GTI_ALTENTER, .T. )
hb_gtInfo( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_FONT )

hb_gtInfo( HB_GTI ...

... 02-07 20:58 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc/gtqtc1.cpp
* set HighDpiScaleFactorRoundingPolicy to Round for new QT versions
except Android builds.
It fixes problem with proportional fonts in QT6 though in some
environments it may not give the optimal ...

... 02-07 20:58 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc/gtqtc1.cpp
* set HighDpiScaleFactorRoundingPolicy to Round for new QT versions
except Android builds.
It fixes problem with proportional fonts in QT6 though in some
environments it may not give the optimal ...

... text?", { "YES", "NO" } ) == 1
s := hb_TSToStr( hb_DateTime() ) + hb_eol() + ;
"Harbour GT" + hb_gtVersion() + " clipboard test" + hb_eol()
? "New clipboard text: [" + s + "]"
hb_gtInfo( HB_GTI_CLIPBOARDDATA, s )
ENDIF
#endif
ENDIF
ENDDO
?

RETURN

Então o ambiente nativo(para os ...

... 02-07 20:58 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc/gtqtc1.cpp
* set HighDpiScaleFactorRoundingPolicy to Round for new QT versions
except Android builds.
It fixes problem with proportional fonts in QT6 though in some
environments it may not give the optimal ...

... CREATE CLASS RunWhileThreadClass

VAR lExit INIT .F.
VAR nThreadId
VAR nInterval INIT 600
VAR cWindowTitle INIT ""
VAR bCode
METHOD New() INLINE ::nThreadId := hb_ThreadSelf(), SELF
METHOD Execute( bCode )

ENDCLASS

METHOD Execute( bCode ) CLASS RunWhileThreadClass

LOCAL nCont ...

... the
// prevous example and extracts from it the structure definition
// for the Customer.dbf file.

PROCEDURE Main
LOCAL oXmlDoc := TXmlDocument():new()
LOCAL oXmlNode, aStruct := {}

oXMlDoc:read( Memoread( "customer.xml" ) )

oXmlNode := oXmlDoc:findFirst()
? oXmlNode:cName

oXmlNode ...

NÃO É um teste de uso, é apenas teste de compilação.



PROCEDURE Main

SetMode(33,100)
CLS
hpdf_New()
hb_Zebra()
Inkey(0)

RETURN



d:\temp>hbmk2 test
hbmk2: Processing environment options: -comp=mingw
hbmk2: Processing configuration: d:\harbour\bin\hbmk.hbc
Harbour 3.2.0dev (r2601171121 ...

... Version: Harbour 3.2.0dev (r2601091642)
Compiler: MinGW GNU C 7.3 (32-bit)
Platform: Windows 11 or newer 10.0.26200
PCode version: 0.3
ChangeLog last entry: 2026-01-09 17:42 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
ChangeLog ID ...