FiveTech Software tech support forums

... Harbour" #else #define FWVERSION "FWH64 15.10" #define FWDESCRIPTION "FiveWin for Harbour 64" #endif #endif #xtranslate SetCursor( => WSetCursor( // to avoid conflicts with Harbour functions #xtranslate __Keyboard( => ___Keyboard( // to avoid conflicts with Harbour ...

... SetClrPair(<cColorString>,<nPos>,<cColor>)->cNewColorString SetColor([<cColorString>])->cColorString SetCursor([<nCursorShape>])->nCurrentSetting SetDate(<dDate>)->lSuccess SetEnv(<cEnvironmentVariable>,[<cNewValue>][,<lSystem>])->lSuccess ...

... SetClrPair(<cColorString>,<nPos>,<cColor>)->cNewColorString SetColor([<cColorString>])->cColorString SetCursor([<nCursorShape>])->nCurrentSetting SetDate(<dDate>)->lSuccess SetEnv(<cEnvironmentVariable>,[<cNewValue>][,<lSystem>])->lSuccess ...

... MHide MilliSec Min Minute MLCount MLCToPos MLeftDown MLPos Mod Month MPosToLC MPresent MRestState MRightDown MRow MSaveState MSetBounds MSetCursor MSetPos MShow NationMsg NetCancel NetDisk NetErr NetName NetPrinter NetRedir NetRmtName Network NextKey NNetwork NoSnow Notify NotifyAll NtoC ...

... HBALL4 = LoadCursor(hInst,"BALL4"+CHR(0)) HWAIT = LOADCURSOR(HINST,IDC_WAIT) HAROW = LOADCURSOR(HINST,IDC_ARROW) SETCURSOR(HWAIT) HSCOICON = "IDSCO" + CHR(0) // TELL EM RESOURSE ICON HANDLE NAME W/ NULL CHAR HMAINWND := WINSETUP(APP_NAME,"SCO VERSION ...

... seguimiento al codigo. wvwtest9.prg En estas instruciones se cuelga. wvw_SetVertCaret( .T. ) wvw_pbSetFont( , "Tahoma", 14 ) nCursor := SetCursor( SC_NONE ) IF ! SetDefaultWindowSize() ldebug( "Cannot setDefaultWindowSize()" ) ELSE ldebug( "Successfully setDefaultWindowSize()" ...

... pero solo detecta las coordenadas del click del puntero dentro del Dialogo más no fuera, tampoco hace el cambio de cursor al que le indico con SetCursor, al hacer MSGINFO(hCursor) me devuelve un valor de 7079303 que indica que lo tiene en memoria, este es el código: Static Function PickColor()Local ...

Esro es lo que sale. Enlazando UTILDISC.exe... Warning: Unable to perform incremental link - performing full link... Error: Unresolved external '_hb_vmProcessSymbols' referenced from C:\XEDIT2\OBJ\EJEMPLO.DBJ Error: Unresolved external '_HB_FUN_SETCOLOR' referenced from C:\XEDIT2\OBJ\EJEMPLO.DBJ Err...

Sr. Antonio: fivewin.ch ... /* #xtranslate SetCursor( => WSetCursor( // to avoid conflicts with Harbour functions #xtranslate __Keyboard( => ___Keyboard( // to avoid conflicts with Harbour functions #xtranslate LastKey( => _LastKey( // ...

Try to remove all these lines from FiveWin.ch #xtranslate SetCursor( => WSetCursor( // to avoid conflicts with Harbour functions #xtranslate __Keyboard( => ___Keyboard( // to avoid conflicts with Harbour functions #xtranslate LastKey( => _LastKey( ...

... "FiveWin for Harbour 64" #endif #endif #xtranslate Browse( => WBrowse( // to avoid conflicts with Harbour functions #xtranslate SetCursor( => WSetCursor( // to avoid conflicts with Harbour functions #xtranslate __Keyboard( => ___Keyboard( // to avoid conflicts with Harbour ...

... METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TDialog if ::lHelpIcon != nil .and. ! ::lHelpIcon if ::oCursor != nil SetCursor( ::oCursor:hCursor ) else CursorArrow() endif endif ::SetMsg( ::cMsg ) ::CheckToolTip() if ::bMMoved != nil return Eval( ::bMMoved, nRow, ...

... Self //---------------------------------------------------------------------------// METHOD Display( lForced ) CLASS Get LOCAL nOldCursor := SetCursor( SC_NONE ) LOCAL xBuffer LOCAL xVar LOCAL cCaption LOCAL cClrCap := hb_ColorIndex( ::ColorSpec, GET_CLR_CAPTION ) LOCAL cClrAcc := hb_ColorIndex( ...

Aoki,

Modify this method in Class TToolBar:

METHOD MouseMove() INLINE If( ::oCursor != nil, SetCursor( ::oCursor:hCursor ),), nil

Then in your code simply do:

DEFINE CURSOR oHand RESOURCE "hand"
...
oToolBar:oCursor = oHand

Tengo un pequeño Bmp que quisiera utilizar momentáneamente como cursor en lugar de la flecha de siempre. Supongo que se utiliza SetCursor() pero no he conseguido ir más allá. Alguien me podría poner un ejemplo de cómo hacerlo? Gracias

Rafael