FiveTech Software tech support forums

... ) Called from: C:\FWH_16\my_fw\XBROWSE.PRG => TXBRWCOLUMN:PAINTCELL( 11898 ) temporarily I solved in this way if HB_IsNumeric(nBmpWidth) .And. oRect:nWidth >= nBmpWidth //aBitmap[ BITMAP_WIDTH ] Regards Maurizio http://www.nipeservice.com

... CLASS TBtnBmp from Mr. Rao, to change the textcolor on button-focus is still missing and I'm getting errors : Old ::SayText( ::cCaption, oRect:aRect, cAlign, ::oFont, nClr ) Changes from Rao ::SayText( ::cCaption, oRect:aRect, cAlign, ::oFont , XEval( nClr , ::lMover ) ) As well in the ...

... I will give them a shot. James I also discovered this, below is the code to the Method "SetCoors" in the TWindow class: METHOD SetCoors( oRect ) CLASS TWindow SetWindowPos( ::hWnd, 0, oRect:nTop, oRect:nLeft,; oRect:nRight - oRect:nLeft + 1,; oRect:nBottom - oRect:nTop + 1, 4 ) // Important: ...

...  3857  3857  3859  3859  3924  3932  3932  3934  3934 OREAD()                (function  in WINDOW.PRG)    WINDOW.PRG     2221  2341! 3410  3412 ORECT                  WINDOW.PRG      819  2683  2685  2685  2686  2686  2687  2687  2689  2690                   2691  2692 ORIBBON               ...

Prueba segun este ejemplo.
@2.7, 18 GET oConceptG[1] VAR aConceptG[1] OF oRect SIZE 550,68 MULTILINE NO VSCROL FONT oFont1
Saludos.

Antonio, a rolando le dan estos valores:

oRect:nWidth: 13668.00
oRect:nHeight: 2097.00
cBuf:

en los casos de los valores de oRect:nWidth y oRect:nHeigh, no son valores mas altos de los esperados?
y el caso de cBuf, por que lo muestra vacio?

salu2
carlos vargas

veamos el contenido de cbuf y oRect:nWidth y oRect:nHeight OutputDebugString( "GetDesktopWindows: " + alltrim( str( GetDesktopWindow() ) ) )OutputDebugString( "hEMF: " + alltrim( ...

... ya validamos el valor del primer parametro pasado, veamos la validacion de los dos ultimos parametros. es muy probable que en la estructura oRect sea el problema a falta de saber el valor de cBuf    ...   oRect        := TRect():New( 0, ...

... "hBmp: " + alltrim( str( hBmp ) ) ) OutputDebugString( "hOldBmp: " + alltrim( str( hOldBmp ) ) ) OutputDebugString( "oRect:nWidth: " + alltrim( str( oRect:nWidth ) ) ) //NEW OutputDebugString( "oRect:nHeight: " + alltrim( str( oRect:nHeight ) ) ) //NEW ...

Carlos: Pasó 1 hBmp No Valido Pasó 2 hDib No Valido Siguiento tu ejemplo agregué: cBuf         := MemoRead( cEMF )   oRect        := TRect():New( 0, 0, Bin2L( SubStr( cBuf, 21, 4 ) ) / 2, ;                                  Bin2L( SubStr( cBuf, ...

... in the top left browse. Double click on the value of oFont displays Browse of the Font object ( See top right ) Again double click on the value of oRect object in Browse of Font object, we see browse of data and values of TRect object. All this without long lines of coding.

Antonio ¿Y como sería en el caso de la siguiente línea del metodo Paintmeta(): METHOD PaintMeta() CLASS TPreview . . . oRect:nBottom -= ( IfNil( ::oWnd:oMsgBar, ::oWnd:oBottom ):nHeight + 4 + 5 ) // 5 shadow depth <<-- no existe . . return nil Saludos Armando

... oBrw, oFont1, oBotModi local dFechemis := cTod(" / / "), oFechemis Local oConceptG, cConceptG:="ESTO ES UNA PRUEBA" LOCAL oRect, oRectClr1, oRectClr2, nRectClrTxt1,nRectClrTxt2 oRectClr1:= 12961221 oRectClr2:= 16777215 nRectClrTxt1:=0 nRectClrTxt2:=0 DEFINE FONT oFont1 ...

... este pequeño codigo puede servirte de partida. (Yo aun no uso la TPANEL) //----------------------------// Function Prueba() local oChild, oBrw, oRect local dFechemis := cTod(" / / "), oFechemis DEFINE WINDOW oChild MDICHILD OF oWnd TITLE "Prueba" oRect:=TPanel():New( 0, 0, ...

GetWndRect( oWnd:hWnd ) --> gives the correct coordinates at any time.
We may use this one function instead of using combination of many methods/functions.

Alternatively, we can use oWnd:GetRect() -> oRect ( TRect object )