FiveTech Software tech support forums

... TWINDOW:MSGNOTFOUND( 0 ) Called from: ../../../tobject.prg => TWINDOW:GETHOTPOS( 0 ) Called from: .\source\classes\CONTROL.PRG => TGRID:SYSCOMMAND( 1337 ) Called from: .\source\classes\CONTROL.PRG => TGRID:HANDLEEVENT( 1835 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3681 ...

Enrico, I will remember that we changed for a similar case
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TControl
case nMsg == WM_SYSCOMMAND
return ::SysCommand( nWParam, nLoWord( nLParam ), nHiWord( nLParam ) )
Best regards,
Otto

... => (b)TWINDOW( 342 ) Llamado desde: .\source\classes\WINDOW.PRG => TWINDOW:END( 0 ) Llamado desde: .\source\classes\WINDOW.PRG => TWINDOW:SYSCOMMAND( 2493 ) Llamado desde: => TWINDOW:HANDLEEVENT( 0 ) Llamado desde: .\source\classes\WINDOW.PRG => _FWH( 3388 ) Llamado desde: => ...

Angel,

He estado revisándolo y hay algo que se me escapa:

Cuando pulsamos Alt + letra se genera un evento SC_KEYMENU que llega a los métodos SysCommand(), sin embargo
he puesto unas trazas en el método SysCommand() de TControl y no pasa por él...

Hasta ahí he llegado de momento

Еhank you, corrected. Now the function GetDevicePowerState returns .F. in any case. And when the display is on and when I turn it off by
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2)

ASI /* - autor: wmormar, INCOS - wmormar@hotmail.com - fecha: 31 . octubre . 2008 - hora: 03.11 */ #include "fivewin.ch" FUNCTION main() LOCAL oBmp LOCAL tCalc32 LOCAL oCalculator Local lIncrustar:=.f. //LOCAL this := Self LOCAL lSalir := .f. /* IF ::oCalculator:classname() == "TDIALO...

Prueba con

WM_SYSCOMMAND nWParam = 61488 nLParam = 16188370

https://msdn.microsoft.com/es-es/librar ... 60(v=vs.85).aspx

... Chamado de (b)ENCOMCLIENTES(207) //ACTIVATE WINDOW ... VALID owmdi1:FechaMdi(obrowse) Chamado de TDMDICHILD:END(0) Chamado de TDMDICHILD:SYSCOMMAND(0) Chamado de TWINDOW:HANDLEEVENT(0) Chamado de TDMDICHILD:HANDLEEVENT(0) Chamado de _FWH(0) Chamado de WINRUN(0) Chamado de TMDIFRAME:ACTIVATE(0) ...

... Chamado de (b)ENCOMCLIENTES(207) //ACTIVATE WINDOW ... VALID owmdi1:FechaMdi(obrowse) Chamado de TDMDICHILD:END(0) Chamado de TDMDICHILD:SYSCOMMAND(0) Chamado de TWINDOW:HANDLEEVENT(0) Chamado de TDMDICHILD:HANDLEEVENT(0) Chamado de _FWH(0) Chamado de WINRUN(0) Chamado de TMDIFRAME:ACTIVATE(0) ...

... Chamado de (b)ENCOMCLIENTES(207) //ACTIVATE WINDOW ... VALID owmdi1:FechaMdi(obrowse) Chamado de TDMDICHILD:END(0) Chamado de TDMDICHILD:SYSCOMMAND(0) Chamado de TWINDOW:HANDLEEVENT(0) Chamado de TDMDICHILD:HANDLEEVENT(0) Chamado de _FWH(0) Chamado de WINRUN(0) Chamado de TMDIFRAME:ACTIVATE(0) ...

... Metodo y no utilizar el que ya existe? -> HandleEvent Hay algun motivo? Gracias Las pulsaciones Alt+... son rutadas automaticamente al método SysCommand, pues Windows genera un mensaje WM_SYSCOMMAND. Antonio, es que el tema de las teclas lo tenia implementado asi: METHOD HandleEvent( nMsg, ...

Cristobal, Cristobal, la implementación Alt-C y las otras combinaciones: METHOD SysCommand( nType, nLoWord, nHiWord ) CLASS TScintilla .../...             case nLoWord == Asc( "i" ) .or. nLoWord == Asc( "I" )   Habria ...

Se ma he ocurrido que se podría añadir un DATA a TWindow que capturase el Último comando de SysCommand . Sería muy util para saber muchas cosas sobre el flujo del programa. Por ejemplo: si se va a jecutar el salvapantallaS, si se ha desplazado el contenidO de una ventana ...

... Cursor del Mouse FLECHA VERDE para el Dialogo y el Say se muestra correcto"  EXTEND CLASS  TDialog       WITH DATA bHelpIconOVERRIDE METHOD SysCommand    IN CLASS TDialog WITH MiSysComnd     DEFINE CURSOR    oCur           RESOURCE "OPCION"     DEFINE CURSOR    oSel           RESOURCE ...

Romeo,

#define WM_SYSCOMMAND 0x0112
#define SC_CLOSE 0xF060

to check if the keyboard is open you can do:

Code: Select all  Expand view

function IsKeyboardVisible()

return FindWindow( "IPTip_Main_Window" ) != 0
 

Antonio, thanks!