FiveTech Software tech support forums

hi, i´m still a Newbie under FiveWin and did not know that TControl have Method to change Style. will it work with Listview as i have not found any Listview_Macro :?: i now use this HB_FUNC() for TGrid() HB_FUNC( LV_CHANGEEXTENDEDSTYLE ){   #ifndef _WIN64      HWND hWnd = ( HWND ...

Am I write in my understanding the you are developing a new class TGRID using ListView. For it to work with FWH Windows and dialogs, we have to derive the class from TControl. CLASS TGrid FROM TControl TControl is derived from TWinndow. So the new TGrid class already has all methods of TControl and ...

If you make a class as derived from TWindow class (or better TControl class)

We can use Parent method:

Code: Select all  Expand view

oOurWnd:WinStyle( nNewStyle, lOnOff )
// .t. to add new style
// .f. to remove style, if already exists
 

This does everything that is needed.

nStyle := nAnd( ::nStyle, nNot( LVS_ICON ) ) nStyle := GetWindowLong( ::hWnd, GWL_STYLE )SetWindowLong( ::hWnd, GWL_STYLE, nAnd( nStyle, nNot( nRemveStyle ) ) )  Another way: nExistingStyle := GetWindowLong( ::hWnd, GWL_STYLE )if lAnd( nEx...

hi, i want to "remove" Style   nStyle := nAndNot(::nStyle,LVS_ICON     ) and add new Style   nStyle := nOr(nStyle,nView)   SetWindowLong(::hLv , GWL_STYLE , nStyle ) but i can´t find nAndNot() in c:\fwh\source\function\or.c how to "remove" Style under Five...

hi, i wonder ... #define LVCF_FMT              0x01#define LVCF_SUBITEM          0x08#define LVCF_TEXT             0x04#define LVCF_WIDTH            0x02PROCEDURE TESTLOCAL nTest1,nTest2   nTest1 := nor(LVCF_FMT,LVCF_WIDTH,LVCF_TEXT,LVCF_SUBITEM)   nTest2 := LVCF_FMT + LVCF_WIDTH + LVCF_TEXT...

For flags we better use OR not + OR vs + 1 OR 2 = 3 1 + 2 = 3 // OK 1 OR 1 = 1 1 + 1 = 2 // NOT OK 3 OR 6 = 7 ( binary 011 OR 110 = 111 ) 3 + 6 = 9 // NOT OK Ways to use "OR" ( a | b | c ...) // clang nOr( a, b, ... ) // FWH function NUMOR( a, b, .. ) // CT function HB_BITOR( a, b ) // xHa...

Dear Jimmy, FWH also provides a function nOr() you can use the same way. Also you can use Harbour's own function hb_bitOr() > ::oLVCol:mask := LVCF_FMT + LVCF_WIDTH + LVCF_TEXT + LVCF_SUBITEM You can't use it that way as OR is a different process from adding those values > p.s. can use use hbx...

hi, to set different Constante under Xbase++ i use  ::oLVCol:mask := nOr( LVCF_FMT,  LVCF_WIDTH , LVCF_TEXT , LVCF_SUBITEM ) i know i can "add" Constante this Way  ::oLVCol:mask := LVCF_FMT + LVCF_WIDTH + LVCF_TEXT + LVCF_SUBITEM but i like to know how under FiveWin :?: p.s. can us...

Perry Nichols wrote:how do you identify borland specific resources?

Search for the string "bor" inside your RC files.

EMG

total de archivos a comprimir, muestra en una Listbox como en XBACKUP LITE By Carlos vargas.

zlib_bor.lib, también no la tengo

salu2

Amplio pregunta; 1) la zlib_bor.lib, no la tengo. No obstante con la zlib sola e podido crear un ejecutable y comprime. Es determinante zlib_bor? 2) Mi intención es mostrar el avance mediante 2 meter. Uno que muestra el avance en bytes del archivo a comprimir/descomprimir y el segundo meter que mues...

HB_ZIPFILE:HB_ZIPFILE() Create a zip file Syntax HB_ZIPFILE( <cFile> , <cFileToCompress> | <aFiles>, <nLevel> , <bBlock>,<lOverWrite> ,<cPassword>,<lWithPath>,<lWithDrive>) ---> lCompress Arguments <cFile> Name of the zip file <cFileT...

Yessica,

Puede ser que hayas usado un control propio de Borland en ese diálogo y que no estés cargando la DLL de Borland (BWCC32.DLL) y que por eso falle.

Revisa ese diálogo como texto (show as text en el workshop) y comprueba si algún control empieza por BOR...

... % 92 The same occurs when I try to load the program thought the network. What can be wrong? Try adding the following to your startup code: hBorland := LoadLibrary( "BWCC.DLL" ) and then: FreeLibrary( hBorland ) in your exit code. Someone in this NG has figured out how to run controls from ...