FiveTech Software tech support forums

... AS LOGICAL INIT .F. READONLY // browsed object is a database DATA lIsTxt // browsing a text file DATA lIsV22 AS LOGICAL INIT .F. // true if oBmp:hBmpPal is not defined DATA lLineDrag AS LOGICAL // TSBrowse dragging feature DATA lLockFreeze AS LOGICAL // avoids cursor positioning on frozen columns ...

... appear error message.This error message already appear from FW195sp5.But FW2.0a not fix it.Do someone else offers or suggestion it?Help Change hBmpPal with hBitmap in method destroy() -------------------------------------------------------------------------------- I have having a strange problem ...

... window: DEFINE BITMAP ::oBMP filename "logo.bmp" of ::oWnd DEFINE WINDOW ::oWnd ACTIVATE WINDOW ::oWnd ; on paint drawBitmap( ::oWnd:hdc, ::oBMP:hBMPPal, nRow, nCol ) ::oBMP:end() I tried the change but still the bitmap will not appear, I also change the bitmap just in case any additional help ...

Pedro,

Comprueba que oBmp sea distinto de nil (busca en el PRG en donde creas oBmp):

MsgInfo( oBmp:ClassName() )

ACTIVATE WINDOW ...

tambien tienes que cambiar oBmp:hBmpPal por oBmp:hBitmap

... ; ON PAINT PalBmpDraw( hDC, ; ( oWMain:nHeight() / 4 ) - ( oBmp:nHeight() / 4 ) - 50,; ( oWMain:nWidth() / 4 ) - ( oBmp:nWidth() / 4 ), oBmp:hBmpPal ) ; ON INIT EscogeArea() ; VALID MsgYesNo( "Realmente desea salir?","Elija" ) Esto funciona bien en Fivewin, pero parece que no en Harbour, ...

Willi: Funciona, solo tuve que modificar esta línea: AEVAL(anCor,{|a,n| IF((n-1)%5==0,DrawBitmap(hDC,oBmpG:hBmpPal,RELOJ_Y+anCorY[n]*RELOJ_R-4,RELOJ_X+anCorX[n]*RELOJ_R-4),DrawBitmap(hDC,oBmpP:hBmpPal,RELOJ_Y+anCorY[n]*RELOJ_R-1,RELOJ_X+anCorX[n]*RELOJ_R-1))}),; ...

... #IFDEF __HARBOUR__ DrawBitmap( hDC, oBmpFondo:hBitmap , 0, 0, nWidth, nHeight ) #ELSE IF At("2.1",FWVERSION) > 0 DrawBitmap( hDC, oBmpFondo:hBmpPal , 0, 0, nWidth, nHeight ) ELSE DrawBitmap( hDC, oBmpFondo:hBitmap , 0, 0, nWidth, nHeight ) ENDIF #ENDIF oBmpFondo:End() RETURN( NIL )

... .f. // Sin Scroll Horizontal para la variable #endif // de la clase. @01,01 LISTBOX oLbx ; FIELDS If( oMultiSel:lSelect, oBmpOn, oBmpOff ):hBmpPal,; DATOS->Equipo ; HEADERS "","" SIZE 95,87 OF oDlg oMultiSel:= TMultiSel():New( oLbx ) @20,110 BUTTON "Select &All" OF oDlg SIZE 40,Nil ...

Según leo en el "whatsnew" del fw23, a aprtir de FW22B se cambió la clase BITMAP sustituyendo el Data ::hBmpPal por otros dos ::hBitmap y ::hPalette. Es posible que tu utilices el sistema antiguo (FW22 anterior a FW22B) y CanalFive el nuevo. Si es así tendrás que redefinir ...

... IF !Empty( oBmp ) IF UPPER(oWnd:ClassName()) == 'TDIALOG' // Si es un Dialogo oWnd:GetDC() PalBmpDraw( oWnd:hDC, 0, 0, oBmp:hBmpPal ) oWnd:ReleaseDC() ENDIF WndCenter( oBmp:hWnd, oWnd:hWnd ) ENDIF if lPuro == .T. oWnd:SetColor( 0, nColor ) oWnd:Refresh() else lPuro := .F. ...

Ya no se usa hBmpPal. Ahora se usa hBitmap (por razones de 32 bits).

Quiero imprimir una imagen o mostarla en pantalla ( centrada en lo posible ) pero lo unico que obtengo en ese error en impresion y en pantalla no muestra nada ( esta pegada al EXE ).
Revise los ejemplos pero no logro imprimir.
Agradecido de antemano.