PC Toledo

... o EXE, usado principalmente pelo mingw, mas parece valer pra todos


#include "build.ch"

1 VERSIONINFO
FILEVERSION JOSEQUINTAS_VERSAO_RC
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "040904E4"
BEGIN
VALUE "CompanyName" , "JPA TECNOLOGIA LTDA"
VALUE "FileDescription" , "JPA Integrado"
VALUE ...

... VER_FILEVERSION
PRODUCTVERSION HB_VER_PRODUCTVERSION
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
FILEFLAGS 0
FILEOS VOS__WINDOWS32
FILETYPE VFT_APP
BEGIN
BLOCK "StringFileInfo"
BEGIN
/* LANGUAGE: US English ENCODING: Windows-1250 (0x04E2) */
BLOCK "040904B0"
BEGIN
VALUE "Comments", "See COPYING.txt ...

... RetBRow(nLi, nCi, nLf, nCf, aACab, aADados, nColSoma, cUo, cTipo, cNome)

LOCAL lContinue := .T. ,;
nKeyPressed := 0,;
nArryRowNo := 1,;
i, bBlock, oTBColumn, oCol, xVar
Private mVltotal := 0.00, mVar

* Draw a box around Browse window
If AbreJanela( 'RETENÇÕES A INCLUIR NO PAGAMENTO:', nLi ...

... quero colocar a linha que tem a primeira coluna "SIM" com a segunda cor de oBrose:colorSpec e não estou sabendo o lugar de colocar a variável colorBlock, ou até de saber se o valor dela está correto.
////////////////////////////////////////////////////////////////////////////////
//Fonte: https ...

... prg", .T., .F., .F., "Nice button 2 ***?***" }, ;
;
{ "", .F., .F., .F., "" }, ;
;
; // next review
{ "colrbloc.prg", .T., .T., .T., "Color Block" }, ;
{ "dbview.prg", .T., .T., .T., "DBView" }, ;
{ "dialogboxes.prg", .T., .T., .T., "Dialogboxes" }, ;
{ "escrita.prg", .T., .T., .T ...

... in C preprocessor suggested by Aleksander

* .github/workflows/windows-ci.yml
* minor simplification

2025-02-03 10:50 UTC+0100 Aleksander Czajczynski (hb fki.pl)
* contrib/hbcurl/core.c
* formatting, use HB_IT_EVALITEM instead ( HB_IT_BLOCK | HB_IT_SYMBOL )



Saudações,
Itamar M. Lins Jr.

... de resource entre aspas, com aspas funciona em qualquer compilador


#include "build.ch"

1 VERSIONINFO
FILEVERSION JOSEQUINTAS_VERSAO_RC
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "040904E4"
BEGIN
VALUE "CompanyName" , "JPA TECNOLOGIA LTDA"
VALUE "FileDescription" , "JPA Integrado"
VALUE ...

... FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x0
FILEFLAGS 0x0
FILEOS VOS__WINDOWS32
FILETYPE VFT_APP
FILESUBTYPE VFT2_UNKNOWN
{
BLOCK "StringFileInfo"
{
BLOCK "040904E4"
{
VALUE "Comments", "Sistema Desenvolvido Pela Empresa TAL - www.empresatal.com.br \0"
VALUE "CompanyName ...

... only thread which created window can process
window messages so if you are suing GTWVT or GTWVG the main
thread should not be suspended or it will block other threads
which will execute 'inkey(0)' or sth similar. Just simply
incoming keys can be processed only by thread which created
GTWVT window ...

... Mas pode melhorar

Apague as linhas 193 até 201 e no lugar coloque o código abaixo. Creio que vá funcionar.

oTbrowse:goTop():forceStable()

While Empty( Eval( oTBrowse:getcolumn(1):block ) )
oTBrowse:down():forceStable()
If oTBrowse:hitbottom()
EXIT
Endif
Enddo

Edit: apagar linhas 193 até 201

... sei se pode causar problemas extras, mas fez o que eu queria.

Em c_error.c

adicionei #include "hbapierr.ch"

adicionei este bloco

and add this block before messagebox:
{
hb_errRT_BASE_SubstR( 0, 0, lpDisplayBuf, "", 0 );
}
MessageBox( NULL, ( LPCTSTR ) lpDisplayBuf, TEXT( "MiniGUI Error ...

... T. )
ENDIF
NEXT

RETURN nil

/* FUNCAO PDFDRAWPAGE( aPage)
Parametros
aPage -> Array com items a escrever na PDF
bOnNewPage -> Code block para evaluar se pagina acabar
*/

FUNCTION PDFDRAWPAGE( aPage, bOnNewPage )

LOCAL cItem

FOR each cItem in aPage

/* testa se a pagina acabou ...

... tbrowse.ch"
#include "setcurs.ch"
#include "inkey.ch"

#xtrans :data => :cargo\[1]
#xtrans :recno => :cargo\[2]

PROCEDURE Main

LOCAL i, nKey, bBlock, oTBrowse, oTBColumn
LOCAL aHeading := { "Código", "Nome", "CPF / CNPJ" }
LOCAL aWidth := { 9, 40, 20 }, nRet

// Create TBrowse object ...

... Static PROCEDURE NFeBrowse( nLi, nCi, nLf, nCf, aACab, aADados )

LOCAL lContinue := .T. ,;
nKeyPressed := 0,;
nArryRowNo := 1,;
i, bBlock, oTBColumn, xVar, oCol, mId

Private aRetorno := {}

* Draw a box around Browse window
If AbreJanela( 'NOTAS FISCAIS ELETRÔNICAS', nLi, nCi, nLf ...

... oBrowse:ColPos, oBrowse:RowPos, oBrowse:ColPos }, { 2, 2 } ) // linha/coluna está com o cursor

oCol := oBrowse:getColumn(1)
mVar := EVal(oCol:block)

oBrowse:refreshall() // refaz so' a linha do browse

IF ! Empty( oBrowse:Freeze ) // Marcar parte congelada
oBrowse:ColorRect( { oBrowse ...