FiveTech Software tech support forums

... class already has all methods of TControl and TWindow. You need not spend your time in writing code from scratch like using GetWindowLong(...) and SetWindowLong(..). All such things are already available in a very simple and userfriendly way. A user of TGrid class can oGrid  := TGrid():New( ...

hi Antonio, SetWindowLong( oList:hWnd, -16, nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, LVS_REPORT ) ) HB_FUNC() in c:\fwh\source\winapi\listview.c is special for Listview_Group it have LVITEM and LVGROUP Structure but not LVCOLUMN which ...

Dear Jimmy,

Please search for LISTVIEW in FWH\samples folder and you will find six results

I guess you could use:
SetWindowLong( oList:hWnd, -16, nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, LVS_REPORT ) )
used in samples\listvie.prg

Yes, but can do/remove the border via SetWindowLong() ? I found a information to change the window-style //* New: New function __ChangeStyleWindow( hWnd, nStyle, nStyleType, lAdd ) in etc.prg, provided by: //Hernan Diego Ceccarelli! It allows ...

Yes, but can do/remove the border via SetWindowLong() ?

... coloque junto esta função... #define LWA_ALPHA 2 #define GWL_EXSTYLE -20 #define WS_EX_LAYERED 524288 Function SetTransparent( oDlg ) SetWindowLong( oDlg:hWnd, GWL_EXSTYLE, nOr( GetWindowLong( oDlg:hWnd, GWL_EXSTYLE ), WS_EX_LAYERED ) ) SetLayeredWindowAttributes( oDlg:hWnd, 0, 160, ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... // la aplicación ( en este caso La calculadora ) #define SC_CLOSE 61536 #define WM_SYSCOMMAND 274 // Constante para usar con GetWindowLong y SetWindowLong #define GWL_STYLE -16 // Constantes para SetWindowPos #define SWP_FRAMECHANGED 0x0020 #define SWP_NOMOVE 0x0002 #define SWP_NOSIZE 0x0001 ...

... QUITARESTILO ) { HWND hWnd = (HWND) hb_parnl( 1 ); DWORD dwStyle = GetWindowLong( hWnd, GWL_STYLE ); dwStyle &= ~ ((DWORD)hb_parnl(2)); SetWindowLong( hWnd, GWL_STYLE, dwStyle ); } Se tendría que ajustar la ventana a las coordenadas 0,0 del área cliente de la caja de diálogo y hacer ...

Como la ventana cliente usa una clase predefinida de Windows, "MDICLIENT", la única solución
que se me ocurre seria intentar modificar esa clase usando SetWindowLong() y añadirle el estilo CS_DBLCLKS

#define CS_DBLCLKS 0x0008

... clausula 2007 nao piscar ao mover o mouse //Adicionei esta linha para resolver um problema com a message bar ao mover o mouse com a clausula 2007 SetWindowLong( oWnd:oMsgBar:hWnd, GWL_STYLE, nOr( GetWindowLong( oWnd:oMsgBar:hWnd, GWL_STYLE ), WS_CLIPCHILDREN ) ) Qué sistema operativo utilizas? ...

... clausula 2007 nao piscar ao mover o mouse //Adicionei esta linha para resolver um problema com a message bar ao mover o mouse com a clausula 2007 SetWindowLong( oWnd:oMsgBar:hWnd, GWL_STYLE, nOr( GetWindowLong( oWnd:oMsgBar:hWnd, GWL_STYLE ), WS_CLIPCHILDREN ) ) Qué sistema operativo utilizas? ...

... clausula 2007 nao piscar ao mover o mouse //Adicionei esta linha para resolver um problema com a message bar ao mover o mouse com a clausula 2007 SetWindowLong( oWnd:oMsgBar:hWnd, GWL_STYLE, nOr( GetWindowLong( oWnd:oMsgBar:hWnd, GWL_STYLE ), WS_CLIPCHILDREN ) )

... Valid(ValidExcel( oExcel )) return /*********************************************/ static procedure OnInitExcel(oExcel) /* */ SetWindowLong(oExcel:hWnd,-16,"L") oExcel:DisplayAlerts := .F. oExcel:ActiveWorkBook:Protect('',.f.,.f.) //Para poder manupilar el estado ...

... Valid(ValidExcel( oExcel )) return /*********************************************/ static procedure OnInitExcel(oExcel) /* */ SetWindowLong(oExcel:hWnd,-16,"L") oExcel:DisplayAlerts := .F. oExcel:ActiveWorkBook:Protect('',.f.,.f.) //Para poder manupilar el estado ...