FiveTech Software tech support forums

... := .t. right?) 2) be able to use Ctrl - Minus and Ctrl - Plus to have zoom in/out in small increment In the old rpreview I amended CheckKey() static function CheckKey (nKey,nFlags) // Thanks to Joerg K.   if GetKeyState( VK_CONTROL )      do case         case nKey ...

... lMenu ) METHOD VScroll( nType, lPage, nSteps ) METHOD HScroll( nType, lPage, nSteps ) METHOD SetOrg1( nX, nY ) METHOD SetOrg2( nX, nY ) METHOD CheckKey( nKey, nFlags ) METHOD CheckMouseWheel( nKeys, nDelta, nXPos, nYPos ) METHOD SetFactor( nValue ) METHOD PrintPage() METHOD PrintPrv( oDlg, ...

... ) oMeta1:oCursor := oCursor oMeta1:blDblClick := { |nRow, nCol, nKeyFlags| ; SetOrg1( nCol, nRow, nKeyFlags ) } oMeta1:bKeyDown := {|nKey,nFlags| CheckKey(nKey,nFlags)} oMeta1:bMouseWheel := { | nKeys, nDelta, nXPos, nYPos | ; CheckMouseWheel( nKeys, nDelta, nXPos, nYPos ) } #ifndef __XPP__ // ...

... oBar SIZE 40,40 OF oDlg DEFINE BUTTON oBtn RESOURCE 'Add' OF oBar ACTION MsgInfo("Ciao") oBtn:cargo := VK_F3 oDlg:bKeyDown = { | nKey | CheckKey(nKey,oBar)} Function CheckKey(nKey,oBar) Local nX,nY Local lControl := GetKeyState(VK_CONTROL ) // Ho premuto il tasto control IF nKey >= ...

... con il Warning 2 Adesso per esempio non riesco a spuntarla con il Rpreview.prg la variabile Nflag mi dice " declared but not used in function checkkey" Infatti il parametro nFlags non viene attualmente utilizzato all'interno del metodo CheckKey() e potrebbe benissimo essere tolto. Magari Antonio ...

... con il Warning 2 Adesso per esempio non riesco a spuntarla con il Rpreview.prg la variabile Nflag mi dice " declared but not used in function checkkey" le variabile NXPOS e NYPOS mi dice " declared but not used in function checkmousewheel" con il w2 non si compilano se torlgo il warning si ...

... "BIG_STAMPA" OF oBar ; ACTION eval(bActSta) ; TOOLTIP " Stampa estratto" oButton[1]:cargo := VK_F5 // key accelerator oDlg:bKeyDown = { | nKey | CheckKey(nKey,oBar)} // Controll the keys Function CheckKey(nKey,oBar) Local nX,nY IF nKey >= VK_F2 .AND. nKey <= VK_F9 IF oBar:lActive FOR ny ...

... ) oMeta1:oCursor := oCursor oMeta1:blDblClick := { |nRow, nCol, nKeyFlags| ; SetOrg1( nCol, nRow, nKeyFlags ) } oMeta1:bKeyDown := {|nKey,nFlags| CheckKey(nKey,nFlags)} oMeta1:bMouseWheel := { | nKeys, nDelta, nXPos, nYPos | ; CheckMouseWheel( nKeys, nDelta, nXPos, nYPos ) } #ifndef __XPP__ // ...

... DEFINE BUTTON oBtn RESOURCE "TEST" OF oBar ACTION Msginfo("PRESS F2") oBtn[1]:cargo := VK_F2 oDlg:bKeyDown = { | nKey | CheckKey(nKey,oBar)} //---------------------------------- Function CheckKey(nKey,oBar) Local nX,nY IF nKey >= VK_F2 .AND. nKey <= VK_F9 IF oBar:lActive ...

... TWOPAGES CODE 0009:437C 001C6H ZOOM CODE 0009:4542 00040H ZOOM CODE 0009:4582 0012FH SETORG1 CODE 0009:46B2 001A0H SETORG2 CODE 0009:4852 001B8H CHECKKEY CODE 0009:4A0A 000DDH SETFACTOR CODE 0009:4AE8 002AAH PRINTPAGE CODE 0009:4D92 001B1H PRINTPRV CODE 0009:4F44 00642H TMSGBAR CODE 0009:5586 ...

... TWOPAGES CODE 0009:437C 001C6H ZOOM CODE 0009:4542 00040H ZOOM CODE 0009:4582 0012FH SETORG1 CODE 0009:46B2 001A0H SETORG2 CODE 0009:4852 001B8H CHECKKEY CODE 0009:4A0A 000DDH SETFACTOR CODE 0009:4AE8 002AAH PRINTPAGE CODE 0009:4D92 001B1H PRINTPRV CODE 0009:4F44 00642H TMSGBAR CODE 0009:5586 ...

... CODE 0009:965C 000DDH BOTTOMPAGE CODE 0009:973A 001DBH TWOPAGES CODE 0009:9916 0012FH SETORG1 CODE 0009:9A46 001A0H SETORG2 CODE 0009:9BE6 001B8H CHECKKEY CODE 0009:9D9E 000DDH SETFACTOR CODE 0009:9E7C 002AAH PRINTPAGE CODE 0009:A126 001F3H PRINTPRV CODE 0009:A31A 00022H NWINDOWS CODE 0009:A33C ...