FiveTech Software tech support forums

... debe venir en cero) hBrush = CreateSolidBrush( CLR_BRWHS ) FillRect( hDC, { nTop, nLeft, nBottom, nRight }, hBrush ) DeleteObject( hBrush ) SetBkColor( hDC, CLR_BRWHS ) if aJustify != nil .and. aJustify[ n ] SetTextAlign( hDC, TA_RIGHT ) ExtTextOut( hDC, nTop, nRight - 2, { nTop, nLeft, ...

... Nages, I put the SetBkMode (hDC, 1) straight into the function and it worked. If nClrBack != NIL nBkMode := SetBkMode( hDC, OPAQUE ) nOldClr := SetBkColor( hDC, nClrBack ) Else SetBkMode( hDC, 1 ) EndIf Thank you very much. Att., Oliveiros Junior

Hi Antonio. I'm trying to test mod_harbour . The first impression is EXCELLENT !!! Using harbour language on the web with Apache is absolutely amazing . WOW ...... Toady I’m trying to build the harbour for mod_harbour exe compiler for later building an hrb file to include inside my project. The comm...

... @ 1580,100 PRINT TO oPrn TEXT "YELLOW ON RED"   SIZE 2000,200 PIXEL FONT oFont COLOR CLR_YELLOW,oBrushRed      SetBkColor( oPrn:hDCOut, CLR_HRED )      oPrn:Say(  300, 2600, "YELLOW ON RED", oFont, 2000, CLR_YELLOW, 2 ...

... nWidth, nHeight,color,color2 ) LOCAL hFontOld:= SelectObject( hDC, hFont ) LOCAL nBkOld := SetBkMode( hDC, nBkMode ) SetTextColor( hDC, color ) setBkColor( hDC, color2 ) DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight } ) SelectObject( hDC, hFontOld ) SetBkMode( hDC, nBkOld ) ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

hmpaquito wrote:Resuelto: Utilizando la funcion SetBkColor() se resolvió.

Como en el ejemplo: GENREP.PRG?

Gracias, saludos.

Resuelto: Utilizando la funcion SetBkColor() se resolvió.

... object can now be created from hFont. Eg: oFont := TFont():New( hFont ) * Enhancement: Usage of TransBmp() simplified. It is not necessary to call SetBkColor(), SetTextColor() etc and not necessary to provide zerozeroclr before calling TransBmp() function.

Antes del BitBlt() prueba a hacer:

SetBkColor( hDCMem, GetPixel( hBitmap, 0, 0 ) );

... utilizados SelectObject( hDC, hOldPen ) IF !DeleteObject( hPen2 ) MsgInfo("El objeto no se destruyo") ENDIF // Se dibuja el texto... SetBkColor( hDC, aClrDias[ A][ 2] ) nCOLOR:=ASCAN(aFESTIVOS, {|aVal| aVal[1] == VAL(aDias[A]) }) //Comprobar festivos IF nCOLOR>0 //Bingen SetTextColor( ...

... LOCAL aPuntos[4] LOCAL A // Formato letra SelectObject(hDC, oFont:hFont) //Se selecciona el tipo de letra. SetTextColor( hDC, aColorTitulo[5] ) SetBkColor( hDC, aColorTitulo[2] ) // Se dibujan los titulos de los dias. A := 0 aPuntos[ 1] := nAltoFila aPuntos[ 3] := nAltoFila * 2 FOR A = 0 TO ...

Enrico, Your sample works but when I tried inserting SetBkCOlor() in fwh\samples\testprn2.prg as below, the background color doesn't change // Sample showing how to manage the printer object#include "FiveWin.ch"static oWnd//----------------------------------------------------------------------------//function ...

A ver, estos son los mensajes que tenemos para usar este control: #define PBM_SETRANGE (WM_USER+1) #define PBM_SETPOS (WM_USER+2) #define PBM_DELTAPOS (WM_USER+3) #define PBM_SETSTEP (WM_USER+4) #define PBM_STEPIT (WM_USER+5) #if (_WIN32_IE >= 0x0300) #define PBM_SETRANGE32 (WM_USER+6) // lParam ...

... nBmpRow, aBitmap[ BITMAP_HANDLE ], ::nAlphaLevelFooter ) else DEFAULT aBitmap[ BITMAP_ZEROCLR ] := GetZeroZeroClr( hDC, aBitmap[ BITMAP_HANDLE ] ) SetBkColor( hDC, nRGB( 255, 255, 255 ) ) TransBmp( aBitmap[ BITMAP_HANDLE ], aBitmap[ BITMAP_WIDTH ], aBitmap[ BITMAP_HEIGHT ],; aBitmap[ BITMAP_ZEROCLR ...