Two questions about the Harbour CA-Tools implemenation

[HBQuerier]

Hi,

Thought I'd give this a try, one more time.  I tried asking this in the harbour github last year, but received a non-answer.

Is anyone familiar with the CA-Tools implementation in Harbour?  If you compile ctwtest.prg, it results in the attached CTWTEST_CATools_Screen_Capture.jpg.

The windows have colors because SetColor() is used each time they are created with WOpen().  But note in ctwfunc.c, that the harbour extension of CA-Tools provides optional color attributes for Wopen()

HB_FUNC( WOPEN )
{
int iColor;

/* 6th (color) and 7th (lVisible) parameters are Harbour extensions */
iColor = hb_ctColorParam( 6, -1 ); /* Harbour extension */ /* HB_EXTENSION */
hb_retni( hb_ctwCreateWindow( hb_parni( 1 ), hb_parni( 2 ),
hb_parni( 3 ), hb_parni( 4 ),
hb_parl( 5 ), iColor,
hb_parldef( 7, HB_TRUE ) ) ); /* HB_EXTENSION */
}

I have 2 questions:

1) Why are the windows filled with equal signs "="?  Why aren't they filled with spaces?

2) Are the color extensions in WOpen() supposed to work?  I've tried them over & over in different ways for almost a year, but so far the only way to set colors in the window, is external to WOpen().

[oleksa]

Hi,

11 червня 2025, 22:37:37, Від "HBQuerier" <dcwh...@gmail.com>:

Hi,

Thought I'd give this a try, one more time.  I tried asking this in the harbour github last year, but received a non-answer.

Is anyone familiar with the CA-Tools implementation in Harbour?  If you compile ctwtest.prg, it results in the attached CTWTEST_CATools_Screen_Capture.jpg.

The windows have colors because SetColor() is used each time they are created with WOpen().  But note in ctwfunc.c, that the harbour extension of CA-Tools provides optional color attributes for Wopen()

HB_FUNC( WOPEN )
{
int iColor;

/* 6th (color) and 7th (lVisible) parameters are Harbour extensions */
iColor = hb_ctColorParam( 6, -1 ); /* Harbour extension */ /* HB_EXTENSION */
hb_retni( hb_ctwCreateWindow( hb_parni( 1 ), hb_parni( 2 ),
hb_parni( 3 ), hb_parni( 4 ),
hb_parl( 5 ), iColor,
hb_parldef( 7, HB_TRUE ) ) ); /* HB_EXTENSION */
}

I have 2 questions:

1) Why are the windows filled with equal signs "="?  Why aren't they filled with spaces?

Look at func SetClearB() http://tom-itx.no-ip.biz:81/~webpage/rue/clipper/NG/guides/tools1-3/ng844da.html

2) Are the color extensions in WOpen() supposed to work?  I've tried them over & over in different ways for almost a year, but so far the only way to set colors in the window, is external to WOpen().

Maybe look at func SetClearA() http://tom-itx.no-ip.biz:81/~webpage/rue/clipper/NG/guides/tools1-3/ng840a3.html

Regards,

Oleksii

[oleksa]

To use harbour extension you should rebuild Harbour with SET HB_USER_PRGFLAGS=-DHB_EXTENSION

Regards,

Oleksii

11 червня 2025, 22:37:37, Від "HBQuerier" <dcwh...@gmail.com>:

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/harbour-users/387915e2-ef29-46aa-b0cd-4c7e930079aan%40googlegroups.com.