FiveTech Software tech support forums

... => SENDMESSAGE( 0 ) Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 555 ) Called from: .\source\classes\WINDOW.PRG => TWBROWSE:SENDMSG( 0 ) Called from: .\source\classes\WINDOW.PRG => TWBROWSE:SETFONT( 2769 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:INITIATE( ...

... BUTTON i have try   REDEFIBE BTNBMP this seems to work but "Parent Window" seem not to get "Userdef Event" ... i have try oWnd:SendMsg() or oWnd:PostMsg() but i got no Result Question : can i can change BUTTON to "something" else ? ( or is there a limitation IsKinof("BUTTON) ...

... ) @ 50,420 GET oGet VAR cText MEMO SIZE nWd - 440, 530 PIXEL OF oDlg FONT oFixed static function GetSetTopRow( oGet, nRow ) local nTopRow := oGet:SendMsg( EM_GETFIRSTVISIBLELINE ) oGet:SendMsg( EM_LINESCROLL, 0, nRow - nTopRow ) return nil I don't understand when I change the size of the get the ...

Damiano,

Try this:

#define BM_SETSTYLE 244

oDlg:bInit := { || oBtnBmp:SendMsg( BM_SETSTYLE, BS_DEFPUSHBUTTON, 1 ) }

or

oDlg:bInit := { || oBtnBmp:PostMsg( BM_SETSTYLE, BS_DEFPUSHBUTTON, 1 ) }

Sebastian,

Prueba PostMsg() en vez de SendMsg()

Prueba tambien con:
orichedit:SendMsg( EM_SETTOUCHOPTIONS, 1, 1 ) // ya que el tercer parámetro tiene que ser numérico

Que tal algo asi:

Code: Select all  Expand view

   SendMessage(hWn, EM_SETSEL, 0, -1)
   SendMessage(hWn, WM_COPY, 0, 0)
   buf:=oClp:GetText()
 

Regrads, saludos.

... he intenado: #DEFINE EM_SETTOUCHOPTIONS 1335 #DEFINE EM_GETTOUCHOPTIONS 1334 orichedit:SendMsg( EM_SETTOUCHOPTIONS, 1, .t. ) sin embargo no hace nada, le pido que me devuelva el valor: nvalor := orichedit:SendMsg( EM_GETTOUCHOPTIONS, 1, ...

Sebastian, no he llegado a utilizar este control en otro dispositivo que no sea un ordenador/portátil, por lo que no puedo comentar la problemática que planteas, pero, en cualquier caso, cuando estuve desarrollando esta clase, si me planteé poder hacer una selección rectangular al estilo que hago co...

Sebastian,

Has probado con EM_SETSEL ?

https://docs.microsoft.com/en-us/windows/win32/controls/em-setsel

... y luego cuando hacen click (en el método LButtonDown) de manera que ahí ya tengo las cuatro coordenadas del rect. Pensaba que enviando un ::SendMsg( EM_SETRECT, 0, @arect ) se quedaría seleccionado el texto que me interesa, pero no, no hace nada. Las coordenadas las he guardado tanto con ...

... <-TWINDOW:HANDLEEVENT(0) <-TBUTTON:HANDLEEVENT(0) <-_FWH(0) <-SENDMESSAGE(0) <-(b)TWINDOW(0) <-TMDICLIENT:SENDMSG(0) <-TMDICLIENT:CHILDCLOSE(0) Fixing the error is simple, that's not my question, what I want to know is how do I redirect appname.log so ...

Muchas gracias por tu respuesta.

El problema es que con SQLRRD, al hacer dbgobottom() no baja la barra de scroll, ni tampoco funciona el método para forzarlo, ni sendmsg.

Just define the needed position from inside the used DBF
and not from a defined xBrowse row-position like :

activate dialog oDlg centered ;
on init DBGOBOTTOM() // seek or anything else

// on init ( oBrw:VGoBottom(), oBrw:oVScroll:SendMsg( VK_DOWN ) )

regards
Uwe

... de xBrowse y SQLRDD, dado que Nages no contesta a los mensajes, necesito poder mover la barra de scroll vertical. Sin embargo, oBrw:VGoBottom() ni SendMsg( VK_DOWN ) funcionan. No hacen nada. Aquí va un ejemplo. #Include "FiveWin.Ch"#include "xbrowse.ch"#include "hbcompat.ch"FUNCTION ...

... of xBrowse and SQLRDD, since Nages doesn't answer the messages, I need to be able to move the vertical scroll bar. However, oBrw:VGoBottom() and SendMsg( VK_DOWN ) do not work. They don't do anything. Here is an example. #Include "FiveWin.Ch"#include "xbrowse.ch"#include "hbcompat.ch"FUNCTION ...