PC Toledo

... RC


É só o zero à esquerda que é inválido.

O uso disso é no RC

#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 ...

Muito obrigado alxsts, não tinha pensado em usar code block, fiz direto. Tem Vantagens ?
Pergunto se acha que a rotina de CFG_BoToes está feita da forma mais certa porque foi a forma que encontrei para apresentar os botões, criando a matriz estática e fazendo uma procura para poder ativar e desativar ...

... gostaria de te mostrar algo que, creio, desconheças.

Trata-se de um recurso muito bom, disponivel tanto no Harbour quanto no xHarbour: codeblocks estendidos. Dentro deles, poderá escrever um Prg inteiro, caso necessite:


LOCAL bBlock := { |n|

LOCAL nVar

FOR nVar := 1 To 10
QOut( nVar ...

... ch"
#include "hblang.ch"
#include "hbclass.ch"

CLASS HPaintCB INHERIT HObject

DATA aCB INIT {}

METHOD New() INLINE Self
METHOD Set( nId, block, cId )
METHOD Get( nId )

ENDCLASS

METHOD Set( nId, block, cId ) CLASS HPaintCB

LOCAL i, nLen

IF Empty( cId ); cId := "_"; ENDIF

nLen ...

... 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 ...