FiveTech Software tech support forums

... error @ 148, 350 BTNBMP aBtnBrow[3] ; RESOURCE "GRID_MNU", "", hBmp2, "" ; SIZE 15, 13 PIXEL FLAT NOROUND GDIP WHEN lMenu OF oDlg ; ACTION ::ShowPopUp( Contextual_Menu( Self,oBrw,oDbf,cIniUser,cSection,oDlg,aBtnBrow[4] ) ) Function Contextual_Menu( oBtn,oBrw,oDbf,cIniUser,cSection,oParent,oCont,lExport,lColConfig ...

... tdatabase by Nages the only modification I made is to embed it in the window using a dialog like tfsdi (alanit) and using two tPanels one for the lmenu and one to host the Tplan class. I did a lot of tests this week without having had any kind of problem this morning i wanted to try again and ...

hmpaquito wrote:Hay que comprobar si está pulsada la tecla Control o Alt y la tecla del caso.

Algo asi

Try with

local lControl := GetKeyState( VK_CONTROL )
local lShift := GetKeyState( VK_SHIFT )
local lMenu := GetKeyState( VK_MENU )

if lMenu
//
endif

... please ? I change on Rpreview class this line : ( and it seems to run ok) if ! IsAppThemed() instead of if ! lRebar on these methods : TwoPages( lMenu ) Zoom( lMenu ) on Oldest rpreview there is wroten if ! IsAppThemed() it is the bug or I make a mistake ? THEN THERE IS AN ERROR ON RPREVIEW the ...

... ::oLvw:Show() ) ) Please make sure that you made this substitution at two places. Now go to METHOD TwoPages( lMenu ). In this method locate these two lines:      ::oLvw:Hide()   else  Substitute with:      if ...

... - Voy a probarlo añadiendo la funcion que has puesto en mi codigo a ver como funciona. PREVIEW: Quizás el problema pueda estar en el METHOD Zoom( lMenu ) CLASS TPreview    .../..   if lMenu .and. ! IsAppThemed()      ::oZoom:Refresh()   endif   ::oWnd:Refresh()  // Fix ...

... PARAMS ) // ( hWnd, hBitmaP, lPressed, // hFont, cText, nPos, nClrText, ClrBack, // lMouseOver, lOpaque, hBrush, nRows, lW97, // lAdjust, lMenu, lMenuPress, lFocused, // nShape, lBorder, lBox, nClip, nClrTo, lHorz, lRound ) #else HARBOUR HB_FUN_SBTNPAINT( PARAMS ) #endif Muchas Gracias. ...

Espero le sirva a algunos, lo unico que veo es que no funciona la VK_F10...saludos... :shock: Origen: http://delphi.about.com/od/objectpascalide/l/blvkc.htm Symbolic constant name Value (hexadecimal) Keyboard (or mouse) equivalent VK_LBUTTON 01 Left mouse button VK_RBUTTON 02 Right mouse button VK_C...

From another thread http://forums.fivetechsupport.com/viewtopic.php?p=90269#p90269 I fount the solution It works But there is a very big problem: after the phone call I have to restart the PC because the keypad locks. :? #include "Fivewin.ch" #define VK_LMENU 164 #define VK...

... BuildWindow() METHOD BuildMenu() METHOD PaintMeta() METHOD NextPage() METHOD PrevPage() METHOD TopPage() METHOD BottomPage() METHOD TwoPages( lMenu ) METHOD Zoom( lMenu ) METHOD VScroll( nType, lPage, nSteps ) METHOD HScroll( nType, lPage, nSteps ) METHOD SetOrg1( nX, nY ) METHOD SetOrg2( ...

... SetResources(hOldRes) return nil //----------------------------------------------------------------------------// static function TwoPages(lMenu) local hOldRes := GetResources() SET RESOURCES TO cResFile DEFAULT lMenu := .F. lTwoPages := !lTwoPages if lTwoPages if len(DEVICE:aMeta) == 1 ...

... SetResources(hOldRes) return nil //----------------------------------------------------------------------------// static function TwoPages(lMenu) local hOldRes := GetResources() SET RESOURCES TO cResFile DEFAULT lMenu := .F. lTwoPages := !lTwoPages if lTwoPages if len(DEVICE:aMeta) == 1 ...