FiveTech Software tech support forums

... .and. ::lCancel .and. ::cAccel != Nil .and. GetAsyncKey( VK_MENU ) .and. ; GetAsyncKey( Asc( Upper( ::cAccel ) ) ) .and. ::nWakeup == 0 ) ::SendMsg( FM_CLICK ) Return 1 ElseIf (! ::oWnd:lValidating .and. ::lWhen .and. !::lCancel .and. ::cAccel != Nil .and. ; GetAsyncKey( VK_MENU ) .and. ...

Antonio, here are still a logical call to ::oGet and should removed! METHOD VarGet() CLASS TComboBox local cRet, nAt := ::SendMsg( CB_GETCURSEL ) if nAt != CB_ERR ::nAt = nAt + 1 cRet := If( ::oGet == nil, ::aItems[ nAt + 1 ], ::oGet:GetText() ) //::OGET!!! else cRet := GetWindowText( ...

...  DEFINE WINDOW oWnd TITLE "SendWnd"   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007   DEFINE BUTTON OF oBar PROMPT "SendMsg" ACTION SendData()   SET MESSAGE OF oWnd TO '' 2007   @ 0,0 XBROWSE oBrw OF oWnd ALIAS "CUSTOMER" ;      AUTOCOLS CELL ...

oRichEdit:SetPos( oRichEdit:SendMsg( EM_LINEINDEX, nLine, 0 ) + nColumn )

... ventana hija, MDICHILD notece que esta comentado // DANIEL si comento esta linea de TWindow asi, funciona //#ifdef __CLIPPER__ if oIcon != nil ::SendMsg( WM_SETICON, 0, oIcon:hIcon ) endif //#endif

Hola esto quiere decir que ::SendMsg( WM_SETICON, 0, oIcon:hIcon ) solo se ejecutara si oIcon no es un nil.. No, se ejecuta el codigo if oIcon != nil::SendMsg( WM_SETICON, 0, oIcon:hIcon )endif si la constantes __CLIPPER__ esta ...

... MUY CLARA LA EXPLICACION AHORA LA PREGUNTA DEL MILLON en la clase twindow en el metodo new hay esta linea:: #ifdef __CLIPPER__ if oIcon != nil ::SendMsg( WM_SETICON, 0, oIcon:hIcon ) endif #endif esto quiere decir que ::SendMsg( WM_SETICON, 0, oIcon:hIcon ) solo se ejecutara si oIcon no es un ...

en la clase TWindow

en metodo NEW, se encuentra esta linea.

#ifdef __CLIPPER__
if oIcon != nil
::SendMsg( WM_SETICON, 0, oIcon:hIcon )
endif
#endif

a que se refiere el Ifdef --- y porque

... volver a presionar la mencionada tecla sin que el usuario la suelte fisicamente . Sé que podría hacerlo, pero no encuentro algo como SendMsg(soltar-tecla) y SendMsg(presionar-tecla). Sigo buscando. Saludos.

... function will be called after each trigger on the KEY_DOWN key (arrow down) . Pseudo-code: If nKey == VK_DOWN. And. GetKeyState (VK_SHIFT) oBrw: sendmsg (release key) oBrw: sendmsg (keypress) endif Any suggestions or ideas? Thanks in advance. Greetings. Saludos.

... será llamada después de cada accionar de la tecla KEY_DOWN (flecha-abajo). Seudo-codigo: If nKey == VK_DOWN .and. GetKeyState(VK_SHIFT) oBrw:SendMsg(Soltar tecla) oBrw: SendMsg(Oprimir tecla) endif Alguna sugerencia, o idea? Gracias de antemano. Saludos.

Saludos



intenta esto

#define SC_KEYMENU 0xF100
#define WM_SYSCOMMAND 0x112

SetKey( VK_F5, {|| oWnd:SendMsg( WM_SYSCOMMAND, SC_KEYMENU, 0 ) } )

Antonio FUNCTION SENDMAIL( nRow, oLbx, aItem ) local nFirst := oLbx:SendMsg( LB_GETTOPINDEX ) + 1 local nHeight := oLbx:SendMsg( LB_GETITEMHEIGHT ) local nAt := Int( nRow / nHeight ) + nFirst LOCAL nPippo := aItem[1] if nAt > 0 .and. nAt <= Len( oLbx:aItems ...

How make to MdiChild start with "TILE"

DEFINE WINDOW NewFile Title NewTitle MDICHILD OF oWndMain
ACTIVATE WINDOW NewFile
// try this more no work
NewFile:SendMsg( 550, .t. )

... oRTF:SetFocus() ) DEFINE BUTTON RESOURCE "Undo" OF oBar GROUP ; MESSAGE "Undo" TOOLTIP "Undo" NOBORDER ; WHEN ( oRTF:SendMsg( EM_CANUNDO ) != 0 ) ; ACTION ( oRTF:Undo(), oRTF:SetFocus() ) DEFINE BUTTON RESOURCE "Redo" OF oBar ; MESSAGE "Redo" TOOLTIP ...