PC Toledo

... L 0,154 Z" fill="#6A3B03" />

<!-- Orange/Triangular Bottom Shape -->
<path d="M 37,74 L 286,74 L 71,154 Z" fill="#FF843D" />

<!-- Main Text Block -->
<g font-family="Arial, Helvetica, sans-serif" fill="#000000">
<text x="76" y="34" font-size="25" font-weight="normal">HwGUI</text>
<text x ...

... safe.
! libs=msimg32 (and gdiplus when __USE_GDIPLUS)

### Notes
- cfuncs/TransparentBmp: the removed GetModuleHandle/LoadLibrary/
GetProcAddress block was a 1996-era workaround. MSIMG32.DLL was not
present on Windows 95 RTM or NT 3.51, so statically linking against
msimg32.lib would cause the OS ...

... hex streaming.
- richtext/Image: documentation updated to recommend `lFrame = .F.` for
inline images.

### Notes
- WordPad (RichEdit 8.1+) may block images from RTFs carrying the NTFS
`Zone.Identifier` stream (Mark-of-the-Web). This is not a code defect.
Locally generated RTFs have no MotW and ...

... fixes

2026-06-18 12:37 UTC+0300 Alexander Kresin (alkresin/at/yandex.ru)
* source/server/leto_2.c
* source/server/letofunc.c
* MAX_RECV_BLOCK increased

2026-06-18 12:10 UTC+0300 Alexander Kresin (alkresin/at/yandex.ru)
* source/server/leto_2.c
* source/server/letofunc.c
* date/time ...

... c.c**: fixed `HWG_MCISENDCOMMAND()` parameter handling – replaced
`hb_parc()` with `hb_parptr()` to correctly pass a pointer to the MCI
parameter block structure.
- **media_c.c**: fixed `HWG_NMCIOPEN()` MCI flag logic – `MCI_OPEN_TYPE`
is now set when `lpstrDeviceType` is provided, and `MCI_OPEN ...

... warnings
and Harfbuzz macro redefinition conflicts (`HB_DEPRECATED`).
* source/gtk/herrsys.prg:
- Included "guilib.h" inside the BEGINDUMP block to enforce clean
compilation logs on the errorsys module.

2026-08-08 16:03 UTC-0300 Itamar Lins <itamarlins at gmail.com>
* source/gtk/hbrowse ...

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