FiveTech Software tech support forums

É um exemplo de DesktopAlert, utilizando códigos de HTML. para executar utilize assim: MsgFancy(Memvar->oDlg,"Acesso negado!!! <br/><br/> Não é permitido modificar lançamentos quando já baixado (Repassado).",nil, CLR_YELLOW,.T.,.F.) coloque junto esta função... #define LWA_A...

April 2013 ========== * Enhancement: Enhanced vmh.prg on C Compiler path settings, and support for debug mode. * New: functions FW_GREATEST(...) and FW_LEAST(...). Similar to well known SQL functions GREATEST and LEAST, these functions return greatest or lowest non-nil value in a list of values. The...

con el permiso del maestro mercado * ============================================================================ * CLASS TSLines Version 6.0 Mar/1/2008 * Author: Manuel Mercado * Freeware, you can freely use this class just by respecting the authorïs name. * ========================================...

saludos hernan:: algun ejemplo simple de como aplicar la funcion.. GRACIAS Hola gracias a todos, pues es demasiado simple: Supongamos que tenemos un control que tenemos que QUITAR o AGREGAR EL TAB_STOP en tiempo de ejecucion, en funcion de una variable del aplicativo en cuestion. ChangeStyleWindow(...

Marcello, if you try to insert an control it is not transparent , it not run ok why ? sample @ 2,1 say osay Prompt "test" of oWnd size 40,100 DESIGN TRANSPARENT or @ 2,1 say osay Prompt "test" of oWnd size 40,100 DESIGN oSay:ltransparent:=.t. I try to insert : if ::lTransparent S...

Hello Antonio, I changed the method in TRibbonBar and added a class TXPanel. But I must do something wrong. If I press the ALT key I don’t see the panel. Would you be so kind to post a working sample. Thanks in advance Otto Otto, We are working on a Method KeybMode() that first of all may show those...

* DIALOG.PRG (Modified for using a brush to standard window color dialogs) * The brush is called WPAPER2 and it should be included in the .RC file ! // Add this line to your .RC file // WPAPER2 BITMAP "./Bitmaps/WPAPER2.BMP" #include "FiveWin.ch" #include "Constant.ch" ...

Hello, Otto!
It has to be something like:
#define WS_EX_CONTEXTHELP 1024
#define GWL_EXSTYLE (-20)
SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, nOr( GetWindowLong( oWnd:hWnd, GWL_EXSTYLE ), WS_EX_CONTEXTHELP ) )
But for me it's also doesn' work... I can't understand the reason...

Desculpas, aqui la classe correcta: //-> con modificaciones - 23/09/2008 #include "FiveWin.ch" #include "Constant.ch" #define SS_CENTER 1 #define SS_RIGHT 2 #define SS_GRAYRECT 5 // BOXRECT #define TA_LEFT 0 #define TA_RIGHT 2 #define TA_CENTER 6 #define TA_TOP 0 #define TA_BOTTOM 8 #define COLOR...

Better do it this way, as it is an extended style: #define GWL_EXSTYLE (-20) SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, WS_EX_CLIENTEDGE ) or SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, nOr( GetWindowLong( oWnd:hWnd, GWL_EXSTYLE ), WS_EX_CLIENTEDGE ) ) to keep the previous extended style too

How to change dialog style define from resource? RC: INFO DIALOG 6, 15, 473, 347 STYLE WS_POPUP | WS_VISIBLE | WS_SYSMENU FONT 10, "Courier" { } PRG: //perfectly as expected DEFINE DIALOG oDlg RESOURCE 'INFO' ... ACTIVATE DIALOG oDlg //------------------- //on the other prg with child window DEFINE ...

... DIALOGEX 4,3,146,81 CAPTION "IDD_DLG" FONT 14,"Times New Roman",700,0 STYLE WS_CAPTION|WS_VISIBLE|WS_SYSMENU|WS_TABSTOP EXSTYLE WS_EX_CLIENTEDGE BEGIN CONTROL "Test",IDC_STC1,"Static",WS_CHILD|WS_VISIBLE,24,19,66,17 END When I selected WS_EX_CLIENTEDGE ...

Otto,

Try this:

SetWindowLong( oDlg:hWnd, GWL_EXSTYLE,;
nXor( GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_CONTEXTHELP ) )

Toni,

Has probado a comparar los estilos en tiempo de ejecución ?

MsgInfo( GetWindowLong( oFolder:hWnd, GWL_STYLE ) )
ó
MsgInfo( GetWindowLong( oFolder:hWnd, GWL_EXSTYLE ) )

PROCEDURE tDialog_Modify() OVERRIDE METHOD Help95 CLASS tDialog WITH MyHelp95 RETURN *============================================ #define GWL_EXSTYLE -20 #define WS_EX_CONTEXTHELP 1024 Static Function MyHelp95() Local Self:=qSelf() if ::lHelpIcon == NIL ::lHelpIcon := .f. endif if ::lHelpIcon SetWi...