FiveTech Software tech support forums

... recuadro negro y las letras aparezcan en blanco, para marcar un poco la diferencia de agrupación. Se podrá hacerlo con TPrinter? Probé con "nBkMode" pero no sé bien como funciona... no pude obtener resultados. Muchas gracias! Roberto

El método CmSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad, lO2A ) admite un parámetro nPad que
puede ser:

#define PAD_LEFT 0
#define PAD_RIGHT 1
#define PAD_CENTER 2

... liquidaciones de sueldo, usando impresora inyección de tinta. Me han recomendado que use "CmSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad, lO2A )", no se si será la mejor forma?. 1. Lo primero que necesito es centrar el Titulo considerando el total del ancho de una pagina ...

... liquidaciones de sueldo, usando impresora inyección de tinta. Me han recomendado que use "CmSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad, lO2A )", no se si será la mejor forma?. 1. Lo primero que necesito es centrar el Titulo considerando el total del ancho de una pagina ...

... Here you see how to do. You have to change the pen before printing. Best regards, Otto METHOD Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ) CLASS VRD IF ::oPrn:hDC = 0 RETURN NIL ENDIF DEFAULT oFont := ::oPrn:oFont DEFAULT nBkMode := 1 DEFAULT nPad := 0 IF oFont != nil oFont:Activate( ...

... x 1 y 5.5 width 4.5 height 0.8 Font Arial 12 Bottom position centered alignment I tried with CmSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad, lO2A ) but it's no god #include "fivewin.ch"#define PAD_LEFT            0#define PAD_RIGHT           1#define PAD_CENTER   ...

Dear Mr. 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

oPrn:Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ) I can say, that after i use a certain color for text, this color are stay in further oPrn:say()s! If i will back to black i must this explicit define in the next oPrn:say()! Please ...

... at a certain coordinates. Syntax:<oPrn>:Say( <nRow>, <nCol>, <cText>, <oFont>, <nWidth>,<nClrText>,<nBkMode>, <nPad> ) Parameters: <nRow> <nCol> The coordinates where to display a text. They are graphical coordinates, and may be ...

... oBtn | DrawText2(hDC, oFont:hFont, 2, LTrim( Str(oBtn:Cargo)) + " " ,2, 20, 34, 62,CLR_WHITE, CLR_RED )} FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color,color2 ) LOCAL hFontOld:= SelectObject( hDC, hFont ) LOCAL nBkOld := SetBkMode( hDC, nBkMode ) SetTextColor( ...

... cP, oBtn | DrawText2(hDC, oFont:hFont, 1, LTrim( Str(oBtn:Cargo)) + " " ,2, 30, 34, 62, CLR_WHITE )} FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color ) LOCAL hFontOld:= SelectObject( hDC, hFont ) LOCAL nBkOld := SetBkMode( hDC, nBkMode ) SetTextColor( ...

... "AAA", oFont1 ) * 0.5 // 0.5 * textwidth nFontHeight := oFont1:nHeight // points // CmSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad, lO2A ) oPRINT:cmSay( 10.5 - oFont1:nHeight * 0.002834645669291, 14.85 - nTextCentH, "AAA", oFont1,,CLR_BLACK,,PAD_LEFT ) // ...

... METHOD Say( nCol, xText, nFont, nPad, nRow ) of Treport a and insert a call to urllink class or Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ) CLASS TPrinter because say of report depend from say of printer class

Dear Antonio,
I think it is METHOD Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ) CLASS VRD.
Best regards,
Otto

... ) oRTF:print else TextOut( ::oPrn:hDCOut, nRow, nCol, cText ) endif Best regards, Otto METHOD Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ) CLASS VRD IF ::oPrn:hDC = 0 RETURN NIL ENDIF DEFAULT oFont := ::oPrn:oFont DEFAULT nBkMode := 1 DEFAULT nPad := 0 IF oFont != nil oFont:Activate( ...