FiveTech Software tech support forums

... SRCCOPY 13369376 local hDC := oDlg:GetDC() local hDCMem := CreateComtatibleDC( hDC ) local hBitmap := CreateCompatibleBitmap( hDCMem, nWidth, nHeigth ) local hPrev := SelectObject( hDCMem, hBitmap ) local hBmp, hDib now you paint your bitmaps on hDCMem this way: hBmp = ReadBitmap( 0, "name.bmp" ...

Cristobal, Tienes un ejemplo de uso de ComboMetro en FWH\samples\touch.prg Antonio, ya lo habia mirado, pero se me habia pasado el detalle que el nHeigth que ponemos en el comando corresponde a la altura del "antiguo Get del Combobox" y no a la altura total del control como era antes, ...

... COLUMNS> <aCols,...> ] ; [ <idx: SORT,ORDERS> <aSort,...> ] ; [ JUSTIFY <aJust,...> ] ; [ SIZE <nWidth>, <nHeigth> ] ; [ ID <nID> ] ; [ <dlg:OF,DIALOG> <oWnd> ] ; [ SELECT <cField> FOR <uValue1> [ TO <uValue2> ] ] ; ...

... .... in field's. The translation from the ch-file ( <oBrw> := XbrowseNew( <oWnd>, <nRow>, <nCol>, <nWidth>, <nHeigth>,...) Has no refererences to cField , uValue1 or uValue2. Xbrowsenew has no parameters for this purpose. When and how is this clausule used ...

... MODIFIES ADD ON YOUR CH #xcommand PANELITEM ; [ <of: OF> <oPanel> ]; [PROMPT <cPrompt> ]; [ FONT <oFont> ] ; [ HEIGHT <nHeigth> ] ; [ LEFT <nLeft> ] ; [ BITMAP <cBitmap> ] ; [ ACTION <uAction> ] ; =>; <oPanel>:AddLink( <(cPrompt)>,; ...

... := GetProc32( ::hDll, cFunc, .T., _INT,; // nRetVar LONG,; // nHandle LPSTR,; // cReport LONG,; // nTop LONG,; // nLeft LONG,; // nWidth LONG,; // nHeigth LONG,; // nStyle LONG ) // hWnd // nRet := CallDll32( cFarProc, ::nJobHandle, ::cReport, 0, 0, vWnd:nWidth, vWnd:nHeight, 0, vWnd:hWnd ) // ...

... @ 2.0 (o las coordenadas que sean) me debe convertir a <oBrw> := XbrowseNew( <oWnd>, <nRow>, <nCol>, <nWidth>, <nHeigth>,;....etc Pues bien, eso da un error de compilación C:\PROYEC~1\Xbrowse\xbrowse.prg(44) Error E0030 Syntax error: "syntax error at , ...

... = NIL && Somente para REDEFINES && By Rossine ::nTop := aRect[1] && By Rossine ::nLeft := aRect[2] && By Rossine ::nHeigth := ( aRect[3] - aRect[1] ) / 2 && By Rossine ::nWidth := (( aRect[4] - aRect[2] ) / 2 ) + VSCROLL_WIDTH && By ::nBottom := aRect[3] ...

... = NIL && Somente para REDEFINES && By Rossine ::nTop := aRect[1] && By Rossine ::nLeft := aRect[2] && By Rossine ::nHeigth := ( aRect[3] - aRect[1] ) / 2 && By Rossine ::nWidth := (( aRect[4] - aRect[2] ) / 2 ) + VSCROLL_WIDTH && By Rossine ::nBottom ...

... class) DATA uBmpSel // bitmap to show in selected records DATA uLastTag // last TagOrder before losing focus METHOD New( nRow, nCol, nWidth, nHeigth, bLine, aHeaders, ; aColSizes, oWnd, cField, uVal1, uVal2, bChange, ; bLDblClick, bRClick, oFont, oCursor, aColors, ; cMsg, lUpdate, uAlias, ...

... := GetProc32( ::hDll, cFunc, .T., _INT,; // nRetVar LONG,; // nHandle LPSTR,; // cReport LONG,; // nTop LONG,; // nLeft LONG,; // nWidth LONG,; // nHeigth LONG,; // nStyle LONG ) // hWnd // nRet := CallDll32( cFarProc, ::nJobHandle, ::cReport, 0, 0, vWnd:nWidth, vWnd:nHeight, 0, vWnd:hWnd ) nRet ...

... SIZES, COLSIZES> <aColSizes,...> ] ; [ <head:HEAD,HEADER,HEADERS> <aHeaders,...> ] ; [ SIZE <nWidth>, <nHeigth> ] ; [ <dlg:OF,DIALOG> <oWnd> ] ; [ SELECT <cField> FOR <uValue1> [ TO <uValue2> ] ] ; [ <change: ON CHANGE, ...

... DATA lLogicPos INIT .T. // CeSoTech DATA lGoTop INIT .F. DATA lGoBottom INIT .F. CLASSDATA lRegistered AS LOGICAL METHOD New( nRow, nCol, nWidth, nHeigth, bLine, aHeaders, ; aColSizes, oWnd, cField, uVal1, uVal2, bChange,; bLDblClick, bRClick, oFont, oCursor, nClrFore,; nForeBack, cMsg, lUpdate, ...

... SIZES, COLSIZES> <aColSizes,...> ] ; [ <head:HEAD,HEADER,HEADERS,TITLE> <aHeaders,...> ] ; [ SIZE <nWidth>, <nHeigth> ] ; [ <dlg:OF,DIALOG> <oDlg> ] ; [ SELECT <cField> FOR <uValue1> [ TO <uValue2> ] ] ; [ ON CHANGE <uChange> ...

... = NIL && Somente para REDEFINES && By Rossine ::nTop := aRect[1] && By Rossine ::nLeft := aRect[2] && By Rossine ::nHeigth := ( aRect[3] - aRect[1] ) / 2 && By Rossine ::nWidth := (( aRect[4] - aRect[2] ) / 2 ) + VSCROLL_WIDTH && By Rossine ::nBottom ...